Fenster Ein-/Ausblendeffekte II (.NET) Erzeugen Sie nette Animationseffekte für Ihre Forms: Ausblenden, Einblenden, Schieben, Rollen, Dimmen usw.
Autor:   Richard Musiol	Bewertung:     [ Jetzt bewerten ]	Views:  24.270
www.richard-musiol.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Ich habe zufällig die API-Funktion AnimateWindow entdeckt und sofort eine Zugriffs-Prozedur geschrieben. Mann kann damit einige Fenstereffekte erzeugen. U.a. Einfaden, Ausfaden, Schieben, Rollen... Falls der Effekt nicht mit der Windows-Version kompatibel ist, oder ein anderer Fehler auftritt, wird die Form trotzdem ein-/ausgeblendet. Genauere Beschreibung zur Handhabung im Quellcode.

#Region "FensAnim"
 
' zunächst die benötigten API-Deklarationen
Private Declare Function AnimateWindow Lib "user32" ( _
  ByVal hwnd As Integer, _
  ByVal Time As Integer, _
  ByVal Flags As Integer) As Integer
 
Private Const AW_ACTIVATE = &H20000
Private Const AW_BLEND = &H80000
Private Const AW_CENTER = &H10
Private Const AW_SLIDE = &H40000
Private Const AW_HIDE = &H10000
Private Const AW_HOR_POSITIVE = &H1
Private Const AW_HOR_NEGATIVE = &H2
Private Const AW_VER_POSITIVE = &H4
Private Const AW_VER_NEGATIVE = &H8
Private Const WM_PAINT = &HF
 
Enum FensAnimArt As Integer
  EINBLENDEN
  AUSBLENDEN
End Enum
 
Enum FensAnimEffekt As Integer
  DIMMEN
  ROLLEN_SEITE
  ROLLEN_MITTE
  SCHIEBEN
End Enum
 
Enum FensAnimRichtung As Integer
  N
  NO
  O
  SO
  S
  SW
  W
  NW
End Enum

Private Sub FensAnim( _
  ByVal Fenster As Form, _
  ByVal Art As FensAnimArt, _
  ByVal Effekt As FensAnimEffekt, _
  ByVal Richtung As FensAnimRichtung, _
  ByVal Dauer_ms As Integer)
 
  ' Fehlerbehandlung aktivieren       
  Try
    Dim Flags As Integer = 0
 
    ' Flag Ein/Ausblenden
    Select Case Art
      Case FensAnimArt.EINBLENDEN
        Flags += AW_ACTIVATE
      Case FensAnimArt.AUSBLENDEN
        Flags += AW_HIDE
    End Select
 
    ' Effect-Flag addieren
    Select Case Effekt
      Case FensAnimEffekt.ROLLEN_SEITE
        Flags += 0
      Case FensAnimEffekt.ROLLEN_MITTE
        Flags += AW_CENTER
      Case FensAnimEffekt.SCHIEBEN
        Flags += AW_SLIDE
      Case FensAnimEffekt.DIMMEN
        Flags += AW_BLEND
    End Select
 
    ' Richtungs-Flags addieren
    Select Case Richtung
      Case FensAnimRichtung.N
        Flags += AW_VER_NEGATIVE
      Case FensAnimRichtung.NO
        Flags += AW_VER_NEGATIVE + AW_HOR_POSITIVE
      Case FensAnimRichtung.O
        Flags += AW_HOR_POSITIVE
      Case FensAnimRichtung.SO
        Flags += AW_VER_POSITIVE + AW_HOR_POSITIVE
      Case FensAnimRichtung.S
        Flags += AW_VER_POSITIVE
      Case FensAnimRichtung.SW
        Flags += AW_VER_POSITIVE + AW_HOR_NEGATIVE
      Case FensAnimRichtung.W
        Flags += AW_HOR_NEGATIVE
      Case FensAnimRichtung.NW
        Flags += AW_VER_NEGATIVE + AW_HOR_NEGATIVE
    End Select
 
    ' Animation ausführen
    ' (Programm/Thread ist solange pausiert)
    AnimateWindow(Fenster.Handle.ToInt32, Dauer_ms, Flags)
  Catch : End Try
 
  ' sicherheits Fenster anzeigen/verstecken
  ' (falls Animation fehlschlägt!)
  Select Case Art
    Case FensAnimArt.EINBLENDEN
      Fenster.Show()
    Case FensAnimArt.AUSBLENDEN
      Fenster.Hide()
  End Select
 
  ' sicherheitshalber Neuzeichnen
  ' (um Grafikfehler zu vermeiden)
  Fenster.Refresh()
End Sub
 
#End Region

Beschreibung der Parameter:

Fenster: die Form die animiert werden soll

Art:

Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load 
 
  ' Einblenden
  FensAnim(Me, EINBLENDEN, SCHIEBEN, W, 500)
End Sub
 
Private Sub Form1_Closed(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles MyBase.Closed 
 
  ' Ausblenden
  FensAnim(Me, AUSBLENDEN, DIMMEN, W, 500)
End Sub