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  !?

cs_drakkard · Answer

Bonjour, bonjour

juste pour CanisLupus et PCPT, voici le code au final ( tjs en test ):

Private Sub Command1_Click()

Dim Ctrl As Object
Dim myString As String
Dim myVar

myVar = 0

For Each Ctrl In Me '<== Me ou Faudit ( nom de la form ) mmême résultat !!!
    If Ctrl.Container Is Frame1 Then
        On Error GoTo myExit
        myString = myString & Chr(13) & Ctrl.Name
        If Ctrl.Visible = True Then
            myString = myString & Chr(9) & "vrai"
        Else
            myString = myString & Chr(9) & "faux"
        End If
        myVar = myVar + 1
    End If
Next Ctrl

MsgBox myString & Chr(13) & myVar

myExit:
MsgBox myString & Chr(13) & myVar

End Sub

cs_CanisLupus · Answer

OK, je vois. Ton menu est un controle mais ne poss&#232;de pas la propri&#233;t&#233; Container donc plantage. Pour &#233;viter &#231;a :

For Each Ctrl In Me '<== Me ou Faudit ( nom de la form ) mm&#234;me r&#233;sultat !!!
if not(typeof ctrl is Menu) then
    If Ctrl.Container Is Frame1 Then
        On Error GoTo myExit
        myString = myString & Chr(13) & Ctrl.Name
        If Ctrl.Visible = True Then
            myString = myString & Chr(9) & "vrai"
        Else
            myString = myString & Chr(9) & "faux"
        End If
        myVar = myVar + 1
    End If
end if
Next Ctrl

Ca zappera le (ou les) menus.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

d&#233;sol&#233;, je vois toujours pas. le menu n'est pas contenu dans la Frame. logiquement, il n'est pas list&#233;. (et tests hier avec un menu, pas d'erreur)

le truc drakkard, c'est que tu voulais dif&#233;rencier les types hier, et l&#224;, tu ne le fais plus.....
donc apr&#232;s le "is dans frame......"mystring mystring & "*" & ctrl.name & ".Visible " & Ctrl.visible & vbcrlf
myvar = myvar+1 'que tu devrais typer d'ailleurs

....
msgbox mystring & "Total : " & myvar & " contr&#244;le(s)"

cs_drakkard · Answer

Je te rappelle PCPT,

que je cherche depuis le début, 
à savoir si des controls dans un frame sont visibles ou non et actifs ou non...
Trève de parenthèses.

Je vais être plus clair : 
ma Form : faudit contient :
- un MonthView
- un Picture
- un Frame : frame2 je me fous des controls de celle-ci.
- un Frame : frame1 avec quelques controls dont je veux vérifier le statut.
- un DataGrid
- un Adodc
- un ImageList
- un Menu

Et ils sont controlés dans cet ordre : MonthView, Picture, ... 
( ordre de la liste ci-dessus ).
Donc étonnant qu'il affiche Menu et ImageList ( je l'avais oublié celui là ),
mais seulement ces deux autres controls !!!!

Voilà voilà !!!

PCPT · Answer

