Recherche d'un control par nom via une variable

Bonjour,

Je viens vers vous car je viens de me lancer dans le VB.NET (via Visual Studio 2015).

J'ai réalisé une interface sous vba que je suis actuellement entrain de migrer sous VB.NET.

Mais je me heurte à un petit problème. Sous VBA, je réfère à mes contrôles de la facon suivante car le nom ainsi que le type de mes contrôles est variable :

Code:

---

1 2 3

With Me.Controls(control_name) [...] End With

---

Le soucis est que sous VB.NET, d'après ce que j'ai pu comprendre, je ne peux pas procéder de la même manière. J'ai trouvé une solution qui consiste à utiliser :

Code:

---

1 2 3 4

Dim tb As TextBox = DirectCast(Me.Controls.Find(control_name, True)(0), TextBox) With tb [...] End With

---

mais cela ne fonctionne que pour un seul type de controle à la fois. Je m'étonne qu'il n'y ai pas de solution aussi simple que sous VBA alors si vous avez, je suis preneur :)

Merci d'avance :)

Citation:

---

Envoyé par chth26

mais cela ne fonctionne que pour un seul type de controle à la fois.

---

Qu'entends-tu par là?

Je suis obligé, en utilisant cette méthode, de connaitre à l'avance le type de contrôle de control_name. C'est pas forcement embêtant, mais comme je débute en VB.NET, j'essaye d'avoir la solution la plus simple si il y a :lol:

Pas forcément. Me.Controls contient l'ensemble des contrôles contenus du formulaire. Tu peux très bien faire Me.Controls(control_name). Si le nom du contrôle existe, tu auras bien un élément retourné. En revanche, celui-ci sera de type Control (type de base des contrôles winform). Il faudra préciser explicitement son type si tu souhaites accéder à un propriété d'un contrôle précis. Par exemple, un Control de base n'expose pas de propriété 'Text' contrairement à une TextBox.

Merci pour toutes ces infos. Si je comprends bien, la différence est que sous VBA, Me.Controls(control_name) renvoie directement le type de controle alors que sous VB.NET, il renvoie un type plus général Control. C'est donc ce qui bloque quand j'essaye d'utiliser une propriété Text par exemple. La seule solution est donc de passer par DirectCast() qui permet de convertir le Control en TextBox par exemple ?

Je me retrouve effectivement avec le problème où je ne connais pas le Type d'un controle. Je m'explique.

J'ai une fonction qui me permet de repositionner mes différents contrôles en fonction de leur visibilité ou non ainsi que de leur taille. Par exemple, pour mon premier Label, j'ai voir ligne 4 les ??? :

Code:

---

1 2 3 4 5 6 7 8 9 10

With DirectCast(Me.Controls.Find("Label_" & chapitres(i) & "_Titre", True)(0), Label) If .Visible = True Then If last_control_name <> "" Then .Top = DirectCast(Me.Controls.Find(last_control_name, True)(0), ???.Top + DirectCast(Me.Controls.Find(last_control_name, True)(0), ???).Height + 10 Else .Top = 5 End If last_control_name = .Name End If End With

---

Je répète cette fonction pour les différents contrôles de mon form. Le problème est que je les positionne en fonction du dernier contrôle affiché mais que je connais pas le Type de contrôle car celui-ci peut varier (Label, TextBox, DataGridView...). Avez-vous une idée de comment procéder parce que là, je séche ^^

Merci d'avance :)

Citation:

---

Envoyé par chth26

Je répète cette fonction pour les différents contrôles de mon form. Le problème est que je les positionne en fonction du dernier contrôle affiché mais que je connais pas le Type de contrôle car celui-ci peut varier (Label, TextBox, DataGridView...).

---

Dans ce cas, tu n'as pas besoin de connaître le type du contrôle. De base, chaque contrôle a une position, ainsi, le cast en Label est inutile. Tu devrais donc réussir à retrouver tes petits sans le cast. En revanche, pour le positionnement des contrôles, il existe des conteneurs dédiés, qui gèrent les positions des contrôles contenus.. Fais des recherche autour des LayoutPanels (FlowLayoutPanel, TableLayoutPanel, etc..)

Je vais regarder ca, merci !