ASP.net PageAsyncTask 异步任务---待解

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