De vb6 à vb.net TextBox indexé

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:

---

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:

---

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

---

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

Tu as quoi comme message d'erreur ?

Citation:

---

Envoyé par sevyc64

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)

Citation:

---

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:

---

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

---

Y a t'il un autre façon?

Essaye ceci

Code:

---

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

---

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

Code:

---

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

Je viens de tester et je n'ai aucun probleme de mon cote.
Par contre, il y a une parenthese en trop vers la fin )

J'avais vue la parathèse...

Par contre je crois que vb.net2010 a un problème à reconnaître mes textbox de vb.net 2005

j'ai fais un test

Code:

---

dim data1 as new textbox

---

et ça semble ok.
Je vais refaire mes textbox pour voir. Je vous reviens.

J'ai parti un nouveau projet et mon code de départ fonctionne comme suit

Code:

---

1 2 3 4

Dim i As Integer For i = 1 To 5 Controls("TextBox" & i.ToString).Text = i Next

---

Je ne vois toujour pas pourquoi il ne le prend pas dans mon projet initial?
Mais bon, je vais tenter de copier le plus que possible dans le nouveau et tenter de voir ou l'erreur se produit.

Merci à tous

bonjour,
à tester :

Code:

---

1 2 3 4 5 6 7 8 9

'*** Parcourt le contrôle conteneur. ' "OfType" permet de préciser le type de contrôle à traiter. For Each tbx As TextBox In Me.Controls.OfType(Of TextBox)() 'ou tout autre conteneur de contrôles For i As Integer = 1 To 9 If tbx.Name = ("TextBox" & i.ToString) AndAlso tbx.Text = "" Then Controls("TextBox" & i.ToString).Text = CStr(i) End If Next Next

---

Juste pour info, tu as combien de TextBox au total ?

Parce que si tu n'en as que 9 il y a forcément une erreur car le For va en rechercher 10

Bonjour,
j'ai 3 textbox et je fais tourner 9 fois sans message d'erreur, mon code ci dessus.
Normal, ne trouvant pas de textbox4...5..6...etc, le "if "renvoie "end if" immédiatement.
Ce n'est pas très heureux.
Le code si dessous est optimisé, donne une référence à l'objet et reprend le bout de code de la question de fred :

Code:

---

1 2 3 4 5 6 7

For Each tbx As TextBox In Me.Controls.OfType(Of TextBox)() 'ou tout autre conteneur de contrôles For i As Integer = 1 To Me.Controls.OfType(Of TextBox)().Count If Controls("TextBox" & i.ToString).Text = "" Then Controls("TextBox" & i.ToString).Text = CStr(i) End If Next Next

---

@fredlefou :

ne pas le prendre mal, mais arrête de coder, il te manque les bases et tu vas coder n'importe quoi

lis donc un tuto comme celui ci : http://plasserre.developpez.com/cours/vb-net/

Citation:

---

Envoyé par chrismonoye

Bonjour,
j'ai 3 textbox et je fais tourner 9 fois sans message d'erreur, mon code ci dessus.
Normal, ne trouvant pas de textbox4...5..6...etc, le "if "renvoie "end if" immédiatement.
Ce n'est pas très heureux.
Le code si dessous est optimisé, donne une référence à l'objet et reprend le bout de code de la question de fred :

Code:

---

1 2 3 4 5 6 7

For Each tbx As TextBox In Me.Controls.OfType(Of TextBox)() 'ou tout autre conteneur de contrôles For i As Integer = 1 To Me.Controls.OfType(Of TextBox)().Count If Controls("TextBox" & i.ToString).Text = "" Then Controls("TextBox" & i.ToString).Text = CStr(i) End If Next Next

---

---

Salut chrismonoye
Peux-tu m'éclairer

Je ne vois pas l'optimisation du code car avec le For Each tu balaies l'ensemble des contrôles TextBox du conteneur, et avec le For Next tu fais aussi la même chose

A vec la boucle For Each tu balaies l'ensemble des contrôles du formulaire, mais pour chaque contrôle trouvé par le For Each tu refais un balayage des contrôles du formulaire avec le For Next

