|
| |
VB.NET - Fortgeschrittene| Re: Ein-/Ausblendeffekt | |  | | Autor: Chief | | Datum: 13.10.03 15:47 |
| Hallo Leute,
kann mir jemand mal sagen warum der Sourcecode von dem Ein-/Ausblendeffekt bei mir nicht ganz funktioniert?
Die Form1 läßt sich Einblenden, aber die blendet sich nicht aus bleibt so stehen bis ich die manuell schließe.
Gruß
Chara
Hier der Code nochmal:
#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
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim EINBLENDEN As Integer
Dim SCHIEBEN As Integer
Dim W As Integer
' Einblenden
FensAnim(Me, EINBLENDEN, SCHIEBEN, W, 1400)
End Sub
Private Sub Form1_Closed(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Closed
Dim AUSBLENDEN As Integer
Dim DIMMEN As Integer
Dim W As Integer
' Ausblenden
FensAnim(Me, AUSBLENDEN, DIMMEN, W, 1400)
End Sub
End Class | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevAniGif (VB/VBA) 
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle 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.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