qu'il y ait d'autres conmposants, c'&#233;tait plut&#244;t &#233;vident. &#231;&#224; ok. j'en reviens (d&#233;sol&#233; d'insister lourdement) sur le fait que ta Fame ne peut pas contenir de menu. donc si tu ne listes que "ses enfants", tu ne devrais pas avoir d'erreur &#224; g&#233;rer. apr&#232;s ok, l&#224; &#231;&#224; fonctionne, donc ok. mais c'est + pour comprendre vraiment. d&#233;sol&#233;, j'ai du me cogner violemment, mais je bloque!
j'ai fais les tests en m&#234;me temps, au cas ou qqc m'aurait &#233;chapp&#233;. pas d'erreur chez moi.

Dim Ctrl As Object
For Each Ctrl In Me
   If Ctrl.Container Is Frame1 Then _
      If ((TypeOf Ctrl Is TextBox) Or (TypeOf Ctrl Is ComboBox)) Then _
         MsgBox Ctrl.Name & ".Enabled = " & Ctrl.Enabled & VbCrlf & _
                Ctrl.Name & ".Visible = " & Ctrl.Visible
Next Ctrl

on ne prend que le Visible et Enabled des combo et Text contenu dans Frame1.
c'est ce TypeOf qui justement, t'emp&#234;che de tomber sur un contr&#244;le qui n'a pas la propri&#233;t&#233; g&#233;n&#233;rant l'erreur...

PCPT

cs_drakkard · Answer

Cela ne me dérange pas que tu insistes.
Au contraire...

Moi aussi je ne vois pas pourquoi il m'affiche ces deux controls qui ne sont pas dans le frame. 
Heeuuu, je sais qu'un frame ne peut contenir de Menu.
A propos de l'erreur, elle apparait lorsque le code tente de récupérer l'état du caption du frame, oui oui !!!
Il énumère tout les controls du frame et ensuite tente d'énumérer le caption...
je n'ai que cette erreur, après c'est l'histoire des autres controls affichés

PCPT · Answer

tu veux bien essayer mon p'tit bout de code au dessus stp?
l&#224; on ne g&#232;re que le contenu de la Frame1, pas la Frame1 elle-m&#234;me. si tu as une erreur &#224; sa lecture, c'est dans une autre partie de code que toutes les participations de chacun. tu peux copier cette partie?

PCPT

cs_CanisLupus · Answer

pcpt > fais le test comme je l'ai fait (c'est &#224; dire avec un menu sur la form, cr&#233;&#233; par le cr&#233;ateur de menus) et tu comprendras : le menu ne poss&#232;de pas de propri&#233;t&#233; container en vb6 mais est list&#233; dans la collection des controles donc &#231;a plante forc&#233;ment sur la ligne if ctrl.container... au moment o&#249; c'est le menu qui est test&#233;.
Je reconnais que je me suis banan&#233; pour le coup du form.frame.control,  d&#233;sol&#233;, j'ai de plus en plus tendance &#224; penser en dotnet. Mais c'est ton code que j'ai test&#233; sous vb6 et il plante d'o&#249; mon pr&#233;c&#233;dent post.

PS : Une ImageList n'a pas non plus de propri&#233;t&#233; container donc 2&#232;me possibilit&#233; de plantage. Alors, soit on s'amuse avec des on error, soit on teste le type des controles avant de tester leur container.

Pas besoin de s'&#233;nerver, on va y arriver.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

arf, bah j'y comprend plus rien.
j'avais fait les tests avec le menu, enfin, tout comme il faut, et j'avais pas d'erreur. je viens de recopier mon code, et en effet, &#231;&#224; plante (logiquement) sur le menu...

je donne suite rapidement^^
PCPT

PCPT · Answer

bon, voici le principe (donc pas de gestion d'erreur) mais il faut compter pour ne pas r&#233;pertorier un objet d&#233;j&#224; lu :

j'ai un menu, un bouton, et une frame, qui contient 3 txtbox

Option Explicit
Private Sub Command1_Click()
Dim Ctrls As Object, MyFrame As Object, MyCtrl As Object


Set MyFrame = Me.Frame1.Container


For Each Ctrls In Me
    For Each MyCtrl In MyFrame
      If ((TypeOf MyCtrl Is TextBox) Or (TypeOf MyCtrl Is ComboBox)) Then _
         Debug.Print MyCtrl.Name & ".Enabled = " & MyCtrl.Enabled & "   ||   " & _
                MyCtrl.Name & ".Visible = " & MyCtrl.Visible
     DoEvents
     Next MyCtrl
Next Ctrls
Set MyFrame = Nothing
End Sub

et voici la trace :
Text3.Enabled Faux   ||   Text3.Visible VraiText2.Enabled Vrai   ||   Text2.Visible FauxText1.Enabled Vrai   ||   Text1.Visible VraiText3.Enabled Faux   ||   Text3.Visible VraiText2.Enabled Vrai   ||   Text2.Visible FauxText1.Enabled Vrai   ||   Text1.Visible VraiText3.Enabled Faux   ||   Text3.Visible VraiText2.Enabled Vrai   ||   Text2.Visible FauxText1.Enabled Vrai   ||   Text1.Visible VraiText3.Enabled Faux   ||   Text3.Visible VraiText2.Enabled Vrai   ||   Text2.Visible FauxText1.Enabled Vrai   ||   Text1.Visible VraiText3.Enabled Faux   ||   Text3.Visible VraiText2.Enabled Vrai   ||   Text2.Visible FauxText1.Enabled Vrai   ||   Text1.Visible VraiText3.Enabled Faux   ||   Text3.Visible VraiText2.Enabled Vrai   ||   Text2.Visible FauxText1.Enabled Vrai   ||   Text1.Visible Vrai

donc l&#224;, plus de probl&#232;me, par contre.... il fait le test autant de fois qu'il y a de contr&#244;les * Nbcontr&#244;le dans frame1....
PCPT

PCPT · Answer

umm, nous voil&#224; au m&#234;me point !

Option Explicit
Private Sub Command1_Click()
Dim Ctrls As Object, MyFrame As Object, MyCtrl As Object


Set MyFrame = Me.Frame1.Container


For Each MyCtrl In MyFrame
    If ((TypeOf MyCtrl Is TextBox) Or (TypeOf MyCtrl Is ComboBox)) Then _
     Debug.Print MyCtrl.Name & ".Enabled = " & MyCtrl.Enabled & "   ||   " & _
            MyCtrl.Name & ".Visible = " & MyCtrl.Visible
    DoEvents
Next MyCtrl
Set MyFrame = Nothing
End Sub

pas d'erreur
PCPT

cs_drakkard · Answer

Bonjour bonjour,

Voici le code que j'utilise et qui fonctionne...

Encore merci pour votre aide !!!!

Dim Ctrl As Object
Dim myString As String
Dim myVar As Variant

myVar = 0

For Each Ctrl In Faudit
    If TypeOf Ctrl Is ImageList Or TypeOf Ctrl Is Menu Then
    
    ElseIf Ctrl.Container Is Frame1 Then
        'On Error GoTo myExit
        myString = myString & Chr(13) & Ctrl.Name
        If Ctrl.Visible = True Then
            myString = myString & Chr(9) & "vrai"
        Else
            myString = myString & Chr(9) & "faux"
        End If
        myVar = myVar + 1
    End If
Next Ctrl

MsgBox myString & Chr(13) & myVar

'myExit:
'MsgBox myString & Chr(13) & myVar

Comment vérifier l'état d'un control

32 réponses

Discussions similaires