Alignement Haut de 2 GUI Centrées à l'écran
Posté : lun. 23 juil. 2018 12:16
Bonjour,
J'ai réussi à aligner les deux fenêtres mais je ne comprend pas trop comment car j'ai utilisé des valeurs en dur que j'ai trouvé à tâtons.
Est-ce que quelqu'un pourrait m'expliquer le pourquoi du comment ?
Merci.
J'ai réussi à aligner les deux fenêtres mais je ne comprend pas trop comment car j'ai utilisé des valeurs en dur que j'ai trouvé à tâtons.
Est-ce que quelqu'un pourrait m'expliquer le pourquoi du comment ?
Merci.
Code : Tout sélectionner
#include <Constants.au3>
#include <GuiConstants.au3>
;~ CREATION DE LA FENETRE PRINCIPALE
Global $MyPrincipalGui = GUICreate("MA GUI PRINCIPALE", 800, 600, @DesktopWidth/2-400, @DesktopHeight/2-300, -1, $WS_EX_TOOLWINDOW + $WS_EX_WINDOWEDGE) ; TAILLE (800x600)
GUISetBkColor($COLOR_WHITE) ; SUR FOND BLANC
;~ CREATION LABEL TEXTE
GUICtrlCreateLabel("CLIQUER SUR LA FLECHE A DROITE :", 50, 15, 200, 25) ; TEXTE
Local $OptionsButtonShowGui = GUICtrlCreateButton("==>", 740, 10, 50, 25) ; CREATION DU BOUTON POUR LA FENETRE OPTION
;~ CREATION DE LA FENETRE OPTIONS
Global $MyPrincipalGuiOpt = GUICreate("Options", 200 , 100, @DesktopWidth/2-200+605, @DesktopHeight/2-100-200, -1, $WS_EX_TOOLWINDOW + $WS_EX_WINDOWEDGE)
GUISetBkColor($COLOR_WHITE) ; SUR FOND BLANC
;~ GUISetState(@SW_SHOW, $MyPrincipalGuiOpt)
GUISetState(@SW_SHOW, $MyPrincipalGui)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
_do_exit_stuff()
Case $msg = $OptionsButtonShowGui
GUISetState(@SW_SHOW, $MyPrincipalGuiOpt)
GUICtrlSetData($OptionsButtonShowGui, "<==")
If ControlGetText("","", $OptionsButtonShowGui)= "<==" Then
GUISetState(@SW_HIDE, $MyPrincipalGuiOpt)
GUICtrlSetData($OptionsButtonShowGui, "==>")
EndIf
EndSelect
WEnd
Func _do_exit_stuff()
Exit
EndFunc ;==>_do_exit_stuff