189 8069 5689
可以把想要的窗体放字典里，比如
创新互联建站专业为企业提供团风网站建设、团风做网站、团风网站设计、团风网站制作等企业网站建设、网页设计与制作、团风企业网站模板建站服务，十载团风做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Dictionarystring,Form dic = new ...
{
{"Form1", Form1}
}
调用：
Form f1 = dic["Form1"]
VBA 是 Office 常见套件的母语，不是说换就换的，就好比 N 年前发明的自行车，在这个汽车流行的时代依然存在，这至少说明了一点：经典的东西自然有其自身存在的价值。
当使用 VBA 做出来的功能满足不了我们需求的时候，我们可以考虑用 VSTO (Visual Studio Tools for Office) 来开发，而在 VSTO 的开发中就有两种常见的语言，他们是：VB.NET、C#。VB.NET 和 VBA 都属于 Basic 语言家族的，所以他们有相似之处。
PS：
在 .NET 中有 WebService，在 Excel 2013 中也可以方便的调用 WorksheetFunction.WebService，但是在 Excel 2013 以前的版本中是没有的，从这点可以看出，微软还是在不断的加强和完善新版 Office 组件中的 VBA 功能。
vb是语言
vba是微软内嵌入office的模块,可以快速对word,excel等编程
vbs是一种脚本语言
这三种语法一样
vb.net是微软基于.net框架的vb,语法略不同于vb
VB是是一种编程语言。VBA主要VB是office上的应用，VB.net可以说是VB的最新版本，如果就是业余或者刚入门的话，语法什么的和VB几乎完全一样。只是语法上面，要求比VB要求规范，比方说VB6.0里面Text1="1"读的出来，VB.net就会报错，一定要textbox1.text="1"才可以。对于初学者来说，VB.net这种规范要求有益无害。
如果你想学的话，最好学VB.net，一来功能强，二来，能帮助你学习基本概念。比方说我学VB的时候，什么是类一点概念都没有。都是学了.net之后才懂得。三来么，学会了VB.net.学其他都很方便的。
但是如果就是用用excel的话么，VBA就可以了。不过说句老实话，光学VBA的话，很多东西理解起来比较难。我是最后学VBA的，看了书一个礼拜之后就能随便编了。但是书上很多代码的，我猜如果没有VB基础，估计看不懂
直接添加一个MID父窗体或在已有窗体的属性中找到IsMDIContainer属性，然后设置为True，然后创建第二个窗体 ，需要加载子窗体的时候：
Dim NewMDIChild As New Form2
NewMDIChild.MdiParent = Me
NewMDIChild.Show()
Public Shared Sub CheckMDIChildForm(ByVal MDIForm As Windows.Forms.Form, ByVal MDIChildForm As Windows.Forms.Form, ByVal MDIChildFormName As String)
If MDIForm.MdiChildren.Length 1 Then
'如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例
Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体
MDIChildFrm.MdiParent = MDIForm '指定父窗体
MDIChildFrm.Show() '打开窗体
Exit Sub
Else
Dim x As Integer
Dim frmyn As Boolean
For x = 0 To (MDIForm.MdiChildren.Length) - 1
Dim tempChild As Windows.Forms.Form = CType(MDIForm.MdiChildren(x), Windows.Forms.Form)
If tempChild.Name = MDIChildFormName Then
'检测到有该MDI子窗体，设为激活 并退出循环
frmyn = True
tempChild.BringToFront()
Exit For
Else
frmyn = False
End If
Next
If Not frmyn Then
'在打开的窗体中没检测到则新建
Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体
MDIChildFrm.MdiParent = MDIForm '指定父窗体
MDIChildFrm.Show() '打开窗体
End If
End If
End Sub
dim 一个窗体 as new form
with 一个窗体
.location=...
.size=...'这里是设置窗体的位置等属性
end with
一个窗体.show