Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUICtrlOnHover.au3>
Opt("GuiOnEventMode", 1)
Global $a[7][2]
$GUI = GUICreate("GUI",500, 200, -1, -1)
$label = GUICtrlCreateLabel("A", 216, 5, 68, 70)
GUICtrlSetbkColor(-1, 0xBDC6CF)
$image = GUICtrlCreatePic(@ScriptDir&"\images.jpg",221, 10, 58, 60)
$bSuivant = GUICtrlCreateLabel(@TAB&"OK", 210, 160, 90, 30, $SS_CENTERIMAGE)
GUICtrlSetBkColor(-1, 0xdddddd)
GUISetOnEvent($GUI_EVENT_CLOSE, "SpecialEvents")
_GUICtrlSetOnHover($bSuivant, "_In", "_Out", "_Clic", "_Relache")
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Func SpecialEvents()
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
EndSelect
EndFunc
Func _In($CtrlID, $Param, $Param2)
GUICtrlSetBkColor($CtrlID, 0xffffff)
EndFunc
Func _Out($CtrlID, $Param, $Param2)
GUICtrlSetBkColor($CtrlID, 0xdddddd)
EndFunc
Func _Clic($CtrlID, $Param, $Param2)
For $i = 0 To 6
$a[$i][0] = GUICtrlCreateLabel($i, $i*72, 80, 68, 70)
GUICtrlSetbkColor(-1, 0xBDC6CF)
$a[$i][1] = GUICtrlCreatePic("",$i*72+5, 85, 58, 60)
GuiCtrlSetImage($a[$i][1], @ScriptDir&"\images.jpg")
Sleep(500)
Next
EndFunc
