Code : Tout sélectionner
#include <ListBoxConstants.au3>
#include <EditConstants.au3>
GUICreate("Créer une alerte par TERMINATORN", 300, 300)
$quit = GUICtrlCreateButton("Quit", 90, 250, 60, 25)
$create = GUICtrlCreateButton("Créer", 150, 250, 60, 25)
$icon = GUICtrlCreateList("0", 20, 107, 121, 97)
GUICtrlSetData($icon, "16")
GUICtrlSetData($icon, "32")
GUICtrlSetData($icon, "48")
GUICtrlSetData($icon, "64")
$title = GUICtrlCreateEdit ( "TITRE", 20, 10, 121, 97)
$mess = GUICtrlCreateEdit("MESSAGE", 140, 10, 121, 97)
$buton = GUICtrlCreateList("1", 140, 107, 121, 97)
GUICtrlSetData($buton, "0")
GUICtrlSetData($buton, "1")
GUICtrlSetData($buton, "2")
GUICtrlSetData($buton, "3")
GUICtrlSetData($buton, "4")
GUICtrlSetData($buton, "5")
GUICtrlSetData($buton, "6")
GUISetState(@SW_SHOW)
$msg = ""
While 1
Sleep(12)
$msg = GUIGetMsg()
Select
Case $msg = $quit
GUIDelete()
Exit
Case $msg = $create
MsgBox($icon+$buton, $title, $mess)
ExitLoop
EndSelect
WEnd
Et j'ai 2 erreurs :
- Les valeurs dans les Listes GUI et les Edit GUI ne sont pas affichées dans la msgbox
- La msgbox ne se créer pas lors de l'appuie sur le bouton "CREER"