Comment vérifier l'état d'un controlRésolu

Question

Bonjour, bonjour,

je cherche à vérifier le statut de plusieurs control ( label, combo, ... )
dans un frame spécifique.
Savoir si ils sont actifs ou non et visibles ou non...

Je pensais à un for each control, mais je galère...

Merci d'avance....

PCPT · Accepted Answer

pourquoi tu MELANGES la proposition de Scortex sous .NET et la mienne sous VB6


une petite erreur par contre
MSDN : Conseil   L'instruction Select Case peut s'av&#233;rer mieux adapt&#233;e &#224; l'&#233;valuation d'une expression simple qui poss&#232;de plusieurs actions possibles. Toutefois, la clause TypeOf objectname Is objecttype ne peut pas &#234;tre utilis&#233;e avec Select Case.



Donc petite variante en cons&#233;quence... (test&#233; de suite)

Private Sub Command1_Click()
Dim Ctrl As Object


For Each Ctrl In Me
    If Ctrl.Container Is Frame1 Then
     If TypeOf Ctrl Is TextBox Then
         MsgBox "TXT... contenu de " & Ctrl.Name & " : " & Ctrl.Text
     ElseIf TypeOf Ctrl Is ComboBox Then
         MsgBox "CBO... contenu de " & Ctrl.Name & " : " & Ctrl.Text
    End If
    End If
Next Ctrl


End Sub

PCPT

scortex84 · Answer

Hello,

En VB.NET : tu parcours les composants de ta form comme &#231;a : me.controls(i)



While i < form.Controls.Count



If 
TypeOf (form.Controls(i)) 
Is TextBox 
Then



ElseIf 
TypeOf (form.Controls(i)) 
Is Label 
Then



End 
If


i = i + 1



End 
While

Si tu veux parcourir une frame, c'est pareil, il faut juste la trouver, ensuite c'est du style : me.controls(i).controls(i) , etc..

Seb.

cs_drakkard · Answer

merci pour le bout de code,

est-il valide sur VB6, j'avais omis de le préciser...

je le testerai de toute façon...

PCPT · Answer

Salut
non :

dim Ctrl as Objet
for each Ctrl in Me
   Select case TypeOf Ctrl
      Case TxtBox
               If Ctrl.Text="machin" then Msgbox "blabla"
               If Ctrl.Visible=True then Msgbox "blabla"

      Case CommandButton
               If Ctrl.Caption="machin" then Msgbox "blabla"
               If Ctrl.Enabled=False then Msgbox "blabla"
      'etc...
   End Select
Next Ctrl

PCPT

cs_drakkard · Answer

cela devrait ressembler à cela ???
j'ai une erreur avec ce qui suit

While i < Form.Controls.Count

If TypeOf Form.Controls(i) Is Frame Then
    
    MsgBox "frame : " & Form.Controls(i).Name ' just pour le test
    While j < Form.Controls(i).Controls.Count
        MsgBox Form.Controls(i).Controls(j).Name 'just pour le test
    Wend
    
End If

i = i + 1

Wend

cs_drakkard · Answer

j'ai oublié de préciser, 

l'erreur est au deuxième while !!!

cs_drakkard · Answer

je modifie ma question,

j'ai des combos et des labels sur un frame dans un formulaire.
Je souhaite vérifier l'état de ces combos et labels, du frame, 
pas les autres qui sont sur le formulaire...

PCPT · Answer

dans mon exemple, remplace Me par le nom de ta Frame.
c'est pas un m&#233;lange des propositions....

PCPT

cs_CanisLupus · Answer

Salut, dans ce cas, pr&#233;fixe avec le nom de ta frame en plus du nom de ta form :

Form.Frame.toncontrole.

Explik sommaire : le container de ton control est ta frame et le container de ta frame est ta form. Etc ...

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

et ensuite, s&#233;par&#233;ment, tu fais le test de ta frame. (elle n'est pas consid&#233;r&#233;e comme son contenant et contenu)
PCPT

cs_drakkard · Answer

bon bah marche pas !!!!

