Discussion :

[atifo]

je veux programmer le bouton echape a quitter le form (unload me)
je n'est sait pas comment

[OhMonBato]

Propriétét KeyPreview de ta feuille à True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

[atifo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = vbKeyEscape Then Unload Me
Form2.Show
 
End Sub

merci bien pour votre reponse mais maintenant le probleme lorsque tu appuye sur une autre touche il fait apparaitre le forme 2

parsque moi je vex progammer le boutton echap seulement faire unload me ce form et affiche le form2

apparemment il devient comme ca le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = vbKeyEscape Then Unload Me
Form2.Show
 
End Sub

[OhMonBato]

il y a une question cachée ?

[ucfoutu]

Question cachée, non ...

Mais si j'ai bien compris de ce qui cherche à être fait, ce serait plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
  If KeyCode = vbKeyEscape Then 
    Unload Me
    Form2.Show
  End If
 
End Sub

[atifo]

oui avec end if merci bien