Transparenz einer Form?

#matthias

Hallo,

ich habe da mal wieder ein Problem wo ich absolut nicht weiter kommen.

Es geht um eine Form die beim Start eine Effekt haben soll und eine beim schließen.
Die Transparenz soll sich jeweils ändern.
Hier der Code:

PHP

Module Ein_Aus_Blend_Effekt


    Public Sub Einblenden(ByVal objektForm As Form)


        Dim Effekt As Double


        For Effekt = 0.0 To 1.1 Step 0.1
            objektForm.Opacity = Effekt
            objektForm.Refresh()
            Threading.Thread.Sleep(5)
        Next


    End Sub


    Public Sub Ausblenden(ByVal objektForm As Form)


        Dim Effekt As Double


        For Effekt = 1.1 To 0.0 Step 0.1
            objektForm.Opacity = Effekt
            objektForm.Refresh()
            Threading.Thread.Sleep(5)
        Next
    End Sub


End Module

Alles anzeigen

Aufrufen tue ich das Ganze dann wie folgt:

PHP

Public Class Form1


    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed


        Ausblenden(Me)


    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Einblenden(Me)


    End Sub
End Class

Alles anzeigen

Für Hilfe bin ich wie immer sehr dankbar.

MFG Matthias

DarthSchaf

kenne dein genaues problem nicht...
guck doch erstmal ob das mit der transparenz funktioniert indem du das ganze über einen button steuerst und nicht über die formclosed-anweisung
und lade die form am besten transparent bevor du die erscheinen lässt

#matthias

Über einen Button habe ich es schon probiert, das hat auch soweit alles geklappt.

Die Form soll beim Start von Opacity 0% zu Opacity 100% hingehen. Beim schließen sollte es genau andders herum sein.

MFG Matthias

#matthias

Danke erst einmal für die hilfe, ich habe es jetzt selber hinbekommen.

Als erstes habe ich die Schrittweite in der For-Schleife verringert und die Anzahl der Millisekunden beim blockieren der aktuellen Thread´s erhöht.
Jetzt tut es das was es soll.

Hier der abgeändertet Code:

PHP

Module Ein_Aus_Blend_Effekt


    Public Sub Einblenden(ByVal objektForm As Form)


        Dim Effekt As Double


        For Effekt = 0.0 To 1.1 Step 0.05
            objektForm.Opacity = Effekt
            objektForm.Refresh()
            Threading.Thread.Sleep(50)
        Next


    End Sub


    Public Sub Ausblenden(ByVal objektForm As Form)


        Dim Effekt As Double


        For Effekt = 1.1 To 0.0 Step -0.05
            objektForm.Opacity = Effekt
            objektForm.Refresh()
            Threading.Thread.Sleep(50)
        Next
    End Sub


End Module

Alles anzeigen

MFG Matthias

Tags