重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你这个是操作多个窗口还是操作单个窗口
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名与空间、雅安服务器托管、营销软件、网站建设、易县网站维护、网站推广。
单个窗口的话,没必要创建多个对象,1个就够了。
如果特殊情况下需要创建多个大漠插件的对象,承载对象的变量可设置成数组型,或者可更换成模块去创建多个对象
我以前用过:如图,这个模块可以实现,需要的话精益论坛上有 搜索下
代码的写法如下:
1、先创建个全局变量的对象数组
2、如下
Sub Main()
Dim thr As Thread
For Pi As Integer=0 To 4 //启用5线程
MulParams =Pi vbTab sFile vbTab dFile vbTab 1 vbTab DelN vbTab cr vbTab cg vbTab cb vbTab IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr=New Thread(AddressOf MyMulThreadCaller)
thr.Start() //启动多线程进程
Application.DoEvents
Next
End Sub
Sub Main() Dim thr As New Thread(AddressOf 循环) thr.Start("a") End Sub Sub 循环(a() As String) '这里随你干什么循环也行 For Each i As String In a MsgBox(i) Next End Sub