Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Astuce] Redimensionner une Gui en plein écran
Auteur Message
Répondre en citant
Message [Astuce] Redimensionner une Gui en plein écran 
Bonjour à tous

Voici un exemple de code utilisant la fonction GuiCtrlSetResizing pour les détails des paramètres je vous laisse lire la documentation
C'est un code de base qui demande à évoluer dans si vous vez des idées n'hésitez pas.
La seule chose qui ne se déplace pas c'est la listview au niveau largeur de colonne.
os dev : xp pro
Code:

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $_1_1 = GUICreate("GUIRESIZE", 888, 570, -1, -1, $WS_OVERLAPPEDWINDOW)
GUICtrlSetResizing($_1_1, $GUI_DOCKAUTO + $GUI_DOCKBOTTOM + $GUI_DOCKTOP)
Global $List1 = GUICtrlCreateListView("Lignes", 8, 40, 784, 500, -1, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_CHECKBOXES))
GUICtrlSendMsg($List1, $LVM_SETCOLUMNWIDTH, 0,780)

#Region ##Creation de sboutons
Global $OPT = GUICtrlCreateButton("Bouton 1", 804, 40, 75, 25, $WS_GROUP)
Global $S_D = GUICtrlCreateButton("Bouton 2", 804, 72, 75, 25, $WS_GROUP)
Global $CTF_D = GUICtrlCreateButton("Bouton 3", 804, 104, 75, 25, $WS_GROUP)
#EndRegion ##

#Region ### Inputbox
Global $Input = GUICtrlCreateInput("", 136, 8, 481, 21)
Global $Path = GUICtrlCreateButton("Parcourir", 632, 8, 75, 25, $WS_GROUP)
Global $Input = GUICtrlCreateLabel("Choisir un txt :", 8, 8, 95, 17)
#EndRegion ##


#Region ### Legende
Global $Group1 = GUICtrlCreateGroup("Légende", 800, 472, 81, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Graphic1 = GUICtrlCreateGraphic(802, 480, 10, 10)
Global $Label1 = GUICtrlCreateLabel("01", 824, 488, 36, 17)
GUICtrlSetFont($Label1,8)
GUICtrlSetGraphic($Graphic1, $GUI_GR_COLOR, 0xFF0000,0xFF0000) ; rouge
GUICtrlSetGraphic($Graphic1, $GUI_GR_RECT, 10, 10, 10, 10)
Global $Graphic2 = GUICtrlCreateGraphic(802, 495, 10, 10)
global $Label2 = GUICtrlCreateLabel("02", 824, 503, 36, 17)
GUICtrlSetFont($Label2,8)
GUICtrlSetGraphic($Graphic2, $GUI_GR_COLOR, 0x3333CC,0x3333CC) ;bleu
GUICtrlSetGraphic($Graphic2, $GUI_GR_RECT, 10, 10, 10, 10)
Global $Graphic3 = GUICtrlCreateGraphic(802, 510, 10, 10)
Global $Label3 = GUICtrlCreateLabel("03", 824, 519, 36, 17)
GUICtrlSetFont($Label3,8)
GUICtrlSetGraphic($Graphic3, $GUI_GR_COLOR, 0xFF9900,0xFF9900) ;orange
GUICtrlSetGraphic($Graphic3, $GUI_GR_RECT, 10, 10, 10, 10)
Global $Graphic4 = GUICtrlCreateGraphic(802, 525, 10, 10)
Global $Label4 = GUICtrlCreateLabel("04", 824, 533, 36, 17)
GUICtrlSetFont($Label4,8)
GUICtrlSetGraphic($Graphic4, $GUI_GR_COLOR, 0x9966CC,0x9966CC) ;violet
GUICtrlSetGraphic($Graphic4, $GUI_GR_RECT, 10, 10, 10, 10)
Global $Graphic5 = GUICtrlCreateGraphic(802, 540, 10, 10)
Global $Label5 = GUICtrlCreateLabel("04", 824, 549, 36, 17)
GUICtrlSetFont($Label5,8)
GUICtrlSetGraphic($Graphic5, $GUI_GR_COLOR, 0x996600,0x996600) ;marron
GUICtrlSetGraphic($Graphic5, $GUI_GR_RECT, 10, 10, 10, 10)
#EndRegion ## Fin de la légende


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
      $msg = GUIGetMsg()

      If $msg = $GUI_EVENT_CLOSE Then ExitLoop
   WEnd





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch