Discussion :

[dmoluc]

Bonjour à tous

Je viens juste de migrer depuis VB6 vers visual basic 2012. Déjà que je n'étais que débutant en VB6 je rame pas mal en VB.net

J'ai trouvé ce code dans les FAQ du site :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles Text1.KeyPress
 
        If Not Char.IsDigit(e.KeyChar) Then
            'Tous les caractères non numériques ne sont pas traités sur le TextBox.
            e.Handled = True
        End If
 
    End Sub

Le problème est que si je veux saisir une valeur avec des décimales impossible de taper le point et je suppose que cela doit être pareil pour ceux qui utilisent la virgule.
Merci pour votre aide...

[rv26t]

Bonjour,

Utilisez le contrôle NumericUpDown à la place du TextBox.
On peut indiquer le nombre de décimales voulues avec la propriété DecimalPlaces.

A+, Hervé.

[Sankasssss]

En faisant une petite recherche sur le forum vous trouverez pas mal de chose mais le mieux reste d'utiliser le contrôle qui est prévu pour comme le suggère rv26t

[dmoluc]

Merci pour cette réponse rapide. Comme toujours trop presser j'ai fais pas mal de travail avec mes maigres connaissances sans savoir qu'il existait un contrôle de type numérique. J'ai donc formater les textbox pour que les valeurs calculées de type double soient "présentables" et je voulais , pour perfectionner, interdire les saisies non numériques. Souvent les erreurs viennent du séparateur de décimal selon la configuration de windows. Je vais régler le problème avec un msgbox qui énervera un peu l'utilisateur mais pour la suite je vais essayer d'utiliser ce nouveau contrôle qui me semble bien pratique

encore merci pour vos réponses

[Sankasssss]

Je vais régler le problème avec un msgbox qui énervera un peu l'utilisateur

Des solutions existent comme vous vouliez le faire (voir lien dans mon précédent message) comme celle-ci :

Pas de solution directe via une propriété du TextBox.
Sinon : http://msdn.microsoft.com/fr-fr/library/ms229644.aspx
et je pense qu'il faut en plus désactiver le copier-coller .

[rv26t]

Des solutions existent comme vous vouliez le faire (voir lien dans mon précédent message) comme celle-ci :

Envoyé par Graffito
Pas de solution directe via une propriété du TextBox.
Sinon : http://msdn.microsoft.com/fr-fr/library/ms229644.aspx
et je pense qu'il faut en plus désactiver le copier-coller .

Il faut gérer un élément supplémentaire au niveau du séparateur sinon l'utilisateur peut en saisir plusieurs.
Dans la classe rajouter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Private Sep As Boolean = True ' pour permettre un seul séparateur

à la fin de la procedure OnKeyPress

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        ' autoriser un seul séparateur
        If keyInput.Equals(decimalSeparator) Then Sep = False
    End Sub

Dans le test backspace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        ElseIf e.KeyChar = vbBack Then
            ' si le séparateur est supprimé, autorisé de nouveau sa saisie
            If Not (Me.Text).Contains(decimalSeparator) Then Sep = True

Reste encore à gérer le del sur le séparateur


[Edit]
J'avais oublié de mettre la modif sur le test du séparateur ((...) and sep Then)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        ElseIf (keyInput.Equals(decimalSeparator) OrElse keyInput.Equals(groupSeparator) OrElse keyInput.Equals(negativeSign)) And Sep Then
            ' Decimal separator is OK

A+,Hervé.