J'ai du mal a comprendre ce que tu as fait là :
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
que dans tes cliques tu fasses :
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 :
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 :
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...
Partager