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
|
|
|