Rubrik: Oberfläche · Effekte | VB-Versionen: VB.NET | 02.05.02 |
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: | Views: 38.052 |
www.Softwareservice-Weiden.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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.