✔ Form Fade in/out

[SPN_X]

Hey,
ich habe jetzt schon überall gesucht aber nicht das gefunden was ich brauche.
Es gab immer nur sowas mit einem Slider aber das möchte ich nicht.

Mein vorhaben:
Ich möchte das mein Programm wenn ich es starte nicht einfach auftaucht sondern langsam erscheint (also fade in) und wenn ich es schließe nicht einfach verschwindet sonder immer blasser wird (fade out).

Kann mir da jemand mit nem link oder code weiterhelfen

THX schnmal

 

[codeman]

Hallo,

http://www.vb-fun.de/vb/tipps.shtml

dann auf 'Oberfläche' und da gibt es gleich zwei Links:

- Transparente Fenster
- Transparente Fenster (ab Windows 2000)

codeman

 

[SPN_X]

Danke, das war es was ich wollte nur ein prob hab ich damit noch...
Ich weiß nicht wie ich die geschwindigkeit beim Fade in und out langsamener machen kann:

Public Sub Form_FadeIn(ByVal hWnd As Long, Optional ByVal iStep As Integer = 1)
'Form einblenden
  Dim iAlpha As Integer

    For iAlpha = 0 To 255 Step iStep
        SetLayeredWindowAttributes hWnd, 0, iAlpha, LWA_ALPHA
        DoEvents
    Next
End Sub

Public Sub Form_SetAlphaValue(ByVal hWnd As Long, ByVal bAlpha As Byte)
'Transparenzwert (Alpha-Wert) setzen
    SetLayeredWindowAttributes hWnd, 0, bAlpha, LWA_ALPHA
End Sub

Private Declare Function SetLayeredWindowAttributes Lib _
      "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, _
      ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'++++++++++++++++++++++++

Private Sub Form_Load()
    Form_SetStyle Me.hWnd   'Fensterstil ändern
    Me.Visible = True       'Form sichtbar machen
    Form_FadeIn Me.hWnd, 1  'Form einblenden
End Sub

 

[RamonR]

Setze doch einfach eine Wartefunktion in deine For-Schleife, z.B. diese hier:

http://www.vbarchiv.net/archiv/tipp_details.php?pid=532

Dann kannst Du die Abstufungen des Fade In/Out verzögern, z.B.

    For iAlpha = 0 To 255 Step iStep
        SetLayeredWindowAttributes hWnd, 0, iAlpha, LWA_ALPHA
        wait 10           ' warte 10ms
        DoEvents
    Next

 

[SPN_X]

OMG wie geil - Nice!
#

Danke