VB.Net程序设计:原始多线程例子VS2008版
发布时间:2020-12-17 08:03:25 所属栏目:百科 来源:网络整理
导读:Imports System.ThreadingPublic Class Form1 Private Sub BtnRunUpdate_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnRunUpdate.Click Me.BtnRunUpdate.Text = "执行..." Dim t As Thread = New Thread(New ThreadStart(A
Imports System.Threading Public Class Form1 Private Sub BtnRunUpdate_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnRunUpdate.Click Me.BtnRunUpdate.Text = "执行..." Dim t As Thread = New Thread(New ThreadStart(AddressOf RunDownLoadFile)) t.IsBackground = True t.Name = "RunDownLoadFile" t.Start() End Sub Private Sub RunDownLoadFile() For i = 0 To 50 SetTextBoxData(i) Thread.Sleep(100) Next ResetDownLoadBtn() End Sub Public Delegate Sub SetTextBoxCallBack(ByVal strText As String) Private Sub SetTextBoxData(ByVal strData As String) If Me.TxtBoxData.InvokeRequired Then Dim callback As New SetTextBoxCallBack(AddressOf SetTextBoxData) Me.BeginInvoke(callback,New Object() {strData}) Else Me.TxtBoxData.Text = strData End If End Sub Private Sub ResetDownLoadBtn() If Me.BtnRunUpdate.InvokeRequired Then Dim mi As New MethodInvoker(AddressOf ResetDownLoadBtn) Me.BeginInvoke(mi) Else Me.BtnRunUpdate.Enabled = True Me.BtnRunUpdate.Text = "完成(&F)" Me.BtnRunUpdate.Select() End If End Sub Private Sub BtnReset_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles BtnReset.Click Me.BtnRunUpdate.Text = "重新开始" End Sub End Class 原始多线程例子,没采用lambda表达式。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |