Problème avec isnumeric

**Reservoir_Dogs** · 06/08/2006, 22h53

J'ai vraiment besoin d'aide. Dans mon programme, il y a une zone de texte qui sert à l'utilisateur a s'inscrire. Quand il clique sur le boutton inscription, le code doit empècher la zone de texte de contenir une valeur numérique. Alors moi j'ai ecrit:

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
'Vérification du contenu de la zone de texte Utilisateur
 
    If Id_Utilisateur = "" Then
 
    MsgBox " Vous devez saisir un nom d'utilisateur ! ", vbInformation, " Erreur! "
 
    Txt_User.SetFocus
 
    Exit Sub
 
 
    ElseIf IsNumeric(Id_Utilisateur) = True Then
 
    MsgBox " Le nom de l'utilisateur ne doit comprendre aucun chiffre ! ", _
           vbInformation, "  Erreur! "
 
    Txt_User.SetFocus
 
    Exit Sub

Il y a une petit probleme. S'y je met de l'alpha-numérique dans la zone de texte il y a pas de message d'erreur alor que j'en voudrait un.

Svp Quelqu'un pourrait m'aider....

**jadey** · 06/08/2006, 23h09

y'a 2 Exit Sub et pas de endif dans ton code c'est normal?
et utilise les balises code si tu veux que quelqu'un te reponde

**Reservoir_Dogs** · 06/08/2006, 23h15

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Private Sub Cmd_Effacer_Click()
 
'Vider les zones de texte Nom d'utilisateur et Mot de passe.
 
    Txt_User.Text = ""
    Txt_Password.Text = ""
 
    Txt_User.SetFocus
 
End Sub
 
Private Sub Cmd_Inscription_Click()
 
' Définition des variables
 
    Num_Fichier = FreeFile
    Id_Utilisateur = Txt_User.Text
    Password_Utilisateur = Txt_Password.Text
 
'Vérification du contenu de la zone de texte Utilisateur
 
    If Id_Utilisateur = "" Then
 
    MsgBox " Vous devez saisir un nom d'utilisateur ! ", vbInformation, " Erreur! "
 
    Txt_User.SetFocus
 
    Exit Sub
 
    ElseIf IsNumeric(Id_Utilisateur) = True Then
 
    MsgBox " Le nom de l'utilisateur ne doit comprendre aucun chiffre ! ", _
           vbInformation, " Erreur! "
 
    Txt_User.SetFocus
 
    Exit Sub
 
    ElseIf Password_Utilisateur = "" Then
 
    MsgBox " Vous devez saisir un mot de passe ! ", vbInformation, " Erreur! "
 
    Txt_Password.SetFocus
 
    Exit Sub
 
    ElseIf Len(Password_Utilisateur) < 6 Then
 
    MsgBox " Le mot de passe doit contenir plus de 6 caractères ! ", _
           vbInformation, " Erreur!"
 
    Txt_Password.SetFocus
 
    Exit Sub
 
    End If
 
' Ouvrir le fichier Utilisateur.dat .
 
    Open App.Path & "\Utilisateur.dat" For Append As #Num_Fichier
 
' Implémentation du pseudo-code.
 
    Write #Num_Fichier, Id_Utilisateur, Password_Utilisateur
 
    MsgBox "Inscription terminée!"
 
    Close #Num_Fichier
 
'Fermer Vérification et Ouvrir Accueil.
 
    Frm_Vérification.Visible = False
    Frm_Vérification.Enabled = False
 
    Frm_Accueil.Visible = True
    Frm_Accueil.Enabled = True
 
    Txt_User.Text = ""
    Txt_Password.Text = ""
 
End Sub
 
Private Sub Cmd_Quitter_Click()
 
'Quitter l'application didacticiel.
 
    Quitter = MsgBox("Voulez-vous vraiment quitter l'application Didacticiel?", _
                    vbqusetion + vbYesNo, "Quitter")
 
    If Quitter = vbYes Then
 
    End
 
    Else
 
    Exit Sub
 
    End If
 
    End Sub
 
' Déclaration des variables
 
    Option Explicit
 
    Dim Aléatoire1 As Integer
    Dim Aléatoire2 As Integer
    Dim Réponse As Integer
    Dim Num_1 As Integer
    Dim Num_2 As Integer
    Dim Symbole As String
    Dim Num_Fichier As Integer
    Dim Id_Utilisateur As String
    Dim Password_Utilisateur As String

**SfJ5Rpw8** · 06/08/2006, 23h41

On peu par exemple empêcher la saisie des numériques :

Code :

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

1
2
3
4
5
6
7
 
' Avec Code Ascii de "0" = 48
'   et Code Ascii de "9" = 57
 
Private Sub Txt_User_KeyPress(Index As Integer, KeyAscii As Integer)
   If KeyAscii >= 48 And KeyAscii <= 57 Then KeyAscii = 0
End Sub

**Reservoir_Dogs** · 07/08/2006, 00h04

J'ai un peu de difficulté pour comprendre la façon d'integrer le code que m'a montré.

J'en suis comment dire seulement à mes début en programmation et je m'éforce la plupart du temp à tout comprendre par moi seul mais cette fois j'ai vraiment des délais serrer pour remmettre mon projet d'étude.

J'aimerais vraiment avoir quelque précisions sans neccessairement avoir tout cuit dans le bec.

**zazaraignée** · 07/08/2006, 03h06

Bonjour et bienvenue sur le forum VB

Tu n'as qu'à l'ajouter entre deux autres procédures. L'événement KeyPress, comme son nom l'indique, se produit lorsque l'utilisateur appuie sur une touche du clavier. Si le caractère tapé correspond à un chiffre (valeur ascii entre 48 et 57) le caractère est remplacé par un caractère zéro, c'est à dire: rien.

C'est une manière d'oblger l'utilisateur à n'entrer que des lettres. L'inverse est tout aussi faisable.

Problème avec isnumeric

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager