Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $Gui
Dim $Gui2
Dim $Items1[3]
Dim $Items2[3]
$Gui = GUICreate("test", 300, 300)
GUISetBkColor(0xFF0000)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
$Items1[0] = GUICtrlCreateInput("1", 5, 5, 50, 20)
$Items1[1] = GUICtrlCreateInput("2", 60, 5, 50, 20)
$Items1[2] = GUICtrlCreateInput("3", 115, 5, 50, 20)
GUISetState()
$Gui2 = GUICreate("", 290, 200, 5, 95, $WS_CHILD, -1, $Gui)
$Items2[0] = GUICtrlCreateInput("1", 5, 5, 50, 20)
$Items2[1] = GUICtrlCreateInput("2", 60, 5, 50, 20)
$Items2[2] = GUICtrlCreateInput("3", 115, 5, 50, 20)
GUISetState()
While(True)
Sleep(10)
WEnd
Func quit()
Exit
EndFunc