XProfan

Sagen wir mal so

if getfocus(checkbox&)
alt%=val(gettext$(checkbox&))
neu%=val(gettext$(checkbox&))
casenot alt%=neu%:ausfuehren
endif

müsste auch eigendlich

if getfocus(checkbox&)
alt%=neu%
neu%=val(gettext$(checkbox&))
casenot alt%=neu%:ausfuehren
endif

heissen.

GDL

Hallo iF

eigentlich schon.Jetzt habe ich mir schon so oft mit solchen kleinen Umwegen geholfen nur diesmal sah ich den Wurm nicht.Naja schlechter Tag heute.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Warum nimmst Du nicht GetCheck()?

Ich weiß nicht wie Deine Schleife aussieht aber so dürfte die Abfragelast relativ klein sein:
Kompilieren Markieren Separieren

While 1

    WaitInput
    Case GetCheck(cb1&):Ausfuehren1
    Case GetCheck(cb2&):Ausfuehren2

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Nico
Madysa

Gehts nicht um CheckBoxen? Da müsste es doch eher so heißen.
Kompilieren Markieren Separieren

while 1

    waitinput

    if GetCheck(cb1&)

        Ausfuehren1

    else

        Ausfuehren2

    endif

wend

Das was Jörg geschrieben hat, ist eher für RadioButtons, oder?

Nico Madysa

GDL

Hallo,

jede Auswahlbox von 30 hat 256 Einträge, die sich auch ändern können.Darum möchte ich nur jede Box bei einer Änderung mit gettext abfragen.
Da aber die Box mit getfocus auch schon beim Pfeil nach unten anklicken(um nachzusehen welche neuen Werte hinzukamen) reagiert, der Umweg mit alt% und neu%.Ansonsten würde auch bei gleicher Auswahl ständig das Unterprogramm aufgerufen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Kann es sein, daß Du Choiceboxen meinst?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

GDL

Hallo Jörg,

ich meine diese hier
reset&[1]=create(choicebox,%hwnd,1,10,190,50,400)

Ich hab ne dunkle Vorahnung, dass ich da was durcheinanderbrachte.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Jörg
Sellmeyer

Hallo Georg,
Dachte ichs mir doch!
Das funktioniert, hat aber den Nachteil, daß wmcommand als UserMessage deklariert sein muß.
Kompilieren Markieren Separieren

UserMessages $0111 wm_commad
Def ChoiceBoxSelChange(1) If(Equ(%umessage,$0111),And(Equ(&ulparam,&(1)),Equ(Div&(&uwparam,$10000),1)),0)
Cls
Declare ChoiceBox&,ende%
Decimals 0
ChoiceBox&=CreateChoiceBox(%hwnd,,10,10,100,400)

WhileLoop 5

    AddString Test  + Str$(&Loop)

Wend

MoveListToChoice(ChoiceBox&)

WhileNot ende%

    WaitInput

    If %key=2

        ende%=1

    ElseIf ChoiceBoxSelChange(ChoiceBox&)

        WindowTitle GetText$(ChoiceBox&)

    EndIf

Wend

Das Ganze nur mit:
Kompilieren Markieren Separieren

Def ChoiceBoxSelChange(1) If(Equ(%message,$0111),And(Equ(&lparam,&(1)),Equ(Div&(&wparam,$10000),1)),0)

und ohne UserMessages $0111 funktioniert leider nicht. Vielleicht kannst Du trotzdem was damit anfangen oder jemand anders weiß weiter.

Gruß
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

GDL

Hallo Jörg,

habe es schon verwenden können,danke.
Nur diese Zeile verstehe ich überhaupt nicht

Def ChoiceBoxSelChange(1) If(Equ(%message,$0111),And(Equ(&lparam,&(1)),Equ(Div&(&wparam,$10000),1)),0)

Vielleicht könntest du, wenn du magst, das mir ein bisschen erklären.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]