VB.NET中怎么實(shí)現(xiàn)異步調(diào)用

這篇文章給大家介紹VB.NET中怎么實(shí)現(xiàn)異步調(diào)用，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對大家能有所幫助。

VB.NET異步調(diào)用代碼示例：

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 是你想要異步調(diào)用的方法     iasync_test=dele_2.begininvoke  (nothing,nothing) '開始異步調(diào)用     End Sub

如果想知道VB.NET異步調(diào)用是否完成，加個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 '已經(jīng)完成調(diào)用  
dele_2.endinvoke(iasync)  
Else '未完成  
MessageBox.Show("not finished!")  
End If   
End Sub 

另外你也可以自己寫個回掉函數(shù)，在VB.NET異步調(diào)用完成的時候進(jìn)行別的操作。

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 是你想要異步調(diào)用的方法  
dim ab as asynccallback  
ab=new asynccallback(address of
 back_test) 'back_test是要進(jìn)行回掉的函數(shù)  
iasync_test=dele_2.begininvoke
(ab,nothing) '開始異步調(diào)用  
End Sub  
private Sub back_test()sub back_test()  
'想進(jìn)行的操作。  
dele_2.endinvoke(iasync_test)  
end sub 

關(guān)于VB.NET中怎么實(shí)現(xiàn)異步調(diào)用就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，可以學(xué)到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。