[R] Redimensionnement automatique

[Kagami]

Bonsoir,

Sans tarder je vous expose mon problème.
Dans mon script, je voudrais que, quand la personne entre le bon Mot de Passe et clique sur le bouton "Afficher le logiciel", la GUI s'agrandit vers la droite et le bas pour faire apparaitre le reste du logiciel. Et, je voudrais faire que, quand il clique sur le bouton, la GUI s'agrandisse petit à petit.
Je sais que c'est possible car je l'ai déjà vu.
Comme pour ce logiciel, (Je sais, c'est un hack...), ce que je veux faire se trouve à 22 secondes.
http://www.youtube.com/watch?v=6FatV3MM ... re=related
Merci de vos réponses.
Kagami

[Tlem]

Voici une version basique de ce que vous demandez :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 375, 180, -1, -1)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Button1 = GUICtrlCreateButton("OK", 16, 48, 75, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Input1 = GUICtrlCreateInput("", 16, 16, 121, 21)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 248, 16, 81, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 248, 48, 81, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 248, 80, 81, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Radio1 = GUICtrlCreateRadio("Radio1", 16, 128, 65, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Radio2 = GUICtrlCreateRadio("Radio2", 88, 128, 65, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Radio3 = GUICtrlCreateRadio("Radio3", 176, 128, 65, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Size = WinGetPos($Form1)
WinMove ( $Form1, "", $Size[0], $Size[1], 190, 125, 1)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            For $i = 190 To 350
                WinMove ( $Form1, "", $Size[0], $Size[1], $i, 125, 1 )
                Sleep(5)
            Next
            For $i = 125 To 200
                WinMove ( $Form1, "", $Size[0], $Size[1], 350, $i, 1 )
                Sleep(5)
            Next

    EndSwitch
WEnd

[bloodwolff]

Le même code que tlem sauf qu'il prend 3 ligne en moins et gère le verticale et l'horizontale en même temps , ce qui d'après moi est plus jolie

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>



#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 375, 180, -1, -1)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Button1 = GUICtrlCreateButton("OK", 16, 48, 75, 25)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Input1 = GUICtrlCreateInput("", 16, 16, 121, 21)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 248, 16, 81, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 248, 48, 81, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 248, 80, 81, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Radio1 = GUICtrlCreateRadio("Radio1", 16, 128, 65, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Radio2 = GUICtrlCreateRadio("Radio2", 88, 128, 65, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$Radio3 = GUICtrlCreateRadio("Radio3", 176, 128, 65, 17)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Size = WinGetPos($Form1)
WinMove ( $Form1, "", $Size[0], $Size[1], 190, 125, 1)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
            If GUICtrlRead($Input1) = "Mot de passe" Then ; À remplacer par le mot de passe
                For $i = 0 To 1 Step 0.01 ;Pour changer la vitesse augmenter ce chiffre 0.01 étant lent et 0.10 étant assez rapide
                    WinMove ( $Form1, "", $Size[0], $Size[1], 190 + (185*$i), 125 + (75*$i))
                    ;Le 190 est la largeur initiale, le 185 est la largeur finale - largeur initiale (375-190)
                    ;Le 125 est la hauteur initiale, le 75 est la hauteur finale - largeur initiale (200-125)
                    Sleep(5)
                Next
            Else
                MsgBox(16,"Erreur","Mauvais mot de passe!")
            EndIf
    EndSwitch
WEnd

Edit: Rajout de la vérification du mot de passe et de commentaire pour rendre la modification du script simple à comprendre

[Tlem]

Yes.
Je suis trop crevé ce soir pour avoir pensé le calcul des coefficients :

Code : Tout sélectionner

WinMove ( $Form1, "", $Size[0], $Size[1], 190 + [color=#FF0000](185*$i)[/color], 125 + [color=#FF0000](75*$i)[/color], 1 )

C'est très bien trouvé.
Allez, je m'en vais au dodo.

[bloodwolff]

Aucun point négatif et même des félicitations

[Kagami]

Merci, je passe en Résolu

[Tlem]

@bloodwolff
Comme de quoi tout peut arrivé lorsqu'on s'en donne la peine.