AutoIt Français

Code : Tout sélectionner

$quitter = GUICtrlCreateMenuItem("Quitter        Ctrl+Q", $menu)

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>

HotKeySet("^q", "Fin")
HotKeySet("{F1}", "Help")

dim $idNew
dim $idOpen
dim $idSave
dim $idExit

$height = @DesktopHeight-200
$width = @DesktopWidth - 100

GUICreate("Souris", 200, 100, 1000 , 600, $WS_OVERLAPPEDWINDOW)


GUICtrlCreateLabel("x=", 10, 10)
$x = GUICtrlCreateLabel("0", 30, 10, 50,50)
GUICtrlCreateLabel("y=", 10, 30)
$y = GUICtrlCreateLabel("0", 30, 30, 50,50)
GUICtrlCreateLabel("c=", 10, 50)
$c = GUICtrlCreateLabel("000000", 30, 50, 50,50)
$bk = GUICtrlCreateGraphic(100, 10, 50, 50)

$hFile = GUICtrlCreateMenu("Fichier")
$quitter = GUICtrlCreateMenuItem("Quitter", $hfile)
$about = GUICtrlCreateMenuItem("À propos de...", $hfile )

$hHelp = GUICtrlCreateMenu("?")
$Aide = GUICtrlCreateMenuItem("Aide", $hHelp)

GUISetState(@SW_SHOW)

Do
_pos()
Sleep(10)
$msg = GUIGetMsg()
Select
    
Case $msg = $GUI_EVENT_CLOSE Or $msg = $quitter 
    Exit 0


Case $msg = $about 
    msgbox(4096, "À propos", "Fait par Varal7")


Case $msg = $Aide 
    Call("Help")
EndSelect

until $msg = $GUI_EVENT_CLOSE
exit 0



func _pos()
$pos = MouseGetPos()
$color = PixelGetColor($pos[0], $pos[1])
GUICtrlSetData ($x, $pos[0])
GUICtrlSetData ($y, $pos[1])
GUICtrlSetData ($c, Hex($color, 6))
GUICtrlSetBkColor($bk, $color)
Endfunc

Func Fin()
Exit 0
EndFunc

func Help()
    msgbox(64, "Aide", "Bouger la souris...")
EndFunc