XProfan

Italia

Beschreibung:

GetDlgCtrlID ermittelt die ID des angegebenen Controls.

Deklaration:

DEF @GetDlgCtrlID(1) !USER32,GetDlgCtrlID

Parameter:

1.Parameter: Handle des Controls, dessen ID ermittelt werden soll.

Rückgabewert:

Bei Erfolg die ID des Controls, bei Misserfolg 0.

Beispiele:

Kompilieren Markieren Separieren

DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Windowstyle 31+512
Windowtitle "Buutonklick abfragen"
Window 0,0-640,440
Declare Button&[5]
LET Button&[1]=@CREATEBUTTON(%HWND,"Button 1",10,10,200,30)
LET Button&[2]=@CREATEBUTTON(%HWND,"Button 2",10,50,200,30)
LET Button&[3]=@CREATEBUTTON(%HWND,"Button 3",10,90,200,30)
LET Button&[4]=@CREATEBUTTON(%HWND,"Button 4",10,130,200,30)
LET Button&[5]=@CREATEBUTTON(%HWND,"Button 5",10,170,200,30)

While %MENUITEM<>-2

    sleep 10

    IF @ButtonClicked(Button&[1])

        @Messagebox("Button 1 wurde gedrückt","Buttonklick",64)
        SetMenuitem 0

    endif

    IF @ButtonClicked(Button&[2])

        @Messagebox("Button 2 wurde gedrückt","Buttonklick",64)
        SetMenuitem 0

    endif

    IF @ButtonClicked(Button&[3])

        @Messagebox("Button 3 wurde gedrückt","Buttonklick",64)
        SetMenuitem 0

    endif

    IF @ButtonClicked(Button&[4])

        @Messagebox("Button 4 wurde gedrückt","Buttonklick",64)
        SetMenuitem 0

    endif

    IF @ButtonClicked(Button&[5])

        @Messagebox("Button 5 wurde gedrückt","Buttonklick",64)
        SetMenuitem 0

    endif

./function-references/xprofan/wend/'>wend