本文标签：.net ASP ASP.NET
1.创建进度条：
2.设置查询按钮属性
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
在此处放置初始化页的用户代码
If Not IsPostBack The
but_find.Attributes.Add("onClick", "Lay1.style.visibility=;progress_update();")
End If
End Sub |
3.注册javascript脚本
Public Sub scriptjdt(ByVal objPage As System.Web.UI.Page, ByVal strValue As String)
Dim jb As String
jb = ""
objPage.RegisterStartupScript("jdt_ok", jb)
End Sub |
4.在查询按钮单击事件中调用
Private Sub but_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_find.Click
查询数据代码
----------------
Me.scriptjdt(Me, "Lay1.style.visibility=hidden;progress_stop();") 关闭进度条代码
End Sub |
|
