Jr
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 10/09/2004 11:18 hs
COmo faço pra apertar "ESC" fechar o Form ? |
|
|
|
|
|
Righi
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 10/09/2004 11:44 hs
Coloque esse código no form e marque a propiedade Keypreview como TRUE Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyEscape Then
unload me End If End Sub
 Righi
Beginner Game Developer! duduchaves@uai.com.br
|
|
|
|
|
|
Postada em 10/09/2004 11:47 hs
if KeyAscii = 27 then ' KeyPress(KeyAscii As Integer) if keycode = vbKeyEscape then ' KeyUp(KeyCode As Integer, Shift As Integer) 'fecha Unload Me 'fecha toda a aplicação end |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 10/09/2004 11:47 hs
outra maneira de se usar o "Esc" Private Sub Usuario_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then
Unload Me
End
End If end sub |
|
|
|
