VB.NET中怎么實現異步調用

這篇文章給大家介紹VB.NET中怎么實現異步調用，內容非常詳細，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

VB.NET異步調用代碼示例：

private delegate Sub (()sub  (or Function )()function) dele_1      private dele_2 as dele_1     private iasyync_test as IAsyncResult     在form_load里面     Private Sub Form1_Load()Sub   Form1_Load(ByVal sender As   System.Object, ByVal e As   System.EventArgs) Handles   MyBase.Load     dele_2 = New dele_1(AddressOf   test1) 'test1 是你想要異步調用的方法     iasync_test=dele_2.begininvoke  (nothing,nothing) '開始異步調用     End Sub

如果想知道VB.NET異步調用是否完成，加個button。

Private Sub Button2_Click()Sub 
Button2_Click(ByVal sender As 
System.Object, ByVal e As 
System.EventArgs) Handles 
Button2.Click  
If iasync.IsCompleted = 
True Then '已經完成調用  
dele_2.endinvoke(iasync)  
Else '未完成  
MessageBox.Show("not finished!")  
End If   
End Sub 

另外你也可以自己寫個回掉函數，在VB.NET異步調用完成的時候進行別的操作。

Private Sub Form1_Load()Sub Form1_
Load(ByVal sender As System.Object, 
ByVal e As System.EventArgs) 
Handles MyBase.Load  
dele_2 = New dele_1(AddressOf test1) 
'test1 是你想要異步調用的方法  
dim ab as asynccallback  
ab=new asynccallback(address of
 back_test) 'back_test是要進行回掉的函數  
iasync_test=dele_2.begininvoke
(ab,nothing) '開始異步調用  
End Sub  
private Sub back_test()sub back_test()  
'想進行的操作。  
dele_2.endinvoke(iasync_test)  
end sub 

關于VB.NET中怎么實現異步調用就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。