zurück
Autor: Hannes Preishuber
Erstellt am: 30 Jul 2003 09:36

Bitte Warten: Benutzer mit Wartemeldungen versorgen.

Manchmal dauert es einfach ein bischen länger. Um dem Benutzer die Zeit zu vertreiben, kann man ihn mit allerlei unterhalten. Fortschrittsbalken, Prozentanzeige oder schlicht ein Mauscursor in Form einer Sanduhr.

All das ist in Webanwendungen eigentlich nicht möglich.

Vom Webserver wird die ASP.NET Seite gerendert und in einem Rutsch an den Client geschickt. Aus Performance Gründen ist das die beste Methode. Allerindg lassen sich die Daten auch Häpchenweise senden. Dazu muss der Response Buffer abgeschalten werden. Dies lässt sich am besten in der Page Direktive erledigen.

<%@ Page Language="vb" buffer=false%>

Dann kann per Response.write eine Status Info ausgegeben werden. Damit auch ein Effekt zu erkennen ist, wird ein Wartezyklus von einer halben Sekunde eingebaut.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim i As Integer
            For i = 1 To 100
                Response.Write("test" + Str(i) + "<br>")
                System.Threading.Thread.Sleep(500)
            Next
End Function

Das Problem dabei ist, das die Ausgabe etwas unschön vor dem HTML Body Tag erfolgt. Der ein oder andere Browser mag sich daran verschlucken.
Wenn Sie Ihre Anzeige genau positionieren wollen bietet sich eine Reender Funktion asu alten ASP Tagen an.

<body >
<form id="Form1" method="post" runat="server">
<asp:Button id="Button1" runat="server" Text="Button"></asp:Button>
<%ausgabe()%>
</form>
</body>

Nun müssen Sie allerdings auch dafür sorgen, das die Funtion ausgabe nicht bei jedem Reload ungesteuert ausgeführt wird. Dafür bietet sich eine Klassen Variable an. Diese heisst in diesem Sample switch und wird einfach in PageLoad auf false gesetzt. Wenn dann z.B. ein definierter Button gedrückt wird, ändert switch seinen Wert auf true. Beim Aufbau der Page läuft dann die Ausgabe Funktion durch.

Public switch As Boolean
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        switch = False
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        switch = True
End Sub
Function ausgabe()
        If switch Then
               Dim i As Integer
            For i = 1 To 100
                Response.Write("test" + Str(i) + "<br>")
                  System.Threading.Thread.Sleep(500)
            Next
  
 end if
End Function

Sanduhr Popup

Auch Java Scripte lassen sich so gesteuert in den Browser mixen. Dazu braucht man zwei Scripte. mit dem ersten wird ein neues kleines Browser Fenster geöffnet. In diesem wird ganz simpel ein animiertes GIF angezeigt, das eine drehende Sanduhr zeigt.

Beim öffnen des Fensters wird ein Handle zurückgegeben, der zum schliessen per close wieder verwendet wird.
Dadurch lässt sich am Ende das Popup wieder entfernen.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        switch = True
    End Sub
    Function ausgabe()
        If switch Then
            Dim i As Integer
            For i = 1 To 100
                Response.Write("test" + Str(i) + "<br>")
                If i = 10 Then
                    Response.Write("<script language='javascript'>" & _
    "var options='width=100,height=100'; f=window.open('wait.aspx','PopUp',options);</script>")
                End If
                If i = 90 Then
                    Response.Write("<script language='javascript'>f.close();</script>")

                End If
                System.Threading.Thread.Sleep(500)
            Next
        End If
End Function

Mit der Funktion Showmodaldialog lässt sich sogar ein modaler Dialog hochfahren.

MIt einem ähnlichen Konzept lässt sich auch per Jscript ein Fortschrittsbalken steuern. Es wird statt einem Text eben jeweils ein Jscript an den Client geschickt, das z.B. in ein DIV Tag schreibt. Auch möglich wäre es einen 20 spaltige Tabelle Schritt für Schritt die Hintergrund Farbe einer Zelle zu ändern.
Seien Sie kreativ und schreiben Sie Ihren Trick hier auf DevTrain.

 

 

 


© Copyright 2008 ppedv AG