Tableau d'object

Question

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.

econs · Answer

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

Steph258 · Answer

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.

Tableau d'object

2 réponses

Discussions similaires