Discussion :

[chth26]

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 :

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

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 :

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

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

[ZenZiTone]

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

Qu'entends-tu par là?

[chth26]

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

[ZenZiTone]

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.

[chth26]

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 ?

[chth26]

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 :

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

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