如果实现一个窗体内嵌套显示另一个窗体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/b1sg 著作权归作者所有。请勿转载和采集!