Question

VBA中窗体中多页控件获取焦点和ESC键问题

1.多页中有两页：page1,page2. 2.每一页中有一个取消按纽，点击以后，窗体消失，要求按ESC键得到同样结果。 3.sheet1中有两个按纽，一个点击打开窗体，page1激活。另一个点击打开窗体，page2激活。 问题： 1.我是这样写按纽的，但是每次点击并没有按我的意思正确显示（例如有时候点按纽2时，page1是激活，而我要求是Page2激活）。怎么才能每次点击都能正确显示呢。 Private Sub CommandButton1_Click() UserForm1.Show UserForm1.MultiPage1.Value = 0 End Sub Private Sub CommandButton2_Click() UserForm1.Show UserForm1.MultiPage1.Value = 1 End Sub 2.我是这样控制ESC键的。但是只有在Page2激活时，ESC键才起作用。也就是说CommandButton1.Cancel = True没用，系统只认最后一条。我该怎么样才能在任何情况下按ESC键都能正常退出窗体呢？ Private Sub UserForm_Initialize() CommandButton1.Cancel = True CommandButton2.Cancel = True End Sub

Answer 1

在UserForm1窗体中添加一个按钮，名为cmdexit，将此按钮属性的Cancel值设置为True，将其Click事件编写代码为退出窗体即可。如下：

Private Sub cmdexit_Click()

Unload UserForm1

End Sub

一个窗体只能有一个按钮的cacel值为true，可以把这个cmdexit按钮尽量缩小，放在显示区域之外。

这样在任何时候按一下ESC键，相当于单击了cmdexit按钮，窗体就退出了。

亲测！

Answer 2

前面一个次序换一下就好了。 Private Sub CommandButton1_Click() UserForm1.MultiPage1.Value = 0 UserForm1.Show End Sub Private Sub CommandButton2_Click() UserForm1.MultiPage1.Value = 1 UserForm1.Show End Sub 第二个这样是不行的，因为只能有一个按钮有“Cancel”属性，你可以在窗体上添加一个有“Cancel”属性的按钮，就可以解决了。