VB.net 与线程

Imports System.Threading
Imports System


Public Class Form1
    Dim th1,th2 As Thread
    Public Sub Method1()
        Dim i As Integer
        For i = 1 To 100

            If Me.Label1.BackColor = Color.DarkRed Then
                Me.Label1.BackColor = Color.Gold
            End If
            System.Threading.Thread.Sleep(100)
            If Me.Label1.BackColor = Color.Gold Then
                Me.Label1.BackColor = Color.DarkRed
            End If
            System.Threading.Thread.Sleep(100)
        Next
         
    End Sub
    Public Sub Method2()
        Dim i As Integer
        For i = 1 To 100
            If Me.Label2.BackColor = Color.DarkRed Then
                Me.Label2.BackColor = Color.Gold
            End If
            System.Threading.Thread.Sleep(500)
            If Me.Label2.BackColor = Color.Gold Then
                Me.Label2.BackColor = Color.DarkRed
            End If
            System.Threading.Thread.Sleep(500)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        Me.Label1.BackColor = Color.DarkRed
        Me.Label2.BackColor = Color.DarkRed


        th1 = New Thread(New ThreadStart(AddressOf Method1))
        th1.Start()

        th2 = New Thread(New ThreadStart(AddressOf Method2))
        th2.Start()
        System.Threading.Thread.Sleep(1000)
    End Sub

    Private Sub Form1_Load(sender As Object,e As EventArgs) Handles Me.FormClosed
        th1.Abort()  调用此方法通常会终止线程。
        th2.Abort()
    End Sub

End Class

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...