textbox : savoir le type de la valeur entré

Question

j'ai fait un programme contenant une textbox.

je voudrais qu'à chaque fois que la valeur de la boite change, elle soit converti (c'est un convertisseur frs <-> €)

Pour cela, il faudrait que l'utilisateur ne puisse entré que des valeurs numérique et une virgule dans la textbox.

j'ai deja essayer en testant la valeur ascii de la touche appuyer mais ctrl + V
ne marchait pas.

Aider moi SVP

VB_MAN · Answer

Voici une facon de faire :

Private Sub Text1_Change()

If Trim$(Text1.Text) = "" Then Exit Sub

Dim I   As Long
Dim Tmp As String
Const Chiffre = "0123456789,"

For I = 1 To Len(Text1.Text)

If InStr(1, Chiffre, Mid$(Text1.Text, I, 1)) > 0 Then
Tmp = Tmp & Mid$(Text1.Text, I, 1)

Next I

If Text1.Text <> Tmp Then Text1.Text = Tmp

End Sub

NitRic28@Hotmail.com

VB_MAN

cs_Warning · Answer

Votre texte ici/btest
[mailto:tee@sss &gt dddddd  test@test'>"dsdd]
[ :msgbox time  vbscript:msgbox(time)]
Mail:ASC.Warning@caramail.com
Warning

cs_Warning · Answer

[   :blank vbscript about:blank]
Mail:ASC.Warning@caramail.com
Warning

Textbox : savoir le type de la valeur entré

3 réponses

Discussions similaires