vb点虐创建新线程 vbnet中有几种线程

vb点虐怎么新建线程

Private Sub setA()

专注于为中小企业提供成都做网站、网站建设、外贸营销网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业大厂免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

msgbox("")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim t1 As Threading.Thread = New Threading.Thread(AddressOf setA)

t1.start

End Sub

多线程就是这样的。界面线程是主线程，你这个Form_Load就是运行在主线程上的线程，而Thread1，Thread2是由主线程启动的。这个启动不是线性的。

主线程只是通知系统，请启动一个线程运行某某函数。

而哪个线程先运行完全在系统决定。甚至可能主线程执行到Thread1.Abort() ,Thread2.Abort()的时候这两个线程都还没有启动起来，所以你会遇到两个变量都是空值这种情况。

多线程操控同一个空间容易出现混乱，可通过SyncLock语句，将对空间的操作添加至lock语句内部，

Class simpleMessageList

Public messagesList() As String = New String(50) {}

Public messagesLast As Integer = -1

Private messagesLock As New Object

Public Sub addAnotherMessage(ByVal newMessage As String)

SyncLock messagesLock

messagesLast += 1

If messagesLast messagesList.Length Then

messagesList(messagesLast) = newMessage

End If

End SyncLock

End Sub

End Class

参考：

文章名称：vb点虐创建新线程 vbnet中有几种线程
标题URL：http://myzitong.com/article/ddioise.html