Eine einfache, voll funktionsfähige, asynchrone WaitingForm Eine WaitingForm, die bei langdauernden Prozessen eine Progressbar in einem separaten Thread im Vordergrund anzeigt
Autor:   Dietrich Herrmann	Bewertung:     [ Jetzt bewerten ]	Views:  13.453
ohne Homepage	System:  WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 6 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Zunächst erstellt man die Form, die als "Waiting-Form" genutzt werden soll. Die Form sollte möglichst folgende Eigenschaftseinstellungen haben:

• FormBorderstyle = None
• StartPosition = Manual

Wenn man möchte, dass die Form mit einem DropShadow dargestellt werden soll, dann kann man das mit dem folgenden Code, den man in die FormKlase einfügt, erreichen:

' Define the CS_DROPSHADOW constant
Private Const CS_DROPSHADOW As Integer = 131072
' Override the CreateParams property
Protected Overrides ReadOnly Property CreateParams() As CreateParams
  Get
    Dim cp As CreateParams = MyBase.CreateParams
    cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW
    Return cp
  End Get
End Property

Dann platziert man auf der Form ein Progressbar-Control mit den Eigenschaften:

• Style = Marquee
• Dock = Fill
• MarqueeAnimationSpeed = 10

Das sind so zu sagen die vorbereitenden Tätigkeiten.

Damit diese Form als asynchrone WaitingForm angezeigt wird, benötigt man die folgende Klasse 'clsWaitingWindow.vb':

Imports System.Windows.Forms
Imports System.Threading
 
Public Class PleaseWait
  Implements IDisposable
 
  Private waitSplash As Form
  Private waitLocation As Point
 
  ''' <summary>
  ''' Einstellungen beim Erstellen der Waitingform
  ''' </summary>
  ''' <param name="theWaitingForm">Name der zu verwendenden Form</param>
  ''' <param name="x">die linke Position der Waitingform</param>
  ''' <param name="y">die obere Position der Waitingform</param>
  ''' <remarks>Gibt man location nicht explizit als Point an,
  ''' wird die Waitingform auf dem Screen zentriert gezeigt</remarks>
  Public Sub New(ByVal theWaitingForm As Form, _
    Optional ByVal x As Integer = 0, Optional ByVal y As Integer = 0)
 
    waitSplash = theWaitingForm
    waitLocation = New Point(x, y)
    Dim thr As New Thread(New ThreadStart(AddressOf workerThread))
    With thr
      .IsBackground = True
      .SetApartmentState(ApartmentState.STA)
      .Start()
    End With
  End Sub
 
  Public Sub Dispose() Implements IDisposable.Dispose
    waitSplash.Invoke(New MethodInvoker(AddressOf stopThread))
  End Sub
 
  Private Sub stopThread()
    waitSplash.Close()
  End Sub
 
  Private Sub workerThread()
    With waitSplash
      If waitLocation = New Point(0, 0) Then
        .StartPosition = FormStartPosition.CenterScreen
      Else
        .Location = waitLocation
      End If
      .TopMost = True
    End With
    Application.Run(waitSplash)
  End Sub
End Class

Zur Anwendung der Form kann man diesen Code benutzen, wenn der zu erwartend länger dauernde Prozess stattfindet (bspw. Laden von umfangreichen Datenbeständen in DatagridView):

Using New PleaseWait(NameOfWaitingform)
  ' ... hier die langdauernden Abläufe starten
End Using

Dann wird an dieser Stelle die WaitingForm mit der animierten Progressbar im Vordergrund angezeigt. Die Form bleibt solange sichbar, wie der Prozess dauert, dann wird sie wieder ausgeblendet.

Als Position für die Form kann ein individueller Punkt angegeben werden, gibt man keinen an, wird die Form auf dem Bildschirm zentriert angezeigt.