Il est beau ce poisson, RENAUD34,
J'ai appliqué ton code, sur un TextBox nommé « tbPrixU » comme suit :
Private Sub tbPrixU_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles tbPrixU.KeyPress
If e.KeyChar = ChrW(46) Then
e.KeyChar = ChrW(44)
End If
End Sub
Private Sub tbPrixU_Validated(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles tbPrixU.Validated
tbPrixU.Text = Format(CDbl(tbPrixU.Text), "#0.00")
End Sub
Ca fonctionne bien, mais je n'ai pas trouvé de solution pour une mise en forme, autre que celle proposée par la culture anglaise.
Je sais, je chipote, mais j'aimerais la virgule.
Je modifie ma source avec 2 exemples.
- Messages postés
-
140
- Date d'inscription
- mardi 25 novembre 2003
- Statut
- Membre
- Dernière intervention
- 1 novembre 2010
5J'ai appliqué ton code, sur un TextBox nommé « tbPrixU » comme suit :
Private Sub tbPrixU_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles tbPrixU.KeyPress
If e.KeyChar = ChrW(46) Then
e.KeyChar = ChrW(44)
End If
End Sub
Private Sub tbPrixU_Validated(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles tbPrixU.Validated
tbPrixU.Text = Format(CDbl(tbPrixU.Text), "#0.00")
End Sub
Ca fonctionne bien, mais je n'ai pas trouvé de solution pour une mise en forme, autre que celle proposée par la culture anglaise.
Je sais, je chipote, mais j'aimerais la virgule.
Je modifie ma source avec 2 exemples.
If KeyAscii 46 Then KeyAscii 44
(ou l'inverse pour passer de virgule à point)