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

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

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


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

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

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

谢谢！

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

请<A name=48502><FONT color=#990000><B>lzh741206</B></FONT></A>版主指点


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


我把以上函数加入到对话框模块中，并把UserForm改为我的对话框名


执行还是不能退出对话框？？？？

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

把UserForm改为我的对话框名？


晕倒，这是不能改的
页: [1]
查看完整版本: VBA中“esc”键不能用？？？？