Echap ou entrer ?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 011 fois - Téléchargée 67 fois

Contenu du snippet

Voici le code qui vous permettra soit de sortir en appuyant sur la touche Echap soit valider en appuyant sur Entrer.
Le bouton Command1 doit avoir sa valeur Default à True.

Source / Exemple :


Private Sub Text1_KeyDown(Shift as Integer, KeyCode as Integer)

Select Case Not Shift and KeyCode 'Choisi la valeur de KeyCode.
       Case Is = 13 'Si la valeur = 13 alors
            Command1_Click 'Simule le bouton Entrer.
       Case Is = 27 'Si la valeur = 27 alors
            Unload Me 'Ferme la fenetre en cours.
End Select

Conclusion :


Voila, ce sera tout! Vous pouvez rajouter du code dans la Case 13 et dans Case 27
@+

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
jeudi 8 avril 2010
Statut
Membre
Dernière intervention
8 avril 2010

bn pour le code j'ai un vb 2008 et ca n'a pas marché veuillez m'aidez voila ma bon adresse email nouri_ilham@hotmail.fr
Merci pour ce code.
Je crois que je le copierai coller bien souvent

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.