Discussion :

[afrodje]

Bonjour.
J'ai une appli qui utilise juste les decimals.
Je veux que,si l'utilisateur rentre un ou des caracteres, qu'il soit prevenu par msgBox de ne pas rentrer de caractere.
C'est tout bete mais je n'y arrive pas.
Je voulais dans un premier temps, convertir en entier (voir codes suivants) mais toujours rien

Code :

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

1
2
3
4
5
6
7
8
 
Dim s as String
 
Dim i as Integer
 
s= InputBox ("Test", "Taper un nombre") 
 
i=Integer.Parse(S)

Code :

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

1
2
3
4
5
6
 
Dim i As Integer
 
Dim s As String= "12"
 
 i=CType(s,Integer)

Merci de m'aider.
Cordialement.

[Jérôme Lambert]

Tu es en Dotnet 2.0 ?

Dans ce cas, tu as le contrôle MaskedTextBox pour forcer la saisie de l'utilisateur.

[More]

ou tu peux utiliser de ASCII

[afrodje]

Tu es en Dotnet 2.0 ?

Dans ce cas, tu as le contrôle MaskedTextBox pour forcer la saisie de l'utilisateur.

Ceci est bien adapté pour mon problème
J'ai regarder des tuto et je ne sais toujours pas l'utiliser
Je me sert beaucoup de ce site http://plasserre.developpez.com/v3-4.htm

ou tu peux utiliser de ASCII

pas compris ta solution
Je converti en ASCII?

Sinon j'ai trouver la solution mais je comprend pas le code donc pour moi ce n'est pas interressant (le code est tester et fonctionne)

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
 Try
            ' récupération du salaire
            nombre = Integer.Parse(Box_convertir.Text)
            ' il doit être >=0
            If nombre < 0 Then
                Throw New Exception("")
            End If
        Catch ex As Exception
            ' msg d'erreur
            Box_convertir.Text = "0"
MessageBox.Show(Me, "Salaire incorrect", "Erreur de saisie", MessageBoxButtons.OK,MessageBoxIcon.Error)
            ' focus sur champ erroné
            Box_convertir.Focus()
            ' sélection du texte du champ de saisie
            Box_convertir.SelectAll()
            ' retour à l'interface visuelle
            Return
        End Try 'try-catch

Comprend pas try, catch,Throw New Exception

Merci

Tu es en Dotnet 2.0 ?

oui

[JPelli]

Bonjour
Autre solution dans l'événement KeyPress

Code :

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

1
2
3
4
5
dim Valide = '123456789,'
if Valide.IndexOf(e.keychar) < 0 then
msgbox("caractères non valide")
e.handled = true
end if

La textbox n'accepteras que les chiffres et , .
Bon boulot
Jean

[Hatchepsout]

Je veux que,si l'utilisateur rentre un ou des caracteres, qu'il soit prevenu par msgBox de ne pas rentrer de caractere.

utiliser la fonction isNumeric

[afrodje]

utiliser la fonction isNumeric

Je l'avais deja utilisé mais surement mal !
Donc ca marchais pas.

[Hatchepsout]

Je l'avais deja utilisé mais surement mal !
Donc ca marchais pas.

Code :

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

1
2
3
4
If IsNumeric(matextbox.Text) = False Then
                matextbox.Text = ""
                MessageBox.Show("Ce champ doit etre de type numerique", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

comme ca normalement ca va bien fonctionner

bonne chance

[afrodje]

Code :

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

1
2
3
4
If IsNumeric(matextbox.Text) = False Then
                matextbox.Text = ""
                MessageBox.Show("Ce champ doit etre de type numerique", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

comme ca normalement ca va bien fonctionner

bonne chance

Merci.
Je te dirai ca demain matin.

[afrodje]

Code :

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

1
2
3
4
If IsNumeric(matextbox.Text) = False Then
                matextbox.Text = ""
                MessageBox.Show("Ce champ doit etre de type numerique", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

Ok ca marche
Petite modif sur mon code.
Comme j'utilise le contenu de matextbox apres(multiplication etc...), si je met matextbox.text = "", il y aura probleme donc je le met à 0 (matextbox.text = "0").
Merci.

[Hatchepsout]

Ok ca marche
Petite modif sur mon code.
Comme j'utilise le contenu de matextbox apres(multiplication etc...), si je met matextbox.text = "", il y aura probleme donc je le met à 0 (matextbox.text = "0").
Merci.

salut
je veut savoir c'est quoi le probeleme que tu a

petite remarque

Code :

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

matextbox.text = ""

ce ligne de code va garder ta zone de texte(matxtbox) vide c'est tous