1 button, 2 funkcje

[m4rcin93]

Jak wywołać za pierwszym kliknięciem funkcje X w button w GUI, a za drugim funkcje Y, za trzecim X, za czwartym Y i tak w kółko?

[tapne]

$a=0
case $button
$a=$a+1
if $a=3 then $a=1
if $a=1 then
X
else if $a=2 then
Y

 

zakończ ify i powinno śmigać

 

@down byłem szybszy ;]

[Ballas]

#include <GUIConstantsEx.au3>
$gui = GUICreate("", 100, 100)
$button = GUICtrlCreateButton("button",0,0,100,100)
$licznik = 0
GUISetState(@SW_SHOW, $gui)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button
If $licznik = 0 Then
x()
$licznik = 1
Else
y()
$licznik = 0
EndIf
EndSwitch
WEnd
Func x()
MsgBox(0,"","X")
EndFunc
Func y()
MsgBox(0,"","Y")
EndFunc

 

@Up Cieszę się z tego powodu, nie chce pomóc tobie tylko autorowi tematu. Poza tym mój kod jest prostszy.

[m4rcin93]

@up

Dzięki, działa.

[jackraymund]

możesz też sprawdzać nazwe buttona, bardziej przejrzysty kod wtedy jest + łatwa rozbudowa

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 449, 192, 114)
$Button1 = GUICtrlCreateButton("Button1", 16, 16, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
switch guictrlread($button1)
case "Button1"
msgbox(0,"","Button1")
guictrlsetdata($button1,"Button2")
case "Button2"
msgbox(0,"","Button2")
guictrlsetdata($button1,"Button3")
case "Button3"
msgbox(0,"","Button3")
guictrlsetdata($button1,"Button1")
EndSwitch
EndSwitch
WEnd