【下载文档:  VB.NET进度条的方法代码.txt 】

---

VB.NET进度条的方法代码
1.创建进度条：复制代码 代码如下:2.设置查询按钮属性复制代码 代码如下:Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'在此处放置初始化页的用户代码If Not IsPostBack Thebut_find.Attributes.Add("onClick", "Lay1.style.visibility='';progress_update();")End IfEnd Sub3.注册javascript脚本复制代码 代码如下:Public Sub scriptjdt(ByVal objPage As System.Web.UI.Page, ByVal strValue As String)Dim jb As Stringjb = ""objPage.RegisterStartupScript("jdt_ok", jb)End Sub4.在查询按钮单击事件中调用复制代码 代码如下: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