Discussion :

[dpshark]

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 :

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

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 !

[clementmarcotte]

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.

[dpshark]

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

[Invité]

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 :

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

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

Code :

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

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

[dpshark]

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

[dpshark]

Code :

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

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 :

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

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

[dpshark]

voilà ce que j'ai

[StringBuilder]

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


Ainsi :

Code vb.net :

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

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

[Invité]

(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"!

[dpshark]

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