AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Dim $Gui
Dim $Pic[20][20]
Dim $Img = False
Dim $Compteur = 0

$Gui = GUICreate("test", 410, 410)
For $j = 0 To 19
	For $i = 0 To 19
		$Pic[$j][$i] = GUICtrlCreatePic("0.bmp", 5+20*$i, 5+20*$j, 16, 16)
	Next
Next
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
GUISetState()

While(True)
	$Img = Not $Img
	If($Img) Then
		For $j = 0 To 19
			For $i = 0 To 19
				GUICtrlSetImage($Pic[$j][$i], "1.bmp")
			Next
		Next
	Else
		For $j = 0 To 19
			For $i = 0 To 19
				GUICtrlSetImage($Pic[$j][$i], "0.bmp")
			Next
		Next
	EndIf
	$Compteur += 1
	ToolTip($Compteur)
	Sleep(10)
WEnd

Func quit()
	Exit
EndFunc
[code][/spoiler]

Petit screen de l'application pour les curieux ^^

Ps : Tlem, si tu/vous as/avez une autre solution que les GUICtrlCreatePic(...) pour dessiner des images à l'écran (qui ne ferai pas planter le programme) je suis preneur.