Comment formater un textbox

Question

Bonjour a tous.

je voudrais savoir comment formater un textbox. je voudrais que les chiffres entrés dans le textbox soient groupés comme ceci " 999 999 000"

merci pour votre aide

Answer 1

Bonjour,

Tout d'abord, il faut t'assurer que la culture courante a bien un espace comme séparateur de groupe. Dans cette documentation, regarde en particulier le membre NumberFormat qui renvoie une instance de NumberFormatInfo. Une fois que tu as l'instance, regarde si NumberGroupSeparator a bien un espace comme séparateur. Potasses bien toute cette doc car cela te sera utile pour les formatages de nombres personnalisés.

Une fois cela vérifié, utilises le format "###,###,###". Va voir ici pour plus de précisions sur les formats personalisés.

---

Philippe

Answer 2

Bonjour,

Il y a un contrôle prévu pour ce genre de chose. Il s'appelle "MaskedTextBox".

Toute l'information se trouve ici :

http://msdn.microsoft.com/fr-fr/library/system.windows.forms.maskedtextbox(v=vs.110).aspx

---

Jacques
Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

Answer 3

Bonjour,

voici la solution à ton problème :

voici en image :

voici mes codes :

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim save As New SaveFileDialog
        save.Filter = "Fichier Texte|*.txt"
        If save.ShowDialog = Windows.Forms.DialogResult.OK Then
        End If
        Dim fermer As New StreamWriter(save.FileName)
        fermer.WriteLine(TextBox1.Text)
        fermer.Close()
        MsgBox("Save completed!")
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim open As New OpenFileDialog
        open.Filter = "Fichier Texte|*.txt"
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
        End If
        Me.Clear()
        Dim textDeLignes() As String = File.ReadAllLines(open.FileName)
        TextBox1.Text = textDeLignes(0)
    End Sub

    Private Sub Clear()
        TextBox1.Clear()
    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        Dim ValeurTextBox As Double = TextBox1.Text
        TextBox1.Text = ValeurTextBox.ToString("###,###,###")
    End Sub

j’espère , j'ai répondu a ta question.

Cordialement,

Answer 4

Bonjour,

Tu ne nous as toujours pas dit si ton problème est résolu.

---

Philippe

Answer 5

Bonjour,

Pouvons-nous considérer que vous avez résolu votre problème avec les scénarios proposés ? Dans l'affirmative, pourriez-vous partager avec nous la solution, afin que d'autres personnes avec le même problème puissent profiter de cette solution ?

Désormais, nous marquons les solutions proposées. N'hésitez pas à revenir et supprimer la réponse marquée si la solution n’est pas correcte. Merci !

Cordialement,

---

Aurel BERA, MSFT
MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.