vb.net的委托调用

最新推荐文章于 2025-08-10 09:08:34 发布

原创最新推荐文章于 2025-08-10 09:08:34 发布 · 1.9k 阅读

5 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

vb.net

这篇博客介绍了VB.NET中如何正确地在多线程环境下更新UI。通过创建自定义委托和使用Invoke方法，避免了跨线程操作Windows窗体控件时出现的错误。示例代码演示了错误的直接修改UI控件和正确的委托调用方法。

vb.net编程如果用多线程，因为无法传递函数指针，所以就存在了委托调用从而实现获得函数指针的作用：
在VB.NET中，一个委派是一个类型安全、面向对象的函数指针。

委托调用编程如下：

'定义一个发送端‘更新进度条’的委托
Public Delegate Sub UpdateSendCallBack(ByVal msg As String, ByVal SendNum As Integer)

'发送端‘更新进度条’
Public Sub UpdateSend(ByVal msg As String, ByVal SendNum As Integer)
If frmmainsl.ProgressBar1.InvokeRequired Then

Dim d As New UpdateSendCallBack(AddressOf UpdateSend)
frmmainsl.Invoke(d, New Object() {msg, SendNum})
Else

Me.Label3.Text = msg
Me.ProgressBar1.Value = SendNum
End If

总结：delegate声明一个委托——定义委托调用的函数。（委托和函数的参数要一致）

这样在其他线程中要实现更新季度条时要这样写： frmmainsl.UpdateSend("第" & PacketNum + 1 & "包传送结束！", PacketNum + 1)

正规写法：

定义一个发送端‘更新进度条’的委托
Public Delegate Sub UpdateSendCallBack(ByVal msg As String, ByVal SendNum As Integer)

'发送端‘更新进度条’
Private Sub UpdateSend(ByVal msg As String, ByVal SendNum As Integer)
Me.Label3.Text = msg
Me.ProgressBar1.Value = SendNum
End If

这样在其他线程中要实现更新季度条时要这样写： frmmainsl.Invoke(New UpdateSendCallBack(AddressOf UpdateSend), New Object() {"第" & PacketNum + 1 & "包传送结束！", PacketNum + 1})

'=============================================================下面是转载========================================

[原帖地址]http://topic.csdn.net/u/20111019/17/ac098c48-ed25-4e1f-acd0-ec192ca44eac.html

 
  '原先错误的写法!  
 -------------------------  
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
     Dim MyThread As New System.Threading.Thread(AddressOf sum)  
     MyThread.Start()  
 End Sub  
 Private Sub sum()  
     Dim i, sum As Integer  
     For i = 0 To 100  
         sum += i  
     Next  
     Me.Text = CStr(sum)  '在这里就会报错,教我"如何跨线程调用windows窗体控件",表示没看懂  
 End Sub  
 -------------------------------------  
 '正确的线程委托写法  
 -------------------------------------  
 Private Delegate Sub myDelegate(ByVal myString As String) '自定义一个委托  
   
 Private Sub SetWindowText(ByVal myString As String) '与委托相同签名的函数或过程  
 Me.Text = myString  
 End Sub  
   
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
 Dim MyThread As New System.Threading.Thread(AddressOf sum)  
 MyThread.Start()  
 End Sub  
   
 Private Sub sum()  
 Dim i, sum As Integer  
 For i = 0 To 100  
 sum += i  
 Next  
 Me.Invoke(New myDelegate(AddressOf SetWindowText), sum.ToString) '委托的调用  
 End Sub  
 

标签

#vb.net #integer #string #object #多线程