|
| |
VB.NET - Fortgeschrittene| Ein-/Ausblendeffekt | |  | | Autor: Chief | | Datum: 11.10.03 17:28 |
| Hallo,
ich habe mir von Tipps und Tricks VB.NET den Ein-/Ausblendeffekt kopiert und in meinem Projekt mal eingefügt.
Der Einblendeffekt funktioniert ganz gut aber der Ausblendeffekt nicht.
1) Was könnte da der Fehler sein?
2) Wie sieht denn der Code aus wenn die Form1 sich ausgeblendet hat, sich danach Form2 öffnen soll?
Vielen Dank für Die Hilfe
Gruß
Chara
Hier der Code:
#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
Und so wird er Aufgerufen:
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, 500)
End Sub
Private Sub Form1_Closed(ByVal sender As 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, 500)
End Sub | |
 | 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 |
 |
|
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 InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere 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.
