[R] Cacher / Afficher tout les controles d'un groupe

[jl56]

Bonjour à tous

Je voulais faire un truc que je pensais simple a savoir cacher ou afficher un groupe et son contenu

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=C:\pi\wbadminpi\test group.kxf
Global $Form1_1 = GUICreate("Form1", 548, 343, 192, 124)
Global $Group1 = GUICtrlCreateGroup("Group1", 36, 20, 381, 210)
Global $Button2 = GUICtrlCreateButton("Button2", 89, 97, 75, 25)
Global $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 222, 57, 97, 17)
Global $Input1 = GUICtrlCreateInput("Input1", 239, 119, 121, 21)
Global $Input2 = GUICtrlCreateInput("Input2", 241, 96, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("Afficher group", 155, 259, 75, 25)
Global $Button1 = GUICtrlCreateButton("Cacher group", 27, 261, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$group_de_controle_1=$Group1&"#"&$Button2&"#"&$Checkbox1&"#"&$Input1&"#"&$Input2


While 1

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

     Case $Button1
         _guistate("hide", $group_de_controle_1)
     Case $Button3
         _guistate("show", $group_de_controle_1)

 EndSwitch
WEnd


Func _guistate($action_groupe, $group_de_controle)
    $liste_controle = StringSplit($group_de_controle, "#")
    If IsArray($liste_controle) Then
        For $i = 1 To $liste_controle[0]

            If StringLower($action_groupe) = "hide" Then GUICtrlSetState($liste_controle[$i], $GUI_hide)
            If StringLower($action_groupe) = "show" Then GUICtrlSetState($liste_controle[$i], $GUI_show)
            If StringLower($action_groupe) = "enable" Then GUICtrlSetState($liste_controle[$i], $GUI_enable)
            If StringLower($action_groupe) = "disable" Then GUICtrlSetState($liste_controle[$i], $GUI_disable)
        Next
    EndIf
EndFunc   ;==>_guistate
 

Mon script affiche ou cache le pourtour du groupe mais pas son contenue

Avez vous SVP une sugestion

Merci

JL56

[Tlem]

Bonjour jl56.
Pour faire ce genre de chose, il n'y a que deux solutions :

1 - Mémoriser chaque ID des contrôles à ne pas afficher dans un tableau, puis d'utiliser une fonction dédiée qui affichera ou pas l'élément (utilisation d'une boucle sur le tableau).

2 - Une autre solution consiste à utiliser une ruse ...
Au lieu de modifier chaque contrôles, il vous suffit de les masquer par un élément plus grand et non transparent. Par contre cela n'enlève pas l'accès aux contrôles masqués qui sont dans la liste des éléments accessible par tabulation. ^^


Envoyé de mon appareil mobile avec Tapatalk.

[jguinch]

Il y a ça : http://autoitscript.fr/forum/viewtopic.php?f=21&t=11486
Sinon, sur le forum US : https://www.autoitscript.com/forum/topi ... 16-jul-15/

[mdanielm]

Bonjour,
Je pense que le contrôle groupe n'a pas d'effet de groupe sur les contrôles qu'il contient sauf les boutons radio.
Il se réduit à une fine ligne qui entoure des contrôles.
J'ai rajouté du code dans les gestionnaires des événements.
j'ai aussi rajouté une 'fermeture du groupe' que j'ai vu dans l'exemple de la page: ???

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=

Global $Form1 = GUICreate("Form1", 616, 438, 192, 124)

Global $Group1 = GUICtrlCreateGroup("Group1", 114, 71, 381, 210)
GUIStartGroup()
Global $Button1 = GUICtrlCreateButton("cacher group", 167, 112, 75, 25)
Global $Button2 = GUICtrlCreateButton("Button2", 167, 148, 75, 25)
Global $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 300, 108, 97, 17)
Global $Input1 = GUICtrlCreateInput("Input1", 317, 170, 121, 21)
Global $Input2 = GUICtrlCreateInput("Input2", 319, 147, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button3 = GUICtrlCreateButton("Afficher group", 179, 343, 75, 25)

GUICtrlCreateGroup("", -99, -99, 1, 1) ; Ferme le groupe

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

     Case $Button1
         GUICtrlSetState($Group1, $GUI_HIDE)
         GUICtrlSetState($Input1, $GUI_HIDE)
         GUICtrlSetState($Input2, $GUI_HIDE)
         GUICtrlSetState($Button1, $GUI_HIDE)
         GUICtrlSetState($Button2, $GUI_HIDE)
         GUICtrlSetState($Checkbox1, $GUI_HIDE)
     Case $Button3
         GUICtrlSetState($Group1, $GUI_SHOW)
        GUICtrlSetState($Input1, $GUI_SHOW)
         GUICtrlSetState($Input2, $GUI_SHOW)
         GUICtrlSetState($Button1, $GUI_SHOW)
         GUICtrlSetState($Button2, $GUI_SHOW)
         GUICtrlSetState($Checkbox1, $GUI_SHOW)
 EndSwitch
WEnd

 

[jl56]

Bonjour a tous

Merci de vos réponses

Je vais suivre la proposition 1 de Tlem mais comme j'ajoute souvent des contrôles cela m’oblige a corriger les fonctions tanpis.

Merci à tous

JL56

[jl56]

Bonjour à tous

J'ai trouvé une solution a mon problème
Voir le code corrigé dans le 1er post

a la suite de la création de la gui vous créez une variable sous la forme ou tous les objets que vous voulez cacher son séparés par &"#"&
exemple

Code : Tout sélectionner

$group_de_controle_1=$Group1&"#"&$Button2&"#"&$Checkbox1&"#"&$Input1&"#"&$Input2

Ensuite vous faite appel à la fonction

Code : Tout sélectionner

_guistate("hide", $group_de_controle_1)

en indiquant ce que vous voulez faire et sur quel groupe

Testez le code se sera plus parlant

ça fonctionne plutôt bien

A+

JL56