Webサービスを使用したいのですが、複数の非同期関数を呼び出せないようです...1つのAsyncCompletedからカスケードして別のAsyncCompletedを開始する以外は??
選択リストをインポートします。MyWebService
パブリッククラスメイン
Dim WithEvents ws As New picklists.MyWebService.picklists
Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ws.GetCustomersAsDatatableAsync()
ws.GetRoutesAsDatatableAsync()
End Sub
Private Sub ws_GetCustomersAsDatatableCompleted(sender As Object, e As GetCustomersAsDatatableCompletedEventArgs) Handles ws.GetCustomersAsDatatableCompleted
Dim dt As DataTable = CType(e.Result, DataTable)
cmb_customer.DataSource = dt
cmb_customer.DisplayMember = "NAME"
End Sub
Private Sub ws_GetRoutesAsDatatableCompleted(sender As Object, e As GetRoutesAsDatatableCompletedEventArgs) Handles ws.GetRoutesAsDatatableCompleted
Dim dt As DataTable = CType(e.Result, DataTable)
cmb_route.DataSource = dt
cmb_route.DisplayMember = "NAME"
End Sub
内部例外: {"非同期処理中にエラーが発生しました。複数の非同期同時操作を実行するには、一意の状態オブジェクトが必要です。"}
編集/解決策:
Imports picklists.MyWebService
Public Class main
Dim WithEvents ws As New picklists.MyWebService.picklists
Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ws.GetCustomersAsDatatableAsync(Guid.NewGuid.ToString)
ws.GetRoutesAsDatatableAsync(Guid.NewGuid.ToString)
End Sub
Private Sub ws_GetCustomersAsDatatableCompleted(sender As Object, e As GetCustomersAsDatatableCompletedEventArgs) Handles ws.GetCustomersAsDatatableCompleted
Dim g As String = e.UserState
Dim dt As DataTable = CType(e.Result, DataTable)
cmb_customer.DataSource = dt
cmb_customer.DisplayMember = "NAME"
End Sub
Private Sub ws_GetRoutesAsDatatableCompleted(sender As Object, e As GetRoutesAsDatatableCompletedEventArgs) Handles ws.GetRoutesAsDatatableCompleted
Dim g As String = e.UserState
Dim dt As DataTable = CType(e.Result, DataTable)
cmb_route.DataSource = dt
cmb_route.DisplayMember = "NAME"
End Sub