VBA 嵌套显示窗体:实现一个窗体内嵌套另一个窗体
可以使用 UserForm 对象的 ShowModal 或者 Show 方法实现在一个窗体内嵌套显示另一个窗体。
示例代码:
Sub ShowNestedUserForm()
Dim uf1 As UserForm1
Dim uf2 As UserForm2
Set uf1 = New UserForm1
Set uf2 = New UserForm2
uf2.ShowModal
'或者使用 uf2.Show 方法
End Sub
其中 UserForm1 是主窗体,UserForm2 是嵌套显示的窗体。在 UserForm1 中添加一个 CommandButton 控件,点击该按钮会弹出 UserForm2 窗体。
UserForm1 代码:
Private Sub CommandButton1_Click()
Dim uf2 As UserForm2
Set uf2 = New UserForm2
uf2.ShowModal
'或者使用 uf2.Show 方法
End Sub
UserForm2 代码:
Private Sub UserForm_Click()
Unload Me
End Sub
以上代码可以在 VBA 编辑器中直接复制粘贴运行,前提是创建了 UserForm1 和 UserForm2 两个窗体。
原文地址: https://www.cveoy.top/t/topic/nl3d 著作权归作者所有。请勿转载和采集!