none
Comment formater un textbox RRS feed

  • 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

    mercredi 11 juin 2014 12:26

Réponses

  • 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


    • Modifié PhGr_ mercredi 11 juin 2014 13:07 faute de frappe la 1ère fois...
    • Marqué comme réponse Aurel Bera lundi 30 juin 2014 06:19
    mercredi 11 juin 2014 13:05
  • 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,

    • Marqué comme réponse Aurel Bera lundi 30 juin 2014 06:19
    jeudi 12 juin 2014 08:29

Toutes les réponses

  • 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


    • Modifié PhGr_ mercredi 11 juin 2014 13:07 faute de frappe la 1ère fois...
    • Marqué comme réponse Aurel Bera lundi 30 juin 2014 06:19
    mercredi 11 juin 2014 13:05
  • 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

    mercredi 11 juin 2014 21:03
  • 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,

    • Marqué comme réponse Aurel Bera lundi 30 juin 2014 06:19
    jeudi 12 juin 2014 08:29
  • Bonjour,

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


    Philippe

    mercredi 18 juin 2014 07:21
  • 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.

    lundi 30 juin 2014 06:20