vb dit "l'objet ne gère pas cette propriété ou cette méthode"

Il ne veut pas de form.frame.controls ni de frame.controls

cs_CanisLupus · Answer

Frame.controls ne sera jamais accept&#233; car la collection controls ne fait partie que du container form (le nom de ta form).
Mais, dans l'expression form.frame.controls , remplace form par le nom de ta form (form1 ou le nom que tu lui as donn&#233;) et frame par le nom de ta frame (frame1 ou le nom que tu lui as donn&#233;).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Si tu veux, je cr&#233;e une form (que j'appelle 'totoform') et dedans je met une frame (que j'appele 'totoframe'). Dans cette frame je met un controle (textbox1). Ca donnera :

mavar = totoform.totoframe.textbox1.text

L&#224;, tu affiches le contenu de textbox1 qui est dans ta frame totoframe, laquelle est dans ta form totoform.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Yaume1 · Answer

je suis pas d'accord avec toi CanisLupus (mais je me trompe peut-&#234;tre...)

Quand tu as textbox1 dans Frame1 dans Form1, tu fais
"Form1.TextBox1.text" ou "Form1.TextBox1.Left" ou ce que tu veux
d'autre, sans mettre le ".frame1" . Chez moi &#231;a p&#233;dale dans la soupe si
tu lui dis comme toi tu fais !!!!



Bon courage en tous cas ;)





 C2

cs_drakkard · Answer

ok ok !!!

ma form s'appelle faudit, mon frame frame1, 
et j'ai dans le form label1, label2, combo1, combo2

donc si je souhaite énumérer ( pour l'exemple ) le nom des controls je devrais avoir un truc du genre :

dim Ctrl as Objet
for each Ctrl in faudit.frame1.controls '<== pour énumérer les controls
   Select case TypeOf Ctrl  '<== pour info mon vb demande le "Is" ici !!!
      Case label
               mytext = "Label : "
               Msgbox mytext & ctrl.Name
      Case Combobox
               mytext = "Combobox : "
               Msgbox mytext & ctrl.Name
      'etc...
   End Select
Next Ctrl

Et cela ne fonctionne pas !!!!

cs_drakkard · Answer

Merci PCPT,

cela fonctionne, il énumère mes controls dans mon frame,
et mon menu...

Etrange ???

PCPT · Answer

si c'est bon, tu peux valider....
sinon, j'ai pas bien compris "et mon menu"

en plus haut, tu as &#233;crit 
"ma form s'appelle faudit, mon frame frame1, et j'ai dans le form label1, label2, combo1, combo2"

simple lapsus?
PCPT

cs_drakkard · Answer

A propos de menu,
dans ma form j'ai un menu ( tu sais "Fichier", "Edition", ... )

Autrement cela fonctionne excepté cet imprévu ( pour le menu )

Après vérif :

j'ai une erreur lorsqu'il a fini d'énumérer les controls et qu'il tente d'énumérer le caption du frame.
Et ensuite il énumère le menu

J'ai ajouter un on error resume next 
mais cela ne convient pas ( il énumère tjs le menu) 
j'ai ajouter un on error goto myExit

et c'est ok...

Mais cela n'explique pas pourquoi il énumère le menu...
Si quelqu'un a une explication !!!

Merci à tous pour tout !!!!

PCPT · Answer

bah si t'es capable de faire et d'emprisonner un menu dans une frame, &#231;&#224; m'int&#233;resse grandement ;)

si tu listes correctement uniquement les &#233;l&#233;ments qui t'interessent, pos&#233;s sur la FRAME, qui est elle-m&#234;me pos&#233;e sur la FORM, comment veux-tu qu'un menu qui appartient &#224; une FORM puisse &#234;tre list&#233; dans le contenu des objets de ta FRAME.....

PCPT

cs_CanisLupus · Answer

drakkard > J'aimerais bien voir le code que tu as cr&#233;&#233; au final (si tu as tenu compte des r&#233;ponses sur ce topic) et qui &#233;num&#232;re le menu. Car il doit y avoir un prob.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?