Tableau d'object

Steph258 Messages postés 4 Date d'inscription dimanche 16 mai 2004 Statut Membre Dernière intervention 6 juin 2004 - 2 juin 2004 à 16:57
Steph258 Messages postés 4 Date d'inscription dimanche 16 mai 2004 Statut Membre Dernière intervention 6 juin 2004 - 3 juin 2004 à 00:18
Bonjour je voudrais simplifier mon code et j'ai quelques difficulté.

Voici qui était avant:
txtPrix1.Text = Format((nudQuantite1.Value * CDbl(txtPrixUni1.Text)), "0.00")
txtPrix2.Text = Format((nudQuantite2.Value * CDbl(txtPrixUni1.Text)), "0.00")


et maintenant, ceci:
Dim no As String
no = 1
txtPrix+no.Text = Format((nudQuantite+no.Value * CDbl(txtPrixUni+no.Text)), "0.00")


Stéph.

2 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
2 juin 2004 à 17:07
oulala beurk beurk beurk

Pour faire cela, il faut créer UN objet nommé txtPrix, avec la propriété Index à 0.
Puis un autre objet avec le même nom, mais avec Index = 1.

Idem avec un contrôle nudQuantite.

Ton code devient alors :

Dim no As Long
no=1
txtPrix(no).Text = Format((nudQuantite(no).Value * CDbl(txtPrixUni(no).Text)), "0.00")


Manu
0
Steph258 Messages postés 4 Date d'inscription dimanche 16 mai 2004 Statut Membre Dernière intervention 6 juin 2004
3 juin 2004 à 00:18
Merci, je connaissais cette méthode en VB6, mais là, je suis en VB.NET (désolé, j'avais oublier de préciser)

Alors, on fait comment en VB.NET ?

Stéph.
0