la méthode for each sur plusieurs controls

Version imprimable

bonjour l'équipe.
je voudrais savoir si il y a un moyen de réécrire ce code qui boucle sur tous objets du formulaire.

Code:

1
2
3
4
5
6
7
8
9
10
11
 For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
            End If
        Next
        For Each ctrls As Control In Me.Controls
            If TypeOf ctrls Is ComboBox Then
                ctrls.Text = ""
 
            End If
        Next

mon code marche très bien mais y'a t'il une autre écriture? merci
j'ai voulu écrire ce code suivant mais la manière dont je raisonne ne concorde pas avec le code

Code:

1
2
3
4
5
 For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox and combobox Then
                ctrl.Text = ""
            End If
        Next

19/08/2019, 01h41
clementmarcotte

Bonjour,

Là, tu fais du VBA en VB.net. Mais, n'en déplaise à un certain monsieur, VB.net est en avance sur VBA. Et, sauf horreur de ma part, tu devrais pouvoir te faire une List(of ComboBox) et une list(of Textbox) et itérer tes deux listes, sans itérer tous tes contrôles. Mais là, je n'ai pas le temps de tester mon affaire.

P.S. Une œuvre très intéressante et pas chère. Toujours utile de l'avoir à portée du clavier.

Bonjour,

Je suis du même avis que Clément sauf que s'il y a peu de composants sur le Form, une petite boucle fait bien l'affaire.
Le code suivant en VB.Net :) fera la même chose que ta boucle :

Code:

1
2
3
4
5
6
        For Each Ctrl As Object In Me.Controls
            Dim Type As String = Ctrl.GetType.Name
            If Type = "TextBox" Or Type = "ComboBox" Then   ' Il suffit d'étendre cette condition aux autres types que tu veux (faut qu'ils aient une propriété Text)
                Ctrl.Text = ""
            End If
        Next

Bonne journée,

19/08/2019, 11h19
Mr l'Ashanti

merci bien à vous. etant donné que je suis novice en vb.net rien de :mouarf::mouarf: que de me faire avoir. :mouarf::mouarf:
merci pour le coup de pouce
19/08/2019, 15h42
Kropernic
Ca remonte à loin mais il me semble qu'on pouvait aussi directement filtrer le type de contrôles sur lequels on voulait boucler. Qqch du genre (écrit de tête donc à valider) :
Code:

1 2 3 4 For Each Ctrl As Object In Me.Controls.OfType(TextBox) Ctype(Ctrl, TextBox).Text = "" Next
Et je pense qu'on peut mettre plusieurs OfType. Enfin à creuser si nécessaire.