Slide 5
Slide 5 text
Async and Await
Sub Async cmdExecuteTask_Click(sender As Object, e As EventArgs) _
Handles cmdExecuteTask.Click
Dim retval = Await DataAccessCode.GetCustomerListAsync("CA")
End Sub
With Async (Good)
With Callbacks (Bad)
Private TargetHandler As GetCustomerListHandler = AddressOf DataAccessCode.GetCustomerList
Private CallbackHandler As AsyncCallback = AddressOf MyCallbackMethod
Sub cmdExecuteTask_Click(sender As Object, e As EventArgs) _
Handles cmdExecuteTask.Click
TargetHandler.BeginInvoke("CA", CallbackHandler, Nothing)
End Sub
Sub MyCallbackMethod(ByVal ar As IAsyncResult)
Dim retval As String()
retval = TargetHandler.EndInvoke(ar)
End Sub