Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

julia82

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

Messages recommandés

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

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. ?

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

- Si jai bien utilisé les bons types dévènements

 

Merci beaucoup ! :P

 

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é par KewlCat

Partager ce message


Lien à poster
Partager sur d’autres sites

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

@+

Partager ce message


Lien à poster
Partager sur d’autres sites

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 :P

 

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 :P

Modifié par KewlCat

Partager ce message


Lien à poster
Partager sur d’autres sites
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.

Partager ce message


Lien à poster
Partager sur d’autres sites

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... :P

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant

  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×