Code : Tout sélectionner
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Global $TITRE
Global $TABLE
Global $TXT1
Global $INT1
Global $INT1_1
Global $TXT2
Global $INT2
Global $INT2_2
Global $TXT3
Global $INT3
Global $INT3_3
Global $QUITTER
Global $SAVE
Global $TERMINER
Global $INFO = "INFO"
$TITRE = GUICreate("CREDIT", 482, 497, 341, 51)
GUISetOnEvent($GUI_EVENT_CLOSE, "OK_QUITTER")
$TABLE = GUICtrlCreateTab(8, 16, 465, 425)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("PAGE 1")
$TXT1 = GUICtrlCreateLabel("NOM :", 24, 64, 35, 17)
$INT1 = GUICtrlCreateInput("", 24, 88, 121, 21)
$TXT2 = GUICtrlCreateLabel("PRENOM :", 24, 120, 57, 17)
$INT2 = GUICtrlCreateInput("", 24, 144, 121, 21)
$TXT3 = GUICtrlCreateLabel("PSEUDO :", 24, 176, 55, 17)
$INT3 = GUICtrlCreateInput("", 24, 200, 121, 21)
$QUITTER = GUICtrlCreateButton("Quitter", 216, 456, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "OK_QUITTER")
$SAVE = GUICtrlCreateButton("Enregistrer", 304, 456, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "OK_SAVE")
$TERMINER = GUICtrlCreateButton("Terminer", 392, 456, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "OK_TERMINER")
GUICtrlCreateTabItem("PAGE 2")
GUICtrlCreateTabItem("PAGE 3")
GUICtrlCreateTabItem("PAGE 4")
GUISetState(@SW_SHOW)
While 1
Sleep(10)
WEnd
;========================================
;============= FUNCTION =============
;========================================
Func OK_SAVE()
$INT1_1 = GUICtrlRead($INT1)
$INT2_2 = GUICtrlRead($INT2)
$INT3_3 = GUICtrlRead($INT3)
IniWrite("PAGE1.ini","INFO","NOM", $INT1_1)
IniWrite("PAGE1.ini","INFO","PRENOM", $INT2_2)
IniWrite("PAGE1.ini","INFO","PSEUDO", $INT3_3)
EndFunc
Func OK_TERMINER()
OK_SAVE()
Exit 0
EndFunc
Func OK_QUITTER()
Exit 0
EndFunc