Protected Sub btnCreate_Click(sender As Object, e As EventArgs) Handles btnCreate.Click
SetControl(False)
ButtonAreaUpdatePanel.Update()
DetailAreaUpdatePanel.Update()
'GetExceStatusTimer.Enabled = True
Dim asyncTask = New PageAsyncTask(AddressOf BeginGenDataExecute, AddressOf EndGenDataExecute, AddressOf EndGenDataExecute, Nothing)
Page.RegisterAsyncTask(asyncTask)
Page.ExecuteRegisteredAsyncTasks() 这里会阻塞
End Sub
Private GenData As Action = Sub()
GenDataExecute()
End Sub
Private Function BeginGenDataExecute(ByVal sender As Object, ByVal e As EventArgs, cb As AsyncCallback, extraData As Object) As IAsyncResult
Return GenData.BeginInvoke(cb, extraData)
End Function
Private Sub EndGenDataExecute(ByVal ar As IAsyncResult)
GenData.EndInvoke(ar)
End Sub