VB.NET是一个功能比较强大的编程语言，主要就是面向对象，而且其特有的性质还能对移动设备进行一些操作。那么今天我们将会了解到的则是关于VB.NET异步调用的一些实际代码编写方式，希望对大家有所帮助。

VB.NET异步调用代码示例：

 
 

  
  
privatedelegateSub(()sub @H_502_11@
  
  
(orFunction)()function)dele_1 @H_502_11@
  
  
privatedele_2asdele_1 @H_502_11@
  
  
privateiasyync_testasIAsyncResult @H_502_11@
  
  
在form_load里面 @H_502_11@
  
  
PrivateSubForm1_Load()Sub @H_502_11@
  
  
Form1_Load(ByValsenderAs @H_502_11@
  
  
System.Object,ByValeAs @H_502_11@
  
  
System.EventArgs)Handles @H_502_11@
  
  
MyBase.Load @H_502_11@
  
  
dele_2=Newdele_1(AddressOf @H_502_11@
  
  
test1)'test1是你想要异步调用的方法 @H_502_11@
  
  
iasync_test=dele_2.begininvoke @H_502_11@
  
  
(nothing,nothing)'开始异步调用 @H_502_11@
  
  
EndSub@H_502_11@
 
 

如果想知道VB.NET异步调用是否完成，加个button。

  
  
PrivateSubButton2_Click()Sub
Button2_Click(ByValsenderAs
System.Object,ByValeAs
System.EventArgs)Handles
Button2.Click @H_502_11@
  
  
Ifiasync.IsCompleted=
TrueThen'已经完成调用 @H_502_11@
  
  
dele_2.endinvoke(iasync) @H_502_11@
  
  
Else'未完成 @H_502_11@
  
  
MessageBox.Show("notfinished!") @H_502_11@
  
  
EndIf @H_502_11@
  
  
EndSub@H_502_11@
 
 

另外你也可以自己写个回掉函数，在VB.NET异步调用完成的时候进行别的操作。

  
  
PrivateSubForm1_Load()SubForm1_
Load(ByValsenderAsSystem.Object,
ByValeAsSystem.EventArgs)
HandlesMyBase.Load @H_502_11@
  
  
dele_2=Newdele_1(AddressOftest1)
'test1是你想要异步调用的方法 @H_502_11@
  
  
dimabasasynccallback @H_502_11@
  
  
ab=newasynccallback(addressof
back_test)'back_test是要进行回掉的函数 @H_502_11@
  
  
iasync_test=dele_2.begininvoke
(ab,nothing)'开始异步调用 @H_502_11@
  
  
EndSub @H_502_11@
  
  
privateSubback_test()subback_test() @H_502_11@
  
  
'想进行的操作。 @H_502_11@
  
  
dele_2.endinvoke(iasync_test) @H_502_11@
  
  
endsub@H_502_11@
 
 

VB.NET异步调用的相关代码编写方法就为大家介绍到这里。