Form Fade-Effekt Ein Beispiel wie sich ein Fenster zur Laufzeit mit einem netten Fade-Effekt ausstatten lässt.
Autor:   Marcel Colley	Bewertung:     [ Jetzt bewerten ]	Views:  17.913
go.to/gigawin	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 18 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie haben das bestimmt schon in anderen Anwendungen / Dialogfenstern gesehen. Da enthält ein Eingabefenster zunächst nur die wesentlichen Eingabe- und Einstellmöglichkeiten und per Button Erweitert wird das Fenster zur Laufzeit vergrößert, um alle/weitere Einstellungen vornehmen zu können.

Alles kein Problem: Klickt der Anwender auf den Button, so setzen Sie einfach die Form.Width oder Form.Height-Eigenschaft neu, um das Fenster zu vergrößern bzw. zu verkleinern.

Als kleine Spielerei hierzu, ist der nachfolgende Tipp gedacht. Hierbei wird das Fenster nicht in einem Zug auf die entsprechende neue Größe gebracht, sondern Schritt für Schritt - quasi eine Art Fade-Effekt erzeugt.

Option Explicit
Dim stdWidth As Long  ' Normale Breite der Form
Dim maxWidth As Long  ' Maximal-Breite der Form
 
Private Sub Form_Load()
  ' Vorgaben
  stdWidth = 6000
  maxWidth = 9000
End Sub
 
' Form vergrößern/verkleinern
Private Sub cmdMore_Click()  
  If Me.Width = stdWidth Then
    ' Form auf Maximal-Breite "faden"
    While Me.Width < maxWidth
      Me.Width = Me.Width + 5
    Wend
    cmdMore.Caption = "<< Normal"
  Else
    ' Form wieder auf Normalbreite "faden"
    While Me.Width > stdWidth
      Me.Width = Me.Width - 5
    Wend
    cmdMore.Caption = "Erweitert >>"
  End If
End Sub