TextBox VB6 pour débutant

MICHELBLANVALET Messages postés 12 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 25 février 2006 - 25 févr. 2006 à 09:31
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012 - 25 févr. 2006 à 19:07
Salut
J'ai creer un groupe de TextBox Num1()
Voici mon code pour récupérer des valeurs
Private Sub Remplir()
For i=1 to 6
Numéro(i) = Num1(i).Text
If Numéro(i) > 49 Then
Réponse = MsgBox("Vous ne pouvez entrer une valeur supérieure à 49 ",65,"Attention")
Else
Num1(i) vbNullstring
End If
next

Le probleme est qu'il faut avoir entré toutes les valeurs pour effectuer le test
Que faire pour tester entrée par entrée et faire le test à chaque entrée
J'espère etre clair
Merci

3 réponses

cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
25 févr. 2006 à 11:44
Bonjour,



Place ton code dans l'évenement Numéro_Lostfocus dans la boucle car tu
auras l'index de ton controle en paramètre de la procédure



tu auras juste à écrire :

If Numéro(index).text >"49"Then

Réponse = MsgBox("Vous ne pouvez entrer une valeur supérieure à 49 ",65,"Attention")

Else

Num1(index).text = vbNullstring

End If

++
Moustachu
MICHELBLANVALET Messages postés 12 Date d'inscription lundi 8 mars 2004 Statut Membre Dernière intervention 25 février 2006
25 févr. 2006 à 14:36
Merci moustachu
Mais pourrais tu me montrer comment faire car je n'ai pas très bien saisi l'évènement Numéro_lostfocus
Numéro étant une variable
Comment mettre mon code dans l'évènement Muméro_Lostfocus dans la boucle
Désolé pour mon ignorance
Merci
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
25 févr. 2006 à 19:07
Désolé,
je voulais dire Num pas numéro. L'évènement est lié à ton textbox.


A la place de ta sub remplir, place le code dans l'évènement LostFoxus de ton textbox. Ainsi, à chaque fois que l'utilisateur quittera le textbox, ta vérification se fera.

++
Moustachu
Rejoignez-nous