Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[R] Gui - Empêcher les boutons de bouger
Auteur Message
Répondre en citant
Message [R] Gui - Empêcher les boutons de bouger 
Bonjour à tous,

J'ai un soucis lorsque j'agrandis ma fenêtre pour qu'elle prenne tout l'écran, j'ai les boutons qui bougent, je souhaiterai que les boutons ne s'écartent pas, comment faire ?

J'ai tenté d'utiliser GUICtrlSetResizing
http://www.autoitscript.com/autoit3/docs/functions/GUICtrlSetResizing.htm
mais ça fonctionne pas.
Code:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#Region ### START Koda GUI section ### Form=
Global $_1_1 = GUICreate("OPT_SearchWEB BY Laddy", 889, 571, -1, -1, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUICtrlSetResizing($_1_1, $GUI_DOCKAUTO + $GUI_DOCKBOTTOM + $GUI_DOCKTOP) ; permet d'agrandir la fenêtre en grand.
Global $rapport = GUICtrlCreateInput("", 136, 8, 481, 21)
Global $Path = GUICtrlCreateButton("Parcourir", 632, 8, 75, 25, $WS_GROUP)
Global $Edit = GUICtrlCreateEdit("", 16, 56, 862, 438)
GUICtrlSetState($Edit, $GUI_FOCUS)
Global $SystemlookupButton = GUICtrlCreateButton("SystemlookUp", 3, 504, 100, 31, $WS_GROUP)
Global $StartupList = GUICtrlCreateButton("StartUpList", 105, 504, 70, 31, $WS_GROUP)
Global $SyslogButton = GUICtrlCreateButton("Syslog", 177, 504, 57, 31, $WS_GROUP)
Global $Threatexpert = GUICtrlCreateButton("Threatexpert", 234, 504, 75, 31, $WS_GROUP)
Global $Processlibary = GUICtrlCreateButton("ProcessLibrary", 310, 504, 75, 31, $WS_GROUP)

GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
      Case $Path
            $OpenDialog = FileOpenDialog("Ouvrir le rapport", @DesktopDir & "\", "rapport (*.txt;*.log)", 1) ; ouverture du fichier placé sur le bureau au format txt, log
         GUICtrlSetData($rapport, $OpenDialog) ; controle le fichier de la dialogbox dans l'inputbox$
         $file = FileOpen($OpenDialog, 0)
         $ligne = FileRead($file)
         GUICtrlSetData($Edit, $ligne) ; et on injecte la ligne dans la liste

      Case $SyslogButton
   
      Case $SystemlookupButton
         
      Case $StartupList

                Case $Threatexpert

                Case $Processlibary
   
   
        Case $GUI_EVENT_CLOSE
            ExitLoop

    EndSwitch
    Sleep(30)

Merci



Dernière édition par Laddy le Sam 9 Avr 2011 - 14:54; édité 1 fois

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


Répondre en citant
Message [R] Gui - Empêcher les boutons de bouger 
Si j'ai bien compris tu voudrais que quand tu mettes ta fenêtres en plein écran, les boutons se redimensionnement mais ne s’écartent pas.
Tu peux utiliser ma technique et ne pas mettre la formule dans les position des boutons.
sinon il doit être possible de créer une double Gui.
Dans un premier temps tu créé ta Form avec le Resizing.
Puis tu appelles ta fonction avec les boutons et la boucle Switch à l'intérieur.

Cordialement, Guerrion24



Répondre en citant
Message [R] Gui - Empêcher les boutons de bouger 
Exacte,
je souhaite que les boutons restent en position au moins.

je veux conserver le fait de cliqusur le bouton pour grandir ma gui, avec ta technique je ne vois pas comment m' y prendre.
Avec deux gui ? je ne vois pas non plus, n'hésite pas à trifouiller mon code.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [R] Gui - Empêcher les boutons de bouger 
Bonjour Laddy,

J'avais mal lu ta demande et j'avais pris ce défi nu peu trop à la légère ! Mort de Rire
En fait c’était une vrai torture mais ça m'a appris des choses donc ça m'a été aussi utile. Okay

Sinon pour blablater je peux te dire que la solution se trouvait dans $GUI_EVENT_MAXIMIZE et évidement dans $GUI_EVENT_RESTORE pour le sens inverse.
Il faut aussi utiliser GuiCtrlSetPos.

Ce que je peux dire c'est que c'est une technique longue et fastidieuse, et peut-être qu'elle ne te conviendra pas car elle pose un problème.
Lorsque je met à jour la taille et la position des boutons il faut obligatoirement que se soit des nombres différents.
J'ai donc amputé les valeurs de bases de 1 pour le MAXIMIZE
et j'ai rajouté 1 pour le RESTORE.

Code:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>
#Region ### START Koda GUI section ### Form=
Global $_1_1 = GUICreate("OPT_SearchWEB BY Laddy", 889, 571, -1, -1, BitOR($WS_MAXIMIZEBOX,$WS_GROUP,$WS_MINIMIZEBOX,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPED,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
Global $rapport = GUICtrlCreateInput("", 136, 8, 481, 21)
Global $Path = GUICtrlCreateButton("Parcourir", 632, 8, 75, 25, $WS_GROUP)
Global $Edit = GUICtrlCreateEdit("", 16, 56, 862, 438)
GUICtrlSetState($Edit, $GUI_FOCUS)
Global $SystemlookupButton = GUICtrlCreateButton("SystemlookUp", 3, 504, 100, 31, $WS_GROUP)
Global $StartupList = GUICtrlCreateButton("StartUpList", 105, 504, 70, 31, $WS_GROUP)
Global $SyslogButton = GUICtrlCreateButton("Syslog", 177, 504, 57, 31, $WS_GROUP)
Global $Threatexpert = GUICtrlCreateButton("Threatexpert", 234, 504, 75, 31, $WS_GROUP)
Global $Processlibary = GUICtrlCreateButton("ProcessLibrary", 310, 504, 75, 31, $WS_GROUP)

GUISetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
      Case $Path
            $OpenDialog = FileOpenDialog("Ouvrir le rapport", @DesktopDir & "\", "rapport (*.txt;*.log)", 1) ; ouverture du fichier placé sur le bureau au format txt, log
         GUICtrlSetData($rapport, $OpenDialog) ; controle le fichier de la dialogbox dans l'inputbox$
         $file = FileOpen($OpenDialog, 0)
         $ligne = FileRead($file)
         GUICtrlSetData($Edit, $ligne) ; et on injecte la ligne dans la liste

      Case $SyslogButton

      Case $SystemlookupButton

      Case $StartupList

                Case $Threatexpert

                Case $Processlibary


        Case $GUI_EVENT_CLOSE
            ExitLoop
      Case $GUI_EVENT_MAXIMIZE
         GUICtrlSetPos($rapport,135,7,480,20)
         GUICtrlSetPos($Path,631,7,74,24)
         GUICtrlSetPos($Edit,15, 55, 861, 437)
         GUICtrlSetPos($SystemlookupButton,2,503,99,30)
         GUICtrlSetPos($StartupList,104,503,69,30)
         GUICtrlSetPos($SyslogButton,176,503,56,30)
         GUICtrlSetPos($Threatexpert,233,503,74,30)
         GUICtrlSetPos($Processlibary,309,503,74,30)
      Case $GUI_EVENT_RESTORE
         GUICtrlSetPos($rapport,136,8,481,21)
         GUICtrlSetPos($Path,632,8,75,25)
         GUICtrlSetPos($Edit,16, 56, 862, 436)
         GUICtrlSetPos($SystemlookupButton,3,504,100,31)
         GUICtrlSetPos($StartupList,105,504,70,31)
         GUICtrlSetPos($SyslogButton,177,504,57,31)
         GUICtrlSetPos($Threatexpert,234,504,75,31)
         GUICtrlSetPos($Processlibary,310,504,75,31)
    EndSwitch
    Sleep(30)
WEnd




Répondre en citant
Message [R] Gui - Empêcher les boutons de bouger 
Bonjour
c'est intéressant mais je perds le bénéfice d'avoir la editbox en grand.
Je vais continuer de creuser...




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [R] Gui - Empêcher les boutons de bouger 
j'ai trouvé avec GUICtrlSetResizing

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=SearchWeb.ico
#AutoIt3Wrapper_outfile=OPT_SearchWeb.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiEdit.au3>

Global $selectedData
Global $1_1, $rapport, $Path, $Edit, $SystemlookupButton, $StartupList, $SyslogButton, $Threatexpert, $Processlibary, $Lbrapport, $LbMR

#Region ### START Koda GUI section ### Form=
$_1_1 = GUICreate("OPT_SearchWEB BY Laddy", 890, 572, -1, -1,BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))
GUICtrlSetResizing($_1_1, $GUI_DOCKAUTO + $GUI_DOCKBOTTOM + $GUI_DOCKTOP + $GUI_DOCKVCENTER)
$rapport = GUICtrlCreateInput("", 136, 8, 481, 21)
$Path = GUICtrlCreateButton("Parcourir", 632, 8, 75, 25, $WS_GROUP)
$Edit = GUICtrlCreateEdit("", 16, 88, 862, 470)
GUICtrlSetState($Edit, $GUI_FOCUS)
$SystemlookupButton = GUICtrlCreateButton("SystemlookUp", 139, 40, 100, 31, $WS_GROUP)
$StartupList = GUICtrlCreateButton("StartUpList", 241, 40, 70, 31, $WS_GROUP)
$SyslogButton = GUICtrlCreateButton("Syslog", 313, 40, 57, 31, $WS_GROUP)
$Threatexpert = GUICtrlCreateButton("Threatexpert", 370, 40, 75, 31, $WS_GROUP)
$Processlibary = GUICtrlCreateButton("ProcessLibrary", 446, 40, 75, 31, $WS_GROUP)
$Lbrapport = GUICtrlCreateLabel("Rapport : ", 64, 8, 51, 17)
$LbMR = GUICtrlCreateLabel("Moteur de recherche", 8, 48, 103, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


  GUICtrlSetResizing($Lbrapport, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE)
   GUICtrlSetResizing($lbMR, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKSIZE)
   GUICtrlSetResizing($rapport, $GUI_DOCKRIGHT + $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKHEIGHT)
   GUICtrlSetResizing($Path,$GUI_DOCKRIGHT + $GUI_DOCKSIZE + $GUI_DOCKTOP)
   GUICtrlSetResizing($SystemlookupButton, $GUI_DOCKALL)
   GUICtrlSetResizing($StartupList, $GUI_DOCKALL)
   GUICtrlSetResizing($SyslogButton,$GUI_DOCKALL)
   GUICtrlSetResizing($Threatexpert, $GUI_DOCKALL)
   GUICtrlSetResizing($Processlibary,$GUI_DOCKALL)

While 1
    $msg = GUIGetMsg()
    Switch $msg
      Case $Path
            $OpenDialog = FileOpenDialog("Ouvrir le rapport", @DesktopDir & "\", "rapport (*.txt;*.log)", 1) ; ouverture du fichier placé sur le bureau au format txt, log
         GUICtrlSetData($rapport, $OpenDialog) ; controle le fichier de la dialogbox dans l'inputbox$
         $file = FileOpen($OpenDialog, 0)
         $ligne = FileRead($file)
         GUICtrlSetData($Edit, $ligne) ; et on injecte la ligne dans la liste

      Case $SyslogButton
   
      Case $SystemlookupButton
         
      Case $StartupList

                Case $Threatexpert

                Case $Processlibary
   
   
        Case $GUI_EVENT_CLOSE
            ExitLoop

    EndSwitch
    Sleep(30)
Wend





______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message [R] Gui - Empêcher les boutons de bouger 


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