FormatNumeric d'un textbox sur l'événement textchanged

Version imprimable

12/07/2018, 11h30
elinfo

FormatNumeric d'un textbox sur l'événement textchanged

Bonjour,

je veux rendre le contenu d'un textbox au formatNumbre en utilisant l'événement textchanged ,j'ai essayer avec ce code ,mais quand je tape 4002 ça donne 2004.00

Code:

textbox.Text = FormatNumber(textbox.Text)

Merci d'avance
12/07/2018, 23h11
clementmarcotte

B0njour,

Tu ne peut pas imposer un format numérique à un Textbox. Peu importe la représentation de la donnée, ce sera toujours du texte. Ceci étant dit; pour convertir le texte en nombre avant un calcul, il y a quelques façons d'y parvenir.

Mais sans avoir le problème à résoudre, c'est un peu difficile d'aller plus loin.

Bonjour ,

D'abord je te remercie de votre réponse et j'ai essayée avec ce code pour faire juste le séparateur des milliers,mais quand je clique sur le point '.' rien n'est afficher .

Code:

1
2
3
4
5
6
7
8
Private Sub Text1_TextChanged(sender As Object, e As EventArgs) Handles Text1.TextChanged
        If Text1.Text <> "" Then
            Dim MonNombre As Decimal = Text1.Text
            Dim Resultat As String = MonNombre.ToString("### ### ###.##")
            Text1.Text = Resultat
            Text1.SelectionStart = Len(Text1.Text)
        End If
    End Sub

Code:

1
2
3
4
5
6
7
Private Sub Text1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Text1.KeyPress
        If Not Char.IsControl(e.KeyChar) AndAlso Not (Char.IsNumber(e.KeyChar)) AndAlso e.KeyChar <> "."c Then
            e.Handled = True
        End If
        If e.KeyChar = Chr(13) Then SendKeys.Send("{TAB}")
 
    End Sub

Merci .

13/07/2018, 17h09
Invité

Bonsoir,

Pourquoi ne pas utiliser un MaskEdit?

Le format est implicite dans ce genre de contrôle.