Optimisation de code

bonjour, j'ai une question un peu farfelue, après quelques mois d'abandon je me suis remis a vb.net et j'aimerais bien un truc propre plutôt que d'avoir un pavé genre :
p2 = Val(tbprix2.Text)
p3 = Val(tbprix3.Text)
p4 = Val(tbprix4.Text)
p5 = Val(tbprix5.Text)
p6 = Val(tbprix6.Text)
p7 = Val(tbprix7.Text)
p8 = Val(tbprix8.Text)
p9 = Val(tbprix9.Text)
p10 = Val(tbprix10.Text)
p11 = Val(tbprix11.Text)
p12 = Val(tbprix12.Text)
p13 = Val(tbprix13.Text)
p14 = Val(tbprix14.Text)
p15 = Val(tbprix15.Text)
p16 = Val(tbprix16.Text)
p17 = Val(tbprix17.Text)
p18 = Val(tbprix18.Text)

est-il possible de le réduire avec une boucle ? bon j'ai essayer de mon côté mais, pas sûr que ça fonctionne !

Code:

---

1 2 3 4 5 6 7 8

Dim p1 As String Dim i = 1 While i < 18   p1 = ("p" + i + "=val(tbprix" + i + ".text") i += 1   End While

---

donc le but c'est réduire le code

en vous remerciant !

Bonjour,

Vite fait comme cela, il y a moyen de boucler sur les contrôles et de s'assurer que ce sont les bons.

Ceci dit, si le val() de VB.net est le même que celui de VB6-VBA, oublie le. Il n'est (probablement) pas foutu de reconnaître la virgule comme séparateur décimal. Tu peux essayer avec CSng() ou CDbl(), mais tous les types numériques de .net ont des méthodes parse et tryparse pour convertir un texte en nombre.

pour Cdbl pas de prob, quant au bouclage sur les controles j'ai rien compris du tout ... :/

Bonjour,

Pour compléter la remarque de Clément, val est une instruction vba!

La référence vb6 est activé par défaut dans le projet visual studio! Bon nombre de nos contemporain code en vba pensant faire du vb.net. Si d'aventure le chef de projet décoche la librairie Vb6 (et c'est ce que je fais systématiquement) le programme explose!

Code:

---

1 2 3

for i as integer=1 to 10 MyVar= me.controls("textbox" & i.tostring).texte Next

---

Code:

---

number = double.Parse("2,5", CultureInfo.GetCultureInfo("fr-FR").NumberFormat)

---

Merci bien je vais tester cela, (je ne me considère pas comme expert VB.net (d'ailleurs j'ai appris en autodidacte)), je vais de ce pas décocher la lib vb6

Code:

---

1 2 3

for i as integer=1 to 10 MyVar= me.controls("textbox" & i.tostring).texte Next

---

ok pour le myvar j'ai pigé mais du coup je dois distribuer dans plusieurs variables comme j'ai cité plus haut p1, p2,p3,....p18 ou alors j'ajoute dans le me.control ?
style: me.control("p" & i.tostring "=tbtemp" & i.tostring).text ?

en fait j'étais pas loin de la réponse avec mon:

Code:

---

1 2 3 4 5 6 7 8

Dim p1 As String Dim i = 1 While i < 19   p1 = "Val(tbprix" & i & ".Text)" i += 1   End While

---

voilà ce que j'ai

Pièce jointe 295571

Et si tu remplaçait test px par un tableau ?


Ainsi :

Code:

---

1 2 3 4 5 6

dim p as integer()   for i as integer = 2 to 18 p(i) = cint(me.controls("textbox" & i.tostring).text) next

---

Citation:

---

(je ne me considère pas comme expert VB.net (d'ailleurs j'ai appris en autodidacte)

---

j'ai 20 ans de VB3...VB6 et seulement 3 ans en VB.Net, difficile de revendique un salaire de séniorité avec une expérience de junior! il m'arrive de faire des écarts de "langage"!

je me suis finalement débrouillé autrement merci à tous et toutes