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

[afrodje]

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

Je suis tout a fais d'accord avec toi.
Mais le code que tu m'a donner

Code :

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

If IsNumeric(matextbox.Text) = False Then

est un test pour voir si matextbox est un numerique.
Mais si condition est faux alors matextbox est vide ( on est toujours d'accord ).
Comme j'utilise ce nombre (donc vide) et je le multiplie ou divise ou autre, alors ca me genere une erreur.
Alors si je met 0, ca marche (parce que null n'est pas égale à 0 !!)

J'espere que tu as compris

@+

[Jiyuu]

Bonsoir,

J'ai un problème un peu identique au tien (voir mon message posté).
J'ai peu le résoudre de la même façon que toi. Mais je rencontre un autre souci.

Avec cette méthode, je ne calcule pas les nombres décimaux. Je pense que la virgule ne peut pas permettre les multiplications, divisons et autres.

Quelqu'un peut-il m'aider?

Charles-Elie

[afrodje]

Perso, dans mon projet, il n'y a que des décimals. Je fais plein d'opération (avec multiplication et addition)

Je vois pas pourquoi toi, tu n'arriverai pas.
Peut etre que ta mal déclarer ta variable de sorti...