Discussion :

[Kropernic]

Bonjour, je suis un peu perdu.

Je cherche à créer une procédure générique qui passerait en revue tous les controls d'une form pour les réinitialiser (méthode clear ou autre).

Il me semble évident (mais je peux me tromper) que l'utilisation de "Me.name" est exclue car j'aurais le nom de la form sous laquelle la procédure est écrite.

J'ai testé deux ou trois autres idées mais qui ont toutes échouées dont je vous passerai les détails.

Enfin, p-e qu'il ne faut pas récupérer le nom de la form mais faire autrement donc je suis à l'écoute de toute suggestion car je sèche

Merci d'avance.

Griftou

[Kropernic]

Personne n'a une idée ?

[Kropernic]

J'ai finalement résolu mon problème. Voici, pour ceux qui rencontreront peut-être le même, comment je l'ai résolu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
    Public Sub Init(ByVal name As String)
        Dim form As Form
        Dim tb As TextBox
        Dim cb As ComboBox
        Dim rtb As RichTextBox
        Dim gb As GroupBox
        Dim lv As ListView
        form = System.Windows.Forms.Application.OpenForms.Item(name)
        For Each Control As Control In form.Controls
            If TypeOf Control Is System.Windows.Forms.TextBox Then
                tb = Control
                tb.Clear()
            ElseIf TypeOf Control Is System.Windows.Forms.ComboBox Then
                cb = Control
                cb.Items.Clear()
            ElseIf TypeOf Control Is System.Windows.Forms.RichTextBox Then
                rtb = Control
                rtb.Clear()
            ElseIf TypeOf Control Is System.Windows.Forms.ListView Then
                lv = Control
                lv.Items.Clear()
            ElseIf TypeOf Control Is GroupBox Then
                gb = Control
                For Each Ctl As Control In gb.Controls
                    If TypeOf Ctl Is System.Windows.Forms.TextBox Then
                        tb = Ctl
                        tb.Clear()
                    ElseIf TypeOf Ctl Is System.Windows.Forms.ComboBox Then
                        cb = Ctl
                        cb.Items.Clear()
                    ElseIf TypeOf Ctl Is System.Windows.Forms.RichTextBox Then
                        rtb = Ctl
                        rtb.Clear()
                    ElseIf TypeOf Ctl Is System.Windows.Forms.ListView Then
                        lv = Ctl
                        lv.Items.Clear()
                    End If
                Next
            End If
        Next
    End Sub

Il est clair qu'il doit y avoir moyen de l'optimiser mais au moins, les étapes sont claires.