OVH Cloud OVH Cloud

Fermer feuille avec touche Echap ?

5 réponses
Avatar
Lapin
Bonjour,

Quel est le moyen en VB6 pour fermer une fenêtre avec la touche Echap ?
Ai essayé avec évènement KeyPress de Form, mais evidemment, ça ne fonctionne
pas dès que le focus est pour un controle de la dite feuille....

Merci !

5 réponses

Avatar
Christian HUBERT-HUGOUD- Xtrem7
Mets le KeyPreview à True, puis peut-être dans le KeyDown, au lieu du
KeyPress...

"Lapin" a écrit dans le message de
news:
Bonjour,

Quel est le moyen en VB6 pour fermer une fenêtre avec la touche Echap ?
Ai essayé avec évènement KeyPress de Form, mais evidemment, ça ne


fonctionne
pas dès que le focus est pour un controle de la dite feuille....

Merci !




Avatar
Lapin
Ok, merci.

"Christian HUBERT-HUGOUD- Xtrem7" a écrit dans
le message de news:c53pq9$476$
Mets le KeyPreview à True, puis peut-être dans le KeyDown, au lieu du
KeyPress...

"Lapin" a écrit dans le message de
news:
> Bonjour,
>
> Quel est le moyen en VB6 pour fermer une fenêtre avec la touche Echap ?
> Ai essayé avec évènement KeyPress de Form, mais evidemment, ça ne
fonctionne
> pas dès que le focus est pour un controle de la dite feuille....
>
> Merci !
>
>




Avatar
X
Si tu as un bouton "fermer" sur ta feuille, mets sa propriété "Cancel" sur
True


"Lapin" a écrit dans le message de news:

Bonjour,

Quel est le moyen en VB6 pour fermer une fenêtre avec la touche Echap ?
Ai essayé avec évènement KeyPress de Form, mais evidemment, ça ne


fonctionne
pas dès que le focus est pour un controle de la dite feuille....

Merci !




Avatar
le_troll
Bonjour, KeyPress ça devrait marcher avec KeyAscii (escape = 27), mais il
faut mettre la procédure dans caque objet susceptible de recevoir une frappe
clavier...
--
Merci, @+, bye, Joe
ng75 arobase noos point fr
------------------------------------------
Avec une hache, celui qui tient le manche a toujours raison !
----------------------------------------------------------


"Lapin" a écrit dans le message de news:

Bonjour,

Quel est le moyen en VB6 pour fermer une fenêtre avec la touche Echap ?
Ai essayé avec évènement KeyPress de Form, mais evidemment, ça ne


fonctionne
pas dès que le focus est pour un controle de la dite feuille....

Merci !




Avatar
bmlogiciels2
1) Dans propriétés de la feuille :
KeyPreview = True

2)
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then Unload Me
End Sub

Et ça marche à tous les coups...



"Lapin" a écrit dans le message de news:

Bonjour,

Quel est le moyen en VB6 pour fermer une fenêtre avec la touche Echap ?
Ai essayé avec évènement KeyPress de Form, mais evidemment, ça ne


fonctionne
pas dès que le focus est pour un controle de la dite feuille....

Merci !