十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
可以把想要的窗体放字典里,比如
创新互联建站专业为企业提供团风网站建设、团风做网站、团风网站设计、团风网站制作等企业网站建设、网页设计与制作、团风企业网站模板建站服务,十载团风做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
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