[VB] [évènement clavier souris] [touche enter]

[julia82]

Bonjour et merci à ceux qui m’ont déjà répondu auj.

Toujours des questions sur VB (je débute dans ce langage)…

Je veux faire un événement clavier et un événement souris qui écoute un champ texte. (Le but est de contrôler que le contenu soit bien un num. de carte d’identité.. )

Je voudrais appeler Verificar_NIF… quand l’utilisateur appuie sur entrée (evt clavier) et aussi quand il sort du champ (evt souris).

Je mets le code à la fin du message :

 

Ce code ne fait rien (je sais que ma fonction Verificar.. fonctionne car je l’ai testée). Il ne me fait même pas le msgBox avec le code de la touche.

 

Je cherche donc :

- code de la touche entrée (vbclrf je crois ou 13 en valeur), et la fonction qui peut la comparer au KeyAscii poussé : cInt, Cstr,car…. ?

- S’il y a une erreur de code ou dans mon événement clavier TextBox121_KeyPress ou ds mon évènement souris TextBox121_LostFocus

- Si j’ai bien utilisé les bons types d’évènements…

 

Merci beaucoup !

 

Julia

 

'funcionamiento:escucha del control de NIF
'nota: cambiar por un nombre más adecuado (cuando nombre del control haya cambiado)

Private Sub TextBox121_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Dim AllowedKeys As String 'control mientras tecleando (lo harémos luego)

Dim NIF_entrado As String
NIF_entrado = TextBox121.Text 'cambiar por un nombre más adecuado

Dim valido As Boolean

Dim KeysOfValidation As String 'Array de las teclas de validación
KeysOfValidation = "{ENTER}" 'completar luego
'If InStr(KeysOfValidation , Chr(KeyAscii)) = 0 Then 'ha presado Enter

MsgBox CStr(KeyAscii)
If KeyAscii = CInt(vbCrLf) Then
   valido = Verificar_NIF(NIF_entrado)

   'Controles: no se podrá salir del campo hasta que el NIF sea valido (por ejemplo)
   Dim mensaje_alert As String
   mensaje_alert = "No se podrá grabar el documento si los campos no son validos !"
   'poner variables de control en un estado False (luego)

   If valido = False Then
   MsgBox mensaje_alert, vbOKOnly, "WARNING"
   End If
End If

End Sub

'
'

Private Sub TextBox121_LostFocus()
Dim NIF_entrado As String
NIF_entrado = TextBox121.Text 'cambiar por un nombre más adecuado

Dim valido As Boolean
valido = Verificar_NIF(NIF_entrado)


Dim mensaje_alert As String
mensaje_alert = "No se podrá grabar el documento si los campos no son validos !"
'poner variables de control en un estado False (luego)
'Controles: no se podrá salir del campo hasta que el NIF sea valido (por ejemplo, hacerlo luego)

If valido = False Then
MsgBox mensaje_alert, vbOKOnly, "WARNING"
End If
End Sub

Modifié le 11 septembre 2005 par KewlCat

[sebdraluorg]

Salut,

 

Eh c'est pas tres clair avec des commentaire en espagnol ou italien ou je sais pas...

En fait pour appeler une fonction lorsque l'on enfonce la touche Entrer du clavier il suffit de faire:

 

Private Sub TextBox121_KeyPress(ByVal KeyCode As Integer)

Select Case KeyCode

Case 13 ' Case "Enter"

'Ici tu appel ta fonction...

Case Else

Exit sub

End Select

end sub

@+

[julia82]

Merci, je crois que c'est ça.

et pardon, je sais que c'est lourd les commentaires en espagnol, mais je travaille en Espagne et pour des Espagnols

 

Bon Week-end. Je crois que je vais pas tarder à partir

 

 

MERCI BEAUCOUP A TOUS

 

 

Julia

 

Ah, si juste une précision: pour ecouter Entrée (qui est un caractère non imprimable) on m'a dit dans un forum que KeyPress ne marchait pas que c'était KeyDown...

 

 

A lundi

Modifié le 11 septembre 2005 par KewlCat

[Invité davdoo91]

J'aimerai savoir si julia82 a testé ce que lui a indiqué sebdraluorg car normalement ce ne devrai pas marcher (car je l ai déja testé et dans l'aide indiqué que la touche enter n'est pas prise en compte).

Moi aussi je cherche une solution à ce problème mais je ne trouve pas.

[Dylav]

Eh bien, tu sais, Julia82 s'est connectée pour la dernière fois le 4 novembre 2005 !

 

Mais, si tu veux tenter ta chance quand même, inscris-toi sur Zébulon, et tu pourras ainsi lui envoyer un message par le biais de la MP (messagerie interne), et espérer qu'elle vienne y jeter un œil. M'enfin, d'après moi, tes chances sont infimes...

[scuny]

si c'est du vb6 il faut remplacer keycode par keyascii.

 

je viens de tester et ca marche.

 

A+