me.Opacity Animation bugt

  • Allgemein

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von rotherford.

    me.Opacity Animation bugt

    Hallo liebe Community!

    Zuerst mal das ist mein einfacher Code:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. My.Settings.FSU = True
    4. If My.Settings.FSU = True Then
    5. Me.Opacity = 0%
    6. TimerAnimation.Start()
    7. Else
    8. Me.Opacity = 100%
    9. End If
    10. End Sub
    12. Private Sub TimerAnimation_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerAnimation.Tick
    13. If Me.Opacity = 100% Then
    14. TimerAnimation.Stop()
    15. My.Settings.FSU = False
    16. My.Settings.Save()
    17. Else
    18. Me.Opacity = Me.Opacity + 2%
    19. End If
    21. End Sub


    My.Settings.FSU ist der erste start (FirstStartUp). Dies ist (schätze ich) irrelewant, da ich (zim testen) den ersten startup immer auf True setze.
    Das Problem ist jetzt, der Timer funktioniert nicht. es passiert nichts. Die Form wird einfach ganz normal angezeigt.

    Bitte um Hilfe.

    Edit:// Es kommt nicht auf das % zeichen an. ich habe es auch ohne probiert!
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gather“ ()

    Gather schrieb:

    Es kommt nicht auf das % zeichen an

    % bedeutet Integer.
    # hingegen Double.

    Die Eigenschaft Form.Opacity ist vom Typ Double und geht von 0.00 - 1.00

    Folglich:

    VB.NET-Quellcode

    1. Me.Opacity += 0.02#


    Zu deinem Problem:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. My.Settings.FSU = True
    3. TimerAnimation.Start()
    4. End Sub
    6. Private Sub TimerAnimation_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerAnimation.Tick
    7. If Not Me.Opacity = 1.00# Then
    8. Me.Opacity += 0.02#
    9. Else
    10. TimerAnimation.Stop()
    11. My.Settings.FSU = False
    12. My.Settings.Save()
    13. End If
    14. End Sub
    /nicht getestet