Utilises soit l'un soit l'autre mais pas les deux, tu fais l'inverse de l'optimisation....


Ou je me suis gouré et là j'attends tes explications parce que ça peut m'intéresser...

Citation:

---

Envoyé par Danyel

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:

---

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:

---

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.

Citation:

---

Envoyé par Pol63

@fredlefou :
ne pas le prendre mal, mais arrête de coder, il te manque les bases et tu vas coder n'importe quoi

---

Bonsoir,
je suis sur que votre langue a fourchée,
Un cinq étoile ne peut pas dire cela.
Je vous lis depuis 2006, mon métier et mes formations n'ayant rien à voir avec la programmation, j'ai beaucoup appris comme cela sur le tas et pour le plaisir à votre contact.
Alors " non pas vous".
mrtrempo, je vous répondrai prochainement.

Citation:

---

Envoyé par chrismonoye

Bonsoir,
je suis sur que votre langue a fourchée,
Un cinq étoile ne peut pas dire cela.
Je vous lis depuis 2006, mon métier et mes formations n'ayant rien à voir avec la programmation, j'ai beaucoup appris comme cela sur le tas et pour le plaisir à votre contact.
Alors " non pas vous".
mrtrempo, je vous répondrai prochainement.

---

en manque de nicotine je veux bien croire ! mais le sens est peut etre là quand même
venant de vb6 j'ai écris des trucs dans le genre du créateur du topic, mais avec le recul, c'est pas le genre de chose à écrire, et le tuto de mr lasserre est plutot efficace
(si vous me lisez depuis 2006 vous avez du me voir renvoyer vers ce tuto des milliers de fois :aie:8O !? vous avez du aussi voir que je ne suis pas toujours [politiquement] correct)
et 5 étoiles ne veut rien dire de spécial hormis que je réponds souvent le lien de mr lasserre ^^

enfin pour résumer, apprendre sur le tas ne veut pas dire improviser
si pour apprendre à piloter un avion tu rentrais dans le cockpit et que tu appuyais sur tous les boutons, ca serait plutot dangereux
donc potasser avant de se lancer reste le plus efficace ...

bonsoir mrtrampo
je pars du postulat de la question posée à savoir, j'ai x textbox et à chaqu'une d'elles et pour simplifier : si textbox est 1 son texte doit afficher "1", puis la 2 affiche "2" etc...
Pour tester sur un form, j'ai mis 6 ctrl différents dont 3 textbox.
Ma boucle "for each" ne fait que 3 tours et la boucle "for" idem.
C'est le nombre de textbox.
un "OfType" change tout en terme de boucle.
Par contre vous avez raison, si un textbox est supprimé ça plante.
Alors j'en reviens à ma première intuition du genre :

Code:

---

1 2 3 4 5 6 7

For Each tbx As TextBox In Me.Controls.OfType(Of TextBox)() 'ou tout autre conteneur de contrôles For i As Integer = 1 To Me.Controls.OfType(Of TextBox)().Count If tbx.Name = ("TextBox" & i.ToString) AndAlso tbx.Text = "" Then tbx.Text = CStr(i) End If Next Next

---

Dans l'attente, bonne nuit.

Oui Pol63 en relisant "mon" code, ça me plaisait pas et en répondant à mrtrampo, je l'ai utilisé ma variable.
Ce code VB6 m'a emmerdé un bout de temps et je suis comme toi, la cigarette c'est ....
Ciao

Ah j'ai compris

Un moyen d'optimiser le code à ce moment là balayer tous les contrôles TextBox et à chaque fois lui donner le numéro correspondant à son nom mais en allant chercher ce numéro directement dans le nom (sans fair la boucle For)

Ca ferait un truc dans le style

Code:

---

1 2 3 4 5

For Each tbx As TextBox In Me.Controls.oftype(Of TextBox)() If tbx.Text = "" Then tbx.Text = Strings.Mid(tbx.Name, 8) '8 correspond à Len("TextBox") + 1 End If Next

---

Chez moi le OfType n'est pas reconnu. Il n'est pas membre de Controls