zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    jQuery实现每隔几条元素增加1条线的方法
    Unity3D for Mac 破解
    IOS
    Unity3D 动态地创建识别图
    Easy AR简单教程
    iOS对象(数组)转化为JSon字符串
    iOS对象(字典或数组)转化为JSon字符串
    iOS
    iOS 逆向
    ios-逆向 手把手安装最新版Theos
  • 原文地址:https://www.cnblogs.com/wenluderen/p/9991019.html
Copyright © 2011-2022 走看看