XProfan

Français

Stephan
Sonneborn

allô zusammen,
dans qui Aider steht trop WAITINPUT:

Außer sur Tastendrücken reagiert WaitInput aussi WaitKey encore sur folgende Ereignisse et bestückt %Key entsprechend:
1 Es wurde un Eintrag dans einer Listbox angewählt ou bien es wurde un Eintrag einer Auswahlbox gewählt

Pourquoi reagiert WAITINPUT ici pas?
Kompilieren Marque Séparation

CLS
VAR CB&=CREATE("CHOICEBOX", %HWND, 0,10,10,100,90)
VAR Ende% = 0
ADDSTRING(CB&,"Auswahl 1")
ADDSTRING(CB&,"Auswahl 2")
ADDSTRING(CB&,"Auswahl 3")
ADDSTRING(CB&,"Beenden")

WHILENOT Ende%

    WAITINPUT

    IF %KEY = 1

        IF GETTEXT$(CB&) = "Beenden"

            Ende% = 1

        ENDIF

    ENDIF

ENDWHILE

FIN

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

12.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Tja - dans dem le cas ist %clé pas juste 1. pourquoi cela so ist, wird Dir seulement wohl Roland dire peut.

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

12.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

cela betroffene la fenêtre muss den Dialogstil avons. (Im Normalfall benutzt on Dialogelemente oui dans Dialogfenstern.)

Salut
Roland

XProfan X2
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

12.03.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Jagolski

allô!

et so ca va sans Dialogstil.
Kompilieren Marque Séparation

 $H WINDOWS.PH
 $H MESSAGES.PH

SubClassProc

    If SubClassMessage(%hwnd, ~WM_COMMAND)

        Select &sLParam

            CaseOf CB&

            If HiWord(&sWParam) = ~CBN_SELCHANGE

                SetMenuItem 5000

            EndIf

            Set("WinProc",0)

        EndSelect

    EndIf

EndProc

CLS
VAR CB&=CREATE("CHOICEBOX", %HWND, 0,10,10,100,90)
VAR Ende% = 0
ADDSTRING(CB&,"Auswahl 1")
ADDSTRING(CB&,"Auswahl 2")
ADDSTRING(CB&,"Auswahl 3")
ADDSTRING(CB&,"Beenden")
SubClass %hwnd,1

WHILENOT Ende%

    WAITINPUT

    IF MenuItem(5000)

        IF GETTEXT$(CB&) = "Beenden"

            Ende% = 1

        ENDIF

    ENDIF

ENDWHILE

SubClass %hwnd,0
/../funktionsreferenzen/XProfan/end/'>FIN