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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.