Guest User

Untitled

a guest
Jun 5th, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.53 KB | None | 0 0
  1. #include <GuiConstants.au3>
  2.  
  3. $hGui = GUICreate("GUI di prova")
  4. $Pulsante1 = GUICtrlCreateButton("Pulsante 1", 100, 100)
  5. $Pulsante2 = GUICtrlCreateButton("Pulsante 1", 100, 150)
  6.  
  7. GUISetState(@SW_SHOW)
  8.  
  9. While 1
  10.     $nMsg = GUIGetMsg()
  11.     Switch $nMsg
  12.         Case $GUI_EVENT_CLOSE
  13.             Exit
  14.         Case $Pulsante1
  15.             FunzioneUno()
  16.         Case $Pulsante2
  17.             FunzioneDue()
  18.     EndSwitch
  19. WEnd
  20.  
  21. Func FunzioneUno()
  22.     MsgBox(64,"", "Hai premuto il primo pulsante!")
  23. EndFunc
  24.  
  25. Func FunzioneDue()
  26.     MsgBox(64,"", "Hai premuto il secondo pulsante!")
  27. EndFunc
Add Comment
Please, Sign In to add comment