多个线程同时开启的简单实例
乐博网lob.cn提示:调试环境为 vs2005 + windows2003 / windows2008 / xp / vista + .NET Framework 2.0
代码:
Imports System.Threading Public Class MoreThreadForm Dim Text1 As String Dim Text2 As String Dim Thread1, Thread2 As Thread Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Text1 = CInt(TextBox1.Text) Text2 = CInt(TextBox2.Text) Thread1 = New Thread(New ThreadStart(AddressOf Add)) ' 线程1 Thread1.Start() Thread2 = New Thread(New ThreadStart(AddressOf AddStr)) ' 线程2 Thread2.Start() Catch ex As Exception Thread2 = New Thread(New ThreadStart(AddressOf AddStr)) Thread2.Start() End Try End Sub Sub Add() MessageBox.Show(CInt(Me.TextBox1.Text) + CInt(Me.TextBox2.Text)) End Sub Sub AddStr() MessageBox.Show("乐博网" & Me.TextBox1.Text & Me.TextBox2.Text) End Sub End Class
|