VB.NET使用委托解决窗体卡死的情况

184 阅读 0 评论 122 点赞

我是靠谱客的博主甜美唇彩，这篇文章主要介绍VB.NET使用委托解决窗体卡死的情况，现在分享给大家，希望可以做个参考。


Private Sub 开始读取(sender As Object, e As EventArgs) Handles 开始读取参数按钮.Click
Dim myInvoker As MethodInvoker = New MethodInvoker(AddressOf 读取参数LongTime)
myInvoker.BeginInvoke(Nothing, Nothing)
End Sub
Private Delegate Sub updateDelegate(ByVal item, ByVal 列表框) '声明一个委托，参数和委托的过程参数保持一致
Sub 读取参数LongTime()
'do something
'假如里面有个ListBox要在这个过程中更新，那么也要使用委托
'更新ListBox1列表框内的item
Me.Invoke(New updateDelegate(AddressOf updateItem), updateValue, ListBox1) '委托和过程绑定并执行
End Sub
Private Sub updateItem(ByVal item, ByVal 列表框) '委托绑定的过程
列表框.Items.add(item)
End Sub

使用委托可以避免窗体假死，但是实际测试发现，程序实行的时间变的很长，不知道有什么办法解决？？？