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
@+
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.