Discussion :

[Spellbinder]

Bonsoir =D

comment fait-on pour faire en sorte que lorsqu'on sélectionne (dans un menu préalablement crée) l'option 3 décimales par exemple, le programme affiche 3 chiffres après la virgule (bien sûr l'utilisateur peut écrire plus de chiffres) ? J'ai essayé avec FormatNumber (même Format) mais ça ne marche pas, en sortie j'ai toujours le résultat mais pas à 3 chiffres ...

ps : je suis sous VB 2005

Merci

[Spellbinder]

j'explique plus en détails ^^

dans un menu déroulant, j'ai donc une option 3 décimales dont voici le code :

Code :

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

1
2
3
4
5
Private Function DecimalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, ByRef test As integer)
 
test = 1
Return test
End Function

et le bouton calcul :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
Dim res As Double
Dim test As Integer
res=TextBox1.Text * 3.14 'un exemple
if (test) Then 
       TextBox2.Text = FormatNumber(res,2)
Else : TextBox2.Text = res
End If
End Sub

Et ça ne marche pas, ça compile mais le If ne marche pas =/ me serais-je trompé dans le code? (probablement)

Merci

edit : ou alors lorsqu'on clique sur calcul, il recrée une variable test ?! (donc normal qu'il tienne pas compte)

comment fait on alors pour "contrôler" qu'une option est active ou pas ?

[Sankasssss]

J'ai du mal a comprendre ce que tu as fait là :

Code :

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

Private Function DecimalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, ByRef test As integer)

Tu as modifier la méthode clique du toolStripMenuItem pour ajouter test en paramètre par référence, mais du coup la méthode n'est plus bonne, d'ailleurs il n'y a plus le Handles de la méthode...
efface complètement cette function et recrée là.
Pour que ton code fonctionne il faudrait que tu mette la variable test en globale, devant tes méthodes

Code :

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

Private test as integer

que dans tes cliques tu fasses :

Code :

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

1
2
3
Private sub DecimalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  DecimalesToolStripMenuItem.Click
test = 1
end sub

ensuite il te faudra virer test de ta sub button1_click la déclaration de variable test
je ne comprend pas non plus ton :

Code :

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

1
2
3
4
if (test) Then 
       TextBox2.Text = FormatNumber(res,2)
Else : TextBox2.Text = res
End If

moi j'utiliserais plutôt un select case du genre :

Code :

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

1
2
3
4
5
6
select case test
       case 1 
              TextBox2.Text = FormatNumber(res,2)
       case else
              TextBox2.Text = res
End If

sinon pour le formatNumber, je ne connais pas et je ne sais pas si ca marche comme ca...

[najoua01]

Bonjour c'est très simple ce genre de prob bon voila ce que tu fais

Code :

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

TextBox2.Text =Math.Round(res,2)

et ça marche très bien sans prob

bon courage

[champomy62]

Bonjour c'est très simple ce genre de prob bon voila ce que tu fais

Code :

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

TextBox2.Text =Math.Round(res,2)

et ça marche très bien sans prob

bon courage

Salut,

Je demanderais même plus y'a t'il pas un moyen d'automatiser celà ? ( faut-il créer une fonction ? )
Même chose pour la méthode replace, n'y a-t-il pas un moyen d'automatiser ça ?

merci ,

[Sehnsucht]

Bonjour,

Pourquoi pas quelque chose du genre:

Code VB.Net :

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

1
2
3
4
5
6
7
8
9
10
11
 
'Je suppose que longueur est une variable définie ailleurs
'et qui contient le nombre de décimales souhaitées
'pour l'exemple je mets les valeurs en dur
Dim longueur As Integer = 3 
Dim res As Double = 11.7569
 
Dim format As String = "N" & longueur.ToString
Dim s As String = res.ToString(format)
'ici s contiendra 11,757
'notez l'arrondi d'une part et la virgule d'autre (utilisation des paramètres régionaux de formatage des nombres)

En espérant que ça aide, cordialement !