Discussion :

[dstevens]

Bonjour à tous,

Je développe une application dans laquelle l'un des Forms contient un Tabcontrol avec plusieurs onglets. Chaque onglet contient des combobox et des textbox.
A un moment, je souhaite qu'une fonction de l'un de mes modules parcoure l'ensemble des onglets et me renvoie le nom de chacune des combobox/textbox.

J'ai essayé avec une syntaxe de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        For Each cont As Control In My.Forms.FormVoulu.TabcontrolAParcourir.Controls
            MsgBox(cont.Name)
        Next

ou avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        For Each cont As Control In My.Forms.FormVoulu.Controls
            MsgBox(cont.Name)
        Next

Dans aucun des deux cas, je ne parviens à "pénétrer" dans les onglets pour en extraire une quelconque propriétés des combobox/textbox. J'obtiens au mieux le nom des Tabpages.

Pourriez-vous m'aider à résoudre ce problème?

Un grand merci

[Pol63]

My.Forms.FormVoulu est à proscrire !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
dim tb as tabpage
tb = montabcontrol.tabpages(numero ou clé du tabpage à parcourir)
 
for each ctrl as control in tb.controls
  msgbox ctrl.name
next

[dstevens]

Parfait ça marche très bien !

Si je peux encore user de ton temps, question facile je pense:

Comment tester le type de contrôle? Je voudrais enregistrer uniquement les noms et valeurs de contrôles de types combobox/textbox.

J'ai tenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each ctrl As Combobox In tb.Controls

mais là je suppose que ce qui ne va pas c'est que tous les contrôles de ma page ne sont pas des combobox.
Je voudrais donc rajouter un "If ctrl est une combobox ou une textbox Then..." mais je ne trouve pas le nom de la méthode.

Encore merci pour l'aide.

[Pol63]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if typeof ctrl is textbox then
 
end if 
if typeof ctrl is combobox then
 
end if

par contre ctrl étant déclaré en type control, meme si tu sais que c'est un combobox, tu peux seulement accéder aux propriétés de la classe control
pour accéder aux propriétés du type, il faut utiliser directcast :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if typeof ctrl is comboboxthen
   dim cmb as combobox = directcast(ctrl, combobox)
   ' possibilité d'accéder à cmb.selecteditem par exemple
end if

[dstevens]

Un tout grand merci !

[dstevens]

Bonjour,

Je me permets de faire ressortir le sujet car j'ai un souci un peu inattendu:

Je souhaite coder une fonction dans un module qui m'affiche le nom puis le texte d'une textbox de MonFormulaire (en particulier, sur un tabpage de MonFormulaire). J'ai fait ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub afficher()
        Dim tb As TabPage
 
        tb = MonFormulaire.MonTabControl.TabPages(4)
        For Each ctrl As Control In tb.Controls
            If TypeOf ctrl Is TextBox Then
                Dim txb As TextBox = DirectCast(ctrl, TextBox)
                MsgBox(txb.Name)
                MsgBox(txb.Text)
            End If
        Next
 
End Sub

Le souci est qu'il m'affiche sans problème le nom de la textbox, mais pas le contenu. Je m'étonne que la fonction puisse accéder au nom et pas au texte ! J'ai tenté avec et sans directcast, même résultat.

Quelqu'un aurait-il une idée?

Merci beaucoup

[Pol63]

c'est qu'il n'a pas de texte peut etre !
met un point d'arret tu verras mieux ce qui se passe

[dstevens]

C'est bien mon souci, c'est que le texte qui se trouve dans une case n'est pas repéré par ma fonction.

J'avais déjà essayé avec des points d'arrêts, au moment où le programme repère l'une de mes textbox, il indique bien le nom de la textbox mais pas son contenu, même s'il y en a un. C'est cela qui me chagrine un peu...

Je suis sur que c'est une bêtise mais cela m'empêche de créer un code souple et compréhensible pour l'instant.