用VBA代码动态创建窗体

amulee

用VBA代码可以创建一个动态窗体，当需要的时候窗体对象创建并调入内存，关闭窗体后自动删除。参考代码如下：

1. Sub 创建窗体()
   
2.     Dim UsForm As Object
   
3.     '创建一个窗体。不能中断运行。
   
4.     Set UsForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
   
5.     With UsForm
   
6.         '由于该窗体还未运行，相当于处于设计状态
   
7.         '对于该窗体的属性，需要用Properties属性访问
   
8.         .Properties("Caption") = "测试窗体"
   
9.         .Properties("Height") = 360
   
10.         .Properties("Width") = 420
    
11.         '要在该窗体上创建控件，则需要访问Designer设计器对象
    
12.         With .Designer
    
13.             For i = 1 To 10
    
14.                 '创建标签
    
15.                 Set objLbl = .Controls.Add("Forms.Label.1")
    
16.                 '设置标签属性
    
17.                 With objLbl
    
18.                     .Top = 12 + 18 * (i - 1)
    
19.                     .Height = 12
    
20.                     .Width = 100
    
21.                     .Left = 18
    
22.                     .Caption = i
    
23.                     .BackColor = RGB(200, 200, 200)
    
24.                 End With
    
25.             Next i
    
26.         End With
    
27.     End With
    
28.     '加载并显示该窗体。注意与平时加载显示窗体的不同
    
29.     VBA.UserForms.Add(UsForm.Name).Show
    
30.     '窗体运行完后删除
    
31.     ThisWorkbook.VBProject.VBComponents.Remove UsForm
    
32. End Sub
    

复制代码

运行上述代码需要加载VBA扩展包，如图所示


附件下载： 用代码创建一个窗体.rar (11.96 KB, 下载次数: 154, 售价: 1 个金币)

2011-1-19 09:11 上传

点击文件名下载附件

过儿

好例子，支持一下

raulerini

{:101:}学习一下

liheng_0116

回复 amulee 的帖子

请问 这个创建的窗体如何修改名字？不是caption 是别的事件调用窗体时候用的名字

老糊涂

学习了，谢谢分享

outsmile1314

好例子，正需要，谢谢分享

wy791023

很有用很适用，支持中

zjdh

不错！谢谢分享！

lovevzs97

不错.我也在学习中.多谢

zhuzyangy

不错.我也在学习中.多谢