[R] Faire apparaitre un controle dans une GUI

[Apprentiweb]

Bonjour à tous,

Je cherche a faire apparaitre un controle "input" en fonction d'une case à cocher.

Auriez vous une piste ?

Merci d'avance

[Narmeke]

Il y a plusieurs façon de faire !

En voici 2 :

== Première ==
============
La première consiste a déplacer le contrôle !
C'est a dire a déplacer le contrôle en dehors de la fenêtre de façon a ce qu'il ne soit plus visible. Je pense que cette méthode et la mieux, mais peut être pas la plus simple !

Je vous laisse recueillir des informations sur cette solution.

== Deuxième ==
============
La deuxième quand a elle me semble plus simple !
Car cette fois si nous n'allons pas déplacer le controle, mais plutôt le détruire afin de le recréer par la suite.

Un peu barbare mais bon...

== Globalement ==
==============
Globalement, dans tous les cas vous devez vérifier que la case est cocher !
Pour cela, une fonction existe sur le Forum. Je vous laisse utiliser l'outil de recherche afin de la trouvé. Sinon l'ont peut faire comme si l'ont vérifier que la case est cocher.

Pour cela lors de l'appuie sur la radio-box, nous allons exécuter l'action désirer.

Pour aller plus vite, je vous est fais petit code. Mais avant de le lire tenter de le faire par vous même !

Voici l'exemple :

► Afficher le texte

Code : Tout sélectionner

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

Global $LEFT = 56
Global $TOP = 72

$WINDOWS = GUICreate("By Narmeke \(^_^)/", 490, 113, 275, 150)
$INPUT_MAGIQE = GUICtrlCreateInput("Cette input est afficher !!", $LEFT, $TOP, 385, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$CHOIX_AFFICHER = GUICtrlCreateRadio("Afficher", 56, 32, 177, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$CHOIX_MASQUER = GUICtrlCreateRadio("Masquer", 248, 24, 185, 33)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit ;Quitte le script
        Case $CHOIX_MASQUER
            GUICtrlDelete ($INPUT_MAGIQE) ;On détruit le controle
        Case $CHOIX_AFFICHER
            Global $INPUT_MAGIQE = GUICtrlCreateInput("Cette input est afficher !!", $LEFT, $TOP, 385, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL)) ;On recréer l'input !!
    EndSwitch
WEnd
 

Dans ce code nous ne rencontrons aucun problème car lors de l'appui sur une radio-box, celle-ci se coche automatiquement !!

Cette solution est plutôt simple et pas celle que j'utilise habituellement mais avec ce que vous recherchiez cela correspond on ne peux plus mieux

En éspérant avoir résolu votre problème !!

Cordialement Narmeke

[DJSIR]

Et si on le cachait avec $GUI_HIDE et $GUI_SHOW ?

[Apprentiweb]

Merci à tous 2.

Je ne sais pas où j'étais parti mais je cherchais un truc bien plus compliqué ............

Maintenant je n'ai plus qu'a adapter l'exemple à mon besoin.

Encore merci.

Je vais écrirer mon code et le valider avant de placer la balise de résolution

[Narmeke]

Si résolu, veuillez éditer votre premier post et changer la balise [..] en [R]

Thhannkks !!

[Apprentiweb]

Voila,

Après quelques tests afin d'avoir l'interface voulue et les réactions voulues

Ca fonctionne

► Afficher le texte

Code : Tout sélectionner

;
;##################################
; Include
;##################################
#Include<file.au3>
#Include <Constants.au3>
#include <file.au3>
#include <inet.au3>
#include <Array.au3>
#include <GUIConstants.au3>
;##################################

;Définition de la boite de dialogue
GUICreate("Remplacement", 200, 150)

$Migration = GUICtrlCreateRadio("Migration", 10, 10, 150, 15)
$Remplace = GUICtrlCreateRadio("Remplacement", 10, 30, 150, 15)

$valetiqancienPA = GUICtrlCreateLabel("Ancien PA : ", 10, 65)
$valancienPA = GUICtrlCreateInput("", 75,60,75)
GUICtrlSetState($valancienPA, $GUI_HIDE)
GUICtrlSetState($valetiqancienPA, $GUI_HIDE)

$boutonvalider = GUICtrlCreateButton("Valider", 10, 110, 75, 25)
$boutonfermer = GUICtrlCreateButton("Annuler", 115, 110, 75, 25)

;Affichage de la boite de dialogue
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()

    Switch $msg
        ;Arret du bouton Fermer ou ESC
        Case $GUI_EVENT_CLOSE
            ExitLoop
            
        case $boutonfermer
            ExitLoop

;~          ;Traitement
        Case $Migration
;~          GUICtrlDelete($valancienPA) 
            GUICtrlSetState($valancienPA, $GUI_HIDE)
            GUICtrlSetState($valetiqancienPA, $GUI_HIDE)
            
        case $Remplace
            GUICtrlSetState($valancienPA, $GUI_SHOW)
            GUICtrlSetState($valetiqancienPA, $GUI_SHOW)
        
        Case $boutonvalider
            $valmigration = GUICtrlRead($Migration)
            $valremplac = GUICtrlRead($Remplace)
            $valancienPA2 = GUICtrlRead($valancienPA)
            ; Action si remplacement du poste
        ExitLoop
    EndSwitch
Wend