Form Ein-/Ausblendeffekt (VB.NET) Dieses VB.NET Beispiel zeigt, wie sich eine Form beim Laden langsam einblenden und beim Schließen langsam ausblenden lässt.
Autor:   Rene Kolbe	Bewertung:     [ Jetzt bewerten ]	Views:  38.963
www.Softwareservice-Weiden.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 69 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 2.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unser heutiger VB.NET Tipp zeigt, wie sich ein Fenster beim Programmstart langsam einblenden und bei Programmende dementsprechend auch langsam wieder ausblenden lässt. Hierzu nutzen wir einfach die Opacity-Eigenschaft der Form, über der wir die Transparenz des Fensters festlegen können.

' Form langsam einblenden
Public Sub ShowForm(ByVal Form As System.Windows.Forms.Form)
  Dim i As Single
  Dim pause As Single
  Dim start As Single
 
  With Form
    ' zunächst transparent
    .Opacity = 0.1
 
    ' Intervall + Pause
    i = 0.03
    pause = 0.03
 
    ' Opacity solange erhöhen, bis 1 (100%)
    While .Opacity < 1
      start = Timer
      Do While Timer < start + pause
        .Opacity = .Opacity + i
      Loop
    End While
  End With
End Sub

' Form langsam ausblenden
Public Sub HideForm(ByVal Form As System.Windows.Forms.Form)
  Dim i As Single
  Dim pause As Single
  Dim start As Single
 
  ' Intervall + Pause
  i = 0.05
  pause = 0.4
 
  With Form
    ' Opacity solange verringern, bis 0.1 (transparent)
    While .Opacity > 0.1
      start = Timer
      Do While Timer < start + pause
        .Opacity = .Opacity - i
      Loop
    End While
  End With
End Sub

Aufruf:

Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
  ShowForm(Me)
End Sub

Private Sub Form1_Closed(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles MyBase.Closed
 
  HideForm(Me)
End Sub

Tipp
Auf dem Formular vorhandene Steuerelemente kann man z.B. zunächst unsichtbar lassen (Visible = False) und erst nach Schleifen-Ablauf Visible = True setzen, um unschöne visuelle Ereignisse zu vermeiden.