除了对代码陌生之外，并不知道如何来进行操作添加后的窗体。
这也是一件十分困扰的事情。
本节将先容一下，利用vba代码添加窗体，然后在窗体上添加控件，如标签按钮等等方法。
NO.2
vba中 VBComponents 凑集里包含了模块、窗体、类模块。
添加窗体就用到VBComponents.Add()来进行操作。
如：
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
表示添加一个窗体。
个中vbext_ct_MSForm参数，表示将窗体添加到凑集。
类模块vbext_ct_ClassModule 标准模块vbext_ct_StdModule。
新建表单后，运行程序什么也看不到，还须要对表单进行属性设置。
这便是像是盖一栋大楼，只是做了大楼的一个工程设计，仅仅是立项要盖这栋大楼，而没有真正履行盖楼的过程。
以是，名义上的新建了这栋楼，但其并没有变成实际意义上的大楼。
觉得有点不可接管，不管怎么说，以上代码并不能让你看到新建的窗体。
接下来，要对窗体进行一些属性设置，便是说要真正的施工对进入工地盖楼了。
设置窗体属性，要用到Properties()。中文意思便是不动产、财产、所有物等等。
Properties()括号里添加窗体属性名称，然后即是号，属性值。
这样才能够对新建的Form窗体进行实体化赋值。
如下代码：
.Properties("caption") ="我是新建窗体"'窗体标签.Properties("width") = 900'宽.Properties("Height") = 600'高
更多窗体属性可查询帮助。
上图为例，将对表格内容作为新建表单的标题名称、宽、高，包括窗体里的标署名称和按钮进行自定义设置。
NO.3添加窗体之后不是我们的初衷，由于窗体只是一个容器，我们要往里面放很多东西。
这就像大楼主体已经落成，但是不能住人呀，四面没有窗户，也没有各种消防举动步伐，更没有电梯，那么，这便是说，并没有完备得到我们想要的大楼样子。
还要对大楼进行配套举动步伐的安装。
添加标签
那我们再加一个标签吧，就像在大楼顶上安装一个XXX小区的名称，是不是有点意思了。
添加标签代码：
With ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Designer.Controls.Add("Forms.Label.1")End With
由于新建的窗体还处在编辑模式下，以是不能直接引用Controls.Add()，要在其前面加Designer。
Designer中文意思就"设计师"。看到了吧，全体过程当中，不能以一种既定的事实来对待这件事情。
就像不能对一栋在建的大楼以成熟小区来对待一样，不能随意进出，也不能以为它是一个有人住的地方，真正意义上它还是不算是一个小区。
只有交付利用之后，才能作为一个正常的工具来对待。
以是，要特殊把稳的地方在对表单里的工具进行属性设置的时候，前面添加"设计师"Designer。
示例：
默认F为新建的窗体工具。
Dim Lobj As Object Set Lobj = F.Designer.Controls.Add("Forms.Label.1") With Lobj .Caption = "恭喜！
你已经成功新建了一个表单窗体。" .Top = 50 .Left = 0 .Height = 90 .Width = .Parent.Width .TextAlign = 2 With .Font .Size = 28 .Name = "黑体" .Bold = True End With End With
添加按钮
同理，添加按钮用如下代码：
With ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm) .Designer.Controls.Add("Forms.CommandButton.1")End WithNO.4
显示窗体
如此进行，对代码细致的编写之后，布局全体表单的过程就完成了。
但是，我们还是不能看到它的样子容貌，由于没有把它呈现在面前。
就比如，在北京盖了一栋大楼，而你在广州。
想要看到这楼，是不是有两个办法，一你亲自来北京，站到大楼下面，二给大楼拍个视频，通过视频信息传输设备不雅观看。
这便是说，这楼是盖好了，在你看到它之前，还有一些方法去完成，不然，真的难说这楼是个什么样子。
说了这么多，编程便是这么玄乎，真真假假，假假真真，要抓到代码表示的实际东西，还真不是一件轻松的事情。
我们接着便是要把窗体呈现在电脑屏幕上，让自己或别人看到它，而不但是某种意义上的代码布局完成这种玄乎的事情。
显示出来也须要一行代码，也十分大略一行代码，如下：
F默认新建的窗体工具
VBA.UserForms.Add(F.Name).Show
运行后效果如下图
是不是完全了一些，如不添加标签和按钮，那么什么也没有。
这样新建后的表单就有了更多的内容。
NO.5删除窗体
末了一步删除窗体，这个不提倡利用，但要学会利用。
F为默认新建窗体工具变量。
ThisWorkbook.VBProject.VBComponents.Remove F
这句意思是从VBComponents凑集中移除F窗体。
这个不能用大楼来比喻，没有移除大楼的过程，而且操作起来也太困难，也现实中最大把设计图纸销毁，完成移除。
NO.6
完全代码
以上代码可作为学习之用，以下偌直接复制到自己的VBE窗体中利用即可。
新建窗体过程函数
Private Sub AddNewForm()Dim w As WorksheetSet w = ActiveSheetDim F As ObjectSet F = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm) With F .Properties("caption") ="我新建的表单窗体" .Properties("width") =900 .Properties("Height") = 600 Dim Lobj As Object Set Lobj = F.Designer.Controls.Add("Forms.Label.1") With Lobj .Caption = "恭喜！NO.7
" & VBA.vbCrLf & VBA.vbCrLf & "你已经成功新建了一个表单窗体。" .Top = 50 .Left = 0 .Height = 90 .Width = .Parent.Width .TextAlign = 2 With .Font .Size = 28 .Name = "黑体" .Bold = True End With End With With F.Designer.Controls.Add("Forms.CommandButton.1") .Caption = "关 闭" .Width = 150 .Height = 28 .Top = Lobj.Top + Lobj.Height + 50 .Left = .Parent.Width \ 2 - .Width \ 2 End With ''''''''''''''''''''''''''''''''''''''''''' Button按钮 CodeModule With ThisWorkbook.VBProject.VBComponents(F.Name).CodeModule .InsertLines 2, "Private Sub CommandButton1_Click()" .InsertLines 3, "Unload me" .InsertLines 4, "End Sub" End With End With VBA.UserForms.Add(F.Name).Show ThisWorkbook.VBProject.VBComponents.Remove FEnd Sub
学习VBA，从0开始布局一个运用界面，十分不好节制个中一些代码运用。
有些代码在编辑过程中会碰着很多问题，同时也会增加许多不明白的问题，须要逐一办理。
本身VBA已经给出很多常用的一些工具，直接拿来利用就可以，但是对付喜好构造编程方法的人来说，面向工具真的是小儿科。
怎么办呢，呵呵！
努力吧！
---END---
欢迎关注、收藏
