Discussion :

[makol]

bonjour à tous
débutant en VB.net mais ancien de VB6, j'essaie de réaliser un petit soft connecté à une base de données. Ce soft va utiliser un tabcontrol, et c'est là que les ennuis commencent...
cela fait des heures que je cherche une solution, mais je ne trouve rien qui corresponde à mon problème et qui fonctionne...
j'ai créé un tabcontrol, avec 2 onglets. Dans le 1er onglet, j'ai positionné un usercontrol qui comprend plusieurs textbox. J'ai créé les propriétés dans le usercontrol me permettant d'accéder aux valeurs "text" des textbox.
j'essaie maintenant d'affecter dynamiquement des valeurs aux différentes textbox de mon usercontrol.
j'ai essayé tabcontrol.tabpages(tabcontrol.tabpages.count).controls(usercontrol).text mais le "controls" est souligné, il ne reconnait pas "usercontrol" comme parametre. Quelqu'un pourrait il m'indiquer la syntaxe correcte SVP ??
merci par avance pour votre aide !!
michael

[Prisson]

Bonjour,
tu peux utiliser directement tes texbox avec leur nom sans passer par tabcontrol. Par exemple

Code :

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

me.texbox1.text ="Pierre"

[makol]

Bonsoir prisson et merci pour ta reponse. Dans mon cas je ne pense pas que ce soit applicable. Mes textbox etant dans un usercontrol, je me sers de la propriété du usercontrol. Le usercontrol est créé dynamiquement, un par onglet créé (la quantité dépendant d'une entrée en base). J'ai donc l'impression qu'acceder aux propriétés via les noms des usercontrol serait plus propre.
Par contre je vais essayer de voir si cette solutoon fonctionne pareil sur les usercontrol. Comme tu le dis si bien, ca eviterait de passer par le tabcontrol, ce qui m'irait tres bien !
Si une autre solution existe, au cas où celle ci ne fonctionnerait pas, je suis preneur !
Merci encore

[Prisson]

Bonjour,
Marque le sujet en résolu si la solution a fonctionné.

[ebastien]

Bonjour
Tu as plusieurs méthodes pour cela. La plus proche de ce que tu cherches à faire serait un truc du genre :

Code :

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

CType(TabControl1.TabPages(0).Controls(0), UserControl1).MonText = "..."

Mais c'est pas franchement beau.
Je pense que le mieux serait de créer une liste de UserControl et d'accéder à ton UserControl via cette liste :

Code :

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

1
2
3
4
5
6
Dim myList As List(Of UserControl1) = New List(Of UserControl1)
...
Dim MonControl As UserControl1 = New UserControl1()
TabControl1.TabPages(0).Controls.Add(MonControl)
myList.Add(MonControl)
myList(0).MonText() = "toto"

Bon tu l'auras compris, les noms et indices utilisés sont uniquement là à titre d'exemple. C'est à adapter...

[casiii]

tabcontrol.tabpages(tabcontrol.tabpages.count).controls(usercontrol).text

Attention, TabPages et Controls sont des listes, donc on peut accéder à un item de la liste que par son index (integer) ou une clé (string du coup ^^).

De mémoire, accéder à tes TextBox ressemblerait plus à :

Code :

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

CType(TabControl1.TabPages(i).Controls("NomDuUserControl").Controls("NomDeLaTextBox"), TextBox).Text = "..."

Mais vu que tu as décidé d'y accéder via des accesseurs (avec le set en public)

Code :

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

TabControl1.TabPages(i).Controls("NomDuUserControl").TaProprieteText = "..."

Où i est l'index de ta TabPage où se trouvent ton UserControl.

Je déconseille la technique de ebastien, tout simplement parce que c'est réinventer le fil à couper le beurre : Prendre le contenu d'une liste pour le mettre dans une autre liste identique ?

[ebastien]

Bonjour,

@casiii : Ok c'est vrai que ma methode crée une nouvelle liste. Mais pas tout à fait identique : La différence c'est qu'elle est typée et donc évite le transtypage systématique pour accéder au usercontrol (ton deuxième exemple ne fonctionne pas tel quel). De plus, j'avoue que j'ignorais qu'on pouvait créer differentes instances d'un Control avec le même nom. Au temps pour moi...