AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

$gui = GUICreate("test", 200, 100) 
$btn = GuiCtrlCreateButton("clic", 20, 20, 80, 30)
GUISetState()

While 1
$msg = GUIGetMsg()
   Select
      Case $msg =  $GUI_EVENT_CLOSE
          Exit
     Case $msg = $btn
          MsgBox(0, "", "clic gauche sur le controle")
     Case $msg = $GUI_EVENT_SECONDARYDOWN
          $a = GUIGetCursorInfo($gui)
          If $a[4] = $btn Then MsgBox(0, "", "clic droit sur le controle")
   EndSelect
WEnd

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

$gui = GUICreate("test", 200, 100)
$btn = GuiCtrlCreateButton("clic", 20, 20, 80, 30)
GUICtrlSetOnEvent(-1, "_events")
GUISetOnEvent($GUI_EVENT_SECONDARYDOWN, "_events")
GUISetOnEvent($GUI_EVENT_CLOSE, "_events")
GUISetState()

While 1
Sleep(10)
WEnd

Func _events()
    Select
       Case @GUI_CtrlId = $GUI_EVENT_CLOSE
            Exit
        Case @GUI_CtrlId = $GUI_EVENT_SECONDARYDOWN
            $a = GUIGetCursorInfo($gui)
            If $a[4] = $btn Then MsgBox(0, "", "clic droit sur le controle")
       Case @GUI_CtrlId = $btn
            MsgBox(0, "", "clic gauche sur le controle")
   EndSelect
EndFunc