vb编程时Esc键不能退出窗体

将窗体的属性KeyPreview设置为True：

Option

Explicit

Private

Sub

Form_KeyPress(KeyAscii

As

Integer)

If

KeyAscii

=

27

Then

'如果皮渗按的燃旅脊键是Esc，

End

'那么退出程镇悄序

End

If

End

Sub

Private

Sub

Form_Load()

Me.KeyPreview

=

True

End

Sub

试试下面的代码就雹野明白了友肆昌好扒。

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Command1.Cancel = True

End Sub

---