Discussion :

[fredlefou]

Salut à tous!
Je cherche à choisir un de mes 30 textbox nommé comme suit
TextBox1,TextBox2...etc
Voici un bout de code vb6 qui marche avec des TextBox(index) ou index = 1 to 30

Code :

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

1
2
3
4
5
Case 0
For i = 0 To 9
If Text7(i).Text = "" Then Exit Sub
Text7(i).Text = Hex(Left(Val(Text7(i).Text), 2)) & Hex(Right(Val(Text7(i).Text), 2))
Next

voici en vb.net ma nouvelle approche qui ne marche pas!

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 0 To 9
If Controls("TextBox" & i.ToString).Text = Nothing Then
Controls("TextBox" & i.ToString).Text = "0000"
Else
ques-ce qui ne vas pas avec ceci
If Controls("TextBox" & i.ToString).Text = Nothing Then
ou
If Controls("TextBox" & i.ToString).Text = "" Then
suite du code
endif

[sevyc64]

A part peut-être mettre Me.Controls, sinon le code me semble bon.

Tu as quoi comme message d'erreur ?

[Danyel]

A part peut-être mettre Me.Controls

Non ca vient pas de ca, car il le rajoute auto.
Et c'est sur que sans le descriptif de l'erreur, ca va etre dur.
Moi, comme ca, je dirais que le chemin vers l'objet n'est pas correct ou entier (c'est l'erreur la plus courante)

[fredlefou]

La référence d'objet n'est pas définie à une instance d'un objet.

Il me propose de déclarer les textbox avec "As new" ce qui est déjà le cas
Ou de tester la valeur null ou nothing

Je viens d'essayer Me.Controls ....sans résultat.

Es-ce correct ou pas d'appeler mon TextBox1.text comme ceci;

Code :

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

Controls("TextBox" & i.tostring).text

Y a t'il un autre façon?

[Danyel]

Essaye ceci

Code :

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

DirectCast(Me.Controls("TextBox" & i.ToString), TextBox).Text = "0000"

[fredlefou]

Nouveau message d'erreur qui dit imposible de convertir une valeur de type en bolean

Code :

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

1
2
3
4
5
6
7
8
9
If DirectCast(Me.Controls("TextBox" & i.ToString), TextBox)).Text = "" then 
code....
endif
 
ou 
 
If DirectCast(Me.Controls("TextBox" & i.ToString), TextBox)).Text is nothing then 
code....
endif

...une valeur de type textbox en bolean

[mrtrampo]

Non ca vient pas de ca, car il le rajoute auto.
Et c'est sur que sans le descriptif de l'erreur, ca va etre dur.
Moi, comme ca, je dirais que le chemin vers l'objet n'est pas correct ou entier (c'est l'erreur la plus courante)

Je suis tout à fait d'accord avec Danyel sur l'origine de ton erreur

Prenons un exemple. Tu as sur ta Form cinq TextBox : TextBox1, TextBox2, TextBox3, TextBox4, TextBox5
Le code suivant ne plantera pas

Code :

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

1
2
3
4
Dim incr As Integer
For incr = 1 to 5
    MsgBox(Controls("TextBox" & incr).Text)
Next

Maintenant, tu fais des modifications sur ta Form et tu supprimes le TextBox3 parce que tu n'en as plus besoin. Le code précédent génèrera une erreur lorsqu'il cherchera à s'adresser à la propriété Text du contrôle TextBox3. Normal parce qu'il n'existe plus.

Avant de t'adresser à une propriété de ton contrôle tu peux vérifier s'il existe. Ca te permet de supprimer toutes les erreurs de contrôles non trouvés :

Code :

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

1
2
3
4
5
6
7
8
Dim incr As Integer
For incr = 1 to 5
    If Controls.ContainsKey("TextBox" & incr) Then
        MsgBox(Controls("TextBox" & incr).Text)
    'Else
        'Le contrôle n'existe pas donc ne fait rien mais tu peux ajouter un code qui gère l'absence de contrôle auquel tu t'adresses
    End If
Next

Si ça ne résout pas ton problème, peux-tu reposer ton problème en précisant :

• ce que tu cherches à faire
• ce que fait ton code
• l'erreur qui est levée
• la ligne précise de ton code où se situe l'erreur

Parce que apparemment on galère tous car tu nous présentes un bout de code qui objectivement dans certains contextes ne peux que marcher et dans d'autres ne peut que foirer.
Plus tu seras précis dans ta description plus on pourra comprendre ton problème et y répondre.