62,046
社区成员
发帖
与我相关
我的任务
分享求教web异步操作的问题
我有一个函数x._Sampling在页面WebForm1中异步执行.委托代码如下:
Delegate Function Thread_Datebase(ByVal i As Int16) As Int16
Private CallBackDelegate As AsyncCallback = AddressOf PutToDesk
Dim MyDelegate As New Thread_Datebase(AddressOf x._Sampling)
执行如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _IAsyncResule As IAsyncResult '建立异步操作后台线程池
_IAsyncResule = MyDelegate.BeginInvoke(1, CallBackDelegate, Nothing)
Response.Redirect("Login.aspx", False)
下面是回掉函数:
Sub PutToDesk(ByVal ar As IAsyncResult)
'相应的操作
End Sub
上述过程执行后页面进入Login.aspx,后台自动在执行x._Sampling,我想在执行完x._Sampling后刷新当前页面,或者是跳入到其他页面,不知道该怎么写.希望各位给点提示.
Delegate Function Thread_Datebase(ByVal i As Int16) As Int16
Private CallBackDelegate As AsyncCallback = AddressOf PutToDesk
Dim MyDelegate As New Thread_Datebase(AddressOf x._Sampling)
执行如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _IAsyncResule As IAsyncResult '建立异步操作后台线程池
_IAsyncResule = MyDelegate.BeginInvoke(1, CallBackDelegate, Nothing)
Response.Redirect("Login.aspx", False)
下面是回掉函数:
Sub PutToDesk(ByVal ar As IAsyncResult)
'相应的操作
End Sub
上述过程执行后页面进入Login.aspx,后台自动在执行x._Sampling,我想在执行完x._Sampling后刷新当前页面,或者是跳入到其他页面,不知道该怎么写.希望各位给点提示.
...全文
请发表友善的回复…
发表回复
真相重于对错 2006-10-24
- 打赏
- 举报
想异步操作可以考虑ajax
真相重于对错 2006-10-24
- 打赏
- 举报
b/s 这么用不好，因为b/s 是无状态的
leslei0824 2006-10-24
- 打赏
- 举报
自己顶一下,希望各位牛人赐教啊
