13518219792
Imports System.Threading
创新互联建站是专业的湖口网站建设公司，湖口接单;提供成都网站制作、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行湖口网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
Public Class Form1
Dim t1, t2 As Thread
Dim tt1
Private Delegate Sub voiddelegate(ByVal i As Integer)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Form2.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
t1 = New Thread(AddressOf test)
tt1 = 1
t1.Start()
tt1 = 2
t2 = New Thread(AddressOf test)
t2.Start()
' Timer1.Start()
End Sub
Private Sub updateui(ByVal i As Integer)
Form2.Label1.Text = i.ToString
Form2.Label2.Text = i.ToString
End Sub
'把循环放到线程中运行会好一些，其实主要事务是对窗体控件的操作时多线程意义不大，因为访问窗体的代码依然要在窗体线程中运行。
Private Sub test()
Dim d As voiddelegate = AddressOf updateui
For i = 0 To 9000
Me.Invoke(d, i)
Next
End Sub
'如果放在计时器中运行效果好的多
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer = 0
i += 1
If i 9000 Then Timer1.Stop() : i = 0
Form2.Label1.Text = i.ToString
Form2.Label2.Text = i.ToString
End Sub
End Class
'如果在另一线程中用Application.run 打开窗体确实能行，不过窗体间相互操作不起作用，这个尚待研究中。
在项目中右键点击添加窗体。在代码中需要显示该窗体的地方写入如下代码：“form2.show（）”form2是你窗体的name属性……
如果是VB.NET
那么可以直接从一个父窗体类继承，例如
Dim
NewFrm
as
New
Form1
NewFrm.Show
这样可以为一个窗体创建N个相同的子类，并且通过类的方法覆盖，可以与父类有所不同
Vb不是人机对话窗口，而是编程工具，可以编写代码进行调试执行或者生成可执行文件。
用Visual Studio .Net开发"Hello World!"程序：
我们知道"Hello World"一般是命令行程序，而这种程序在Visual Studio .Net中被称为"控制台程序"。下面是Visual Studio .Net编写控制台"Hello World！"程序的具体步骤：
（1）、启动Visual Studio .Net。
（2）、选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。
（3）、将【项目类型】设置为【Visual Basic项目】。
（4）、将【模板】设置为【控制台应用程序】。
（5）、在【名称】文本框中输入【Hello World】。
（6）、在【位置】的文本框中输入【E:VS.NET项目】，然后单击【确定】按钮，则Visual Studio .Net会按照上面设定的参数创建一个控制台应用程序项目，具体如图01所示。
图01："Hello World"控制台程序的【新建项目】界面
（7）、在【解决方案资源管理器】窗口中，双击Module1.vb文件，进入Module1.vb文件的编辑界面。
（8）、Visual Studio .Net已经为产生Main()函数。在系统创建的Main()函数中加入下面一行代码就可以了：
Console.WriteLine ("Hello World!")
（9）、选择【文件】|【保存Module1.vb】菜单或者按快捷键Ctrl＋S，保存所做的修改。
（10）、此时单击快捷键Ctrl＋F5运行程序就可以得到图02所示运行界面：
