[VB.NET] limiter les valeurs d'un champs aux nombres

**fabrozor** · 27/04/2006, 15h36

Bonjour,

Présentation :
Ceci est mon premier post sur votre forum. Je ne suis pas très à l'aise pour l'instant avec, si bien que je ne sais même pas sur quel critère faire une recherche pour régler mon problème.
Aussi, j'espères que vous me pardonnerez si j'ai posté au mauvais endroit.

Contexte :
Je suis un newbie en programmation.
Je viens d'installer Visual Studio Express 2005 et j'essaie de faire mon 1er programme :
un convertisseur FRANCS / EUROS.

J'ai fais la partie esthetique et les choses se compliquent maintenant que je dois mettre du code.

J'ai pas mal avancé et le convertisseur fonctionne. Je voudrais maintenant le déboguer.

Problème :
Mon problème actuel est le suivant :
Si à la place de la somme à convertir, on met du texte, ça fait planter l'opération.

Je voudrais donc forcer le champs "à convertir" à ne recevoir que des chiffres et rien d'autre (faire un champ au format "numerique").

Je pourrai bien sur faire un MsgBox qui dise qu'on n'accepte que des chiffres mais, je voudrais savoir si c'est possible de carrément ne pouvoir que saisir des chiffres et que si on essaie de taper des lettres, la saisie de ne fasse pas. Un peu comme dans une cellule Excel dont on aurait défini le format à "numerique".

Je vous met ci-joint une image de mon convertisseur

Merci pour votre aide.

**raboin** · 27/04/2006, 15h41

Alors pour ton probleme je te recommande d'utiliser le control NumericUpDown, t'as un quelque proprietes pas mal, genre limiter le nombre de chiffres apres la virgule des trucs comme ca et facile a utiliser en plus.

Et une fois tes calculs fait si tu veux afficher ton resultat dans une messagebox tu fais:

Code :

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

1
2
 
MessageBox::Show(Convert::ToString(resulat));

**toniolol** · 27/04/2006, 15h45

Salut,
pour ma part je resterai avec un TextBox avec un contrôle sur KeyPress genre if not isnumeric...
Tu peux aussi ajouter un composant ErrorProvider qui sera plus esthétique (et moins ch***) qu'une MessageBox.
Je n'ai rien testé mais voilà le fond de ma pensée !

**HULK** · 27/04/2006, 16h05

avant de faire quoi que ce soit tu mets ce code pour vérifier que l'utilisateur a bien saisi un chiffre :

Code :

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

1
2
3
4
5
6
7
 If not isnumeric(textbox.Text) Then
            ErrorProvider1.SetError(textbox, "il faut un chiffre !")
 Exit Sub
 Else
            ErrorProvider1.SetError(textbox, "")
 End If

**neo.51** · 27/04/2006, 16h15

Bonjour,

Il y a plusieurs solutions à ton problème.

1)Utiliser un controle qui n'accépte que les chiffres (genre numericUpAndDown)
2)Intercépter l'évènement KeyPress de ton textbox, tester si la touche appuyée est un chiffre, si c'est pas un chiffre tu annules la frappe.
3)Laisser rentrer du texte dans ta textBox mais tester que la valeur est bien un nombre avant de lancer le calcul

... il y a aussi le controle MasquedTextBox qui te permets de faire un équivalent de la solution 2 mais j'ai jamais trop utilisé (à la base c'est plutôt prévu pour la saisie sous forme standardisée genre une adresse ip un numéro de télephonne, ...)

**abelman** · 27/04/2006, 17h00

http://faqvbnet.developpez.com/?page...orm_txtbox_num

**fabrozor** · 27/04/2006, 17h06

Je vous remercie pour vos réponses.
J'ai l'impression que "numericUpAndDown" correspondrait à ce que je voudrai faire. Je vais me renseigner là dessus (en gardant sous le coude les autres solutions).
Merci encore.

**netomin** · 27/04/2006, 17h07

Didonc avec toutes ces réponses cette discussion je pense merite bien dejà d'être close

.

On voit qu'on est de plus en plus nombreux c'est bien.

**fabrozor** · 27/04/2006, 18h11

Fermez pas tout de suite

je teste les solutions une après l'autre !

En fait j'ai essayé le "NumericUpandDown" qui est super pratique mais qui ne correspond pas esthetiquement au résultat escompté.

Je vais essayer les autres soluces, notament celle de Hulk

Je n'en suis pas encore à la soluce de la FAQ indiquée par abelman mais j'y viens doucement

**netomin** · 27/04/2006, 18h23

Quand je disais

cette discussion merite d'être close

Je rigolais

et aussi j'ai parlé au sens figuré.

C'est à toi de juger si tu met RESOLU à ta discussion, selons si ta trouvé ce que tu cherchais.

à +

**fabrozor** · 27/04/2006, 19h15

Bein mon problème c'est que la solution de la FAQ fonctionne parfaitement,
sauf 2 problèmes :

ça ne prend en compte

- ni le backspace (pour corriger un montant érronné)
- ni le séparateur décimal (pour mettre une somme avec des centimes)

Vous avez une soluce ?

Voici mon code actuel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Public Class fenetre
 
 
    Dim taux As Decimal = 6.55957
 
 
    Private Sub BoxSource_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles BoxSource.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
 
 
    Private Sub BoutonFRF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonFRF.Click
        BoxResultat.Text = taux * BoxSource.Text
    End Sub
 
 
    Private Sub BoutonEuros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonEuros.Click
        BoxResultat.Text = taux / BoxSource.Text
    End Sub
 
 
End Class

**netomin** · 27/04/2006, 19h44

Pour accepter le backspace, et la virgule, il faut changer ton code comme ça:

Code :

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

1
2
3
4
5
6

IfNot (Char.IsDigit(e.KeyChar) OrChar.IsControl(e.KeyChar) OrChar.ToString(e.KeyChar) = ",") Then
'Tous les caractères non numériques ne sont pas traités sur le TextBox. 
e.Handled = True
EndIf

Peut être il ya d'autres solutions mais cela marche.

à +

**fabrozor** · 27/04/2006, 19h48

Excellent ! Merci

L'avantage de ta solution est de m'ouvrir les yeux sur le code Visual Basic et de me montrer certaines subtilités.

J'ai rajouté des espaces entre "Or" et "Char."

Je vais chercher si je peux
- remplacer le caractere décimal "," par "."
- et changer la présentation des chiffres des milliers "2006" >> "2 006"

ci-joint l'état actuel du convertisseur

**toniolol** · 28/04/2006, 08h20

Envoyé par fabrozor

Code :

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

1
2
3
...
BoxResultat.Text = taux * BoxSource.Text
...

Salut,
voici un conseil que l'on m'a donnée dès le début et qu'il me semble utile de te transmettre : toujours rajouter ces deux réferences en début de code :

Code :

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

1
2
Option Strict On
Option Explicit On

Elles t'obligent à déclarer explicitement tes variables (dim x as...) et bloquent tout cast automatique (string=integer).
Ceci devrait faire apparaître des erreurs dans ton code...
Tu peux faire par exemple ceci : (mais il y a d'autre possibilités...)

Code :

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

BoxResultat.Text = (taux * Convert.ToDouble(BoxSource.Text)).ToString()

**fabrozor** · 28/04/2006, 09h19

Envoyé par toniolol

Salut,
voici un conseil que l'on m'a donnée dès le début et qu'il me semble utile de te transmettre : toujours rajouter ces deux réferences en début de code :

Code :

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

1
2
Option Strict On
Option Explicit On

Elles t'obligent à déclarer explicitement tes variables (dim x as...) et bloquent tout cast automatique (string=integer).
Ceci devrait faire apparaître des erreurs dans ton code...

Salut Toniolol,
Merci pour tes conseils.
Dis, "Option..." faut le mettre avant ou après ma première ligne ?

Code :

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

1
2
Public Class fenetre
...

Pour ce qui est du débogage, ça me bloque quand je veux lancer mon programme. Ca me dit

Code :

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

"impossible de démarrer le débogage. Handle de liaison non valide"

Alors du coup je vais dans l'onglet "Projet> propriété> Déboger" et je décoche la case

Code :

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

"Activer le processus d'hébergement visual studio".

Envoyé par toniolol

Tu peux faire par exemple ceci : (mais il y a d'autre possibilités...)

Code :

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

BoxResultat.Text = (taux * Convert.ToDouble(BoxSource.Text)).ToString()

Ca sert à quoi dans ce cas là ton .ToString() ?

**toniolol** · 28/04/2006, 09h24

Envoyé par fabrozor

Salut Toniolol
Dis, "Option..." faut le mettre avant ou après ma première ligne ?

Il faut le placer tout en haut de ton code avant toute déclaration.

Envoyé par fabrozor

Ca sert à quoi dans ce cas là ton .ToString() ?

La signature de la propriété Text d'une TextBox est un String donc si on est pointilleux on ne peux pas y mettre un Double. (c'est l'equivalent de Convert.ToString).
Je recherche peut-être un petit peu trop la petite bête mais j'aime bien quand c'est propre...

**fabrozor** · 28/04/2006, 09h38

Envoyé par toniolol

BoxResultat.Text = (taux * Convert.ToDouble(BoxSource.Text)).ToString()

hmm...
Dans ce cas là ne vaudrait il pas mieux ecrire

Code :

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

BoxResultat.Text = Convert.ToString(taux * Convert.ToDouble(BoxSource.Text))

?

**toniolol** · 28/04/2006, 09h46

Je dirai que c'est la même chose

Pour caster x en un string tu peux utiliser :

x.ToString()

Convert.ToString(x)

Ctype(x,string)
Il en existe surement d'autre que je n'utilise pas genre DirectCast il me semble...

**fabrozor** · 28/04/2006, 09h53

Ok.

J'ai ajouté "Option Strict" et "Option Explicit" au début.

Ta syntaxe est un raccourci de quelqu'un qui maitrise ces concepts. Je crois que je vais rester simple au début pour mieux comprendre ce que j'écris.

Par contre j'ai un problème.

Si je converti 12,05 FRF en euros j'obtiens la bonne somme (79,0428185)
Si je converti 12,05 Euros en FRF j'obtiens une somme erronée (0,54436265560166)

Aurais tu une idée de mon erreur ?

Rappel de mon code pour le bouton de conversion en euros :

Code :

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

1
2
3
Private Sub BoutonEuros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonEuros.Click
        BoxResultat.Text = Convert.ToString(taux / Convert.ToDouble(BoxSource.Text))
    End Sub

**toniolol** · 28/04/2006, 09h58

Code :

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

BoxResultat.Text = Convert.ToString(Convert.ToDouble(BoxSource.Text)/taux)

[VB.NET] limiter les valeurs d'un champs aux nombres

Windows Forms

Discussions similaires

Partager

Partager