VBA中“esc”键不能用？？？？

jinzuofeng · 发表于 2004-9-6 11:44:00

请高手指点一下如何在打开vba写的对话时，按下"ESC"键退出当前对话框。

雪山飞狐_lzh · 发表于 2004-9-6 13:41:00

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub

jinzuofeng · 发表于 2004-9-7 15:51:00

谢谢！

jinzuofeng · 发表于 2004-9-10 16:02:00

请lzh741206版主指点
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyEscape Then Unload Me
End Sub
我把以上函数加入到对话框模块中，并把UserForm改为我的对话框名
执行还是不能退出对话框？？？？

雪山飞狐_lzh · 发表于 2004-9-10 18:51:00

把UserForm改为我的对话框名？
晕倒，这是不能改的

VBA中“esc”键不能用？？？？

发表回复

精选推荐