aspnet进度条

aspnet进度条 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 --------------------------------------------------------------------- ÔÚPage_LoadÊÂ?þÀïÊäÈë?º Visual C# .NET?úÂë Response.Write(""); Response.Write("<>mydiv.innerText = '';"); Response.Write("< language=javascript>;"); Response.Write("var dots = 0;var dotmax = 10;function ShowWait()"); Response.Write("{var output; output = 'ÕýÔÚ×?ÔØÒ?Ãæ';dots++;if(dots>=dotmax)dots=1;"); Response.Write("for(var x = 0;x < dots;x++){output += '??';}mydiv.innerText = output;}"); Response.Write("function StartShowWait(){mydiv.style.visibility = 'visible'; "); Response.Write("window.setInterval('ShowWait()',1000);}"); Response.Write("function HideWait(){mydiv.style.visibility = 'hidden';"); Response.Write("window.clearInterval();}"); Response.Write("StartShowWait();"); Response.Flush(); Thread.Sleep(10000); ??ÎÄÀ?×ÔCSDN???Í??תÔØÇë?êÃ??ö???º ---------------------------------------------------------- () ---------------------------------------------------------- 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 ArcGIS 10 Desktop