Fade in

Okay, det viser sig så, at opacity skal tildeles en værdi mellem 0 og 1.

Har nu følgende kode:

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

        For intOpacity As Double = 0 To 1 Step 0.1

            Me.Opacity = intOpacity

            System.Threading.Thread.Sleep(50)

        Next

    End Sub

Desværre fungerer denne fade in således, at formen går fra sort til grå inden selve formen vises.

Jeg håbede på, at det kunne laves således, at formen blev vist hele tiden - men blot blev tydeligere og tydeligere...

Kan det ikke lade sig gøre?

Lukket

Det kunne være lækkert hvis du vil smide hele koden herinde, så andre kunne få glæde af den :)

Der er egentlig ikke så meget mere i det. Resten af funktionen har egentlig ikke så meget med fade at gøre, men mere at finde vinduesposition osv.

Hermed hele koden:

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

        Me.Opacity = 0

        Me.Visible = True
        Me.Activate()

        Dim MyPositionLeft As Integer = (My.Computer.Screen.WorkingArea.Width - Me.Width)
        Dim MyPositionTop As Integer = (My.Computer.Screen.WorkingArea.Height - Me.Height)

        Me.Location = New System.Drawing.Point(MyPositionLeft, MyPositionTop)

        For intOpacity As Double = 0 To 1 Step 0.1

            Me.Opacity = intOpacity

            Me.NewOrderPicture.Update()
            Me.NewOrderLabel.Update()

            System.Threading.Thread.Sleep(100)

        Next

    End Sub