Animationen (Flüssige)

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von TG22997.

    Animationen (Flüssige)

    Hallo VB-Paradise,

    ich programmiere schon ein bisschen mit Visual BAsic und möchte nun wissen wie man
    eine Flüssige Animation hinbekommt zB wenn ich zB
    Bei der Load funktion von der Windows Forms die Durchsichtbarkeit ämdern will und dies in

    VB.NET-Quellcode

    1. ' Arbeitet zwar Flüssig aber mehr kann ich nicht machen...
    2. Me.Opacity = 0.01
    3. Do While Me.Opacity < 1.0
    4. Me.Opacity += 0.09
    5. Me.Refresh()
    6. System.Threading.Thread.Sleep(100)
    7. Loop
    8. Me.Opacity = 1.0


    Wie mache ich zB. Das es Flüssig Zoomt das fenster?
    Also es ist klein und wird immer größer... ?

    Also was ich dir jetzt gebe ist kein wirklicher zoom aber das fenster färt aus... :thumbup:

    VB.NET-Quellcode

    1. Dim height As Integer = Me.Height
    2. Dim width As Integer = Me.Width
    3. Private Sub Form_load(ByVal sender As Object, ByVal e As System.EventArgs) Handels MyBase.Load
    4. Me.Width = 0
    5. Me.Height = 0
    6. Zoom(height, width)
    7. End Sub
    9. Shared Function Zoom(ByVal Form_Height As Integer, ByVal Form_Width As Integer)
    10. 'set width
    11. For width_form As Integer = 1 To Form_Width
    12. Me.Width += 1
    13. Next
    14. 'set height
    15. For height_form As Integer = 1 To Form_Height
    16. Me.Height += 1
    17. End Function


    Sollte so klappen ... :thumbsup:

    mfg Tim;)

    Joda schrieb:

    Danke dir, bekomme zwar 5 Error und 2 Warnings - behebe ich morgen :)

    ich hab den code grad ohne zu testen entworfen das kann schon möglich sein^^ ich werds ma testen...
    pls schreib ma die errors bzw. warnings

    mfg Tim ;)

    so hier:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim _width As Integer = Me.Width
    3. Dim _height As Integer = Me.Height
    4. Dim i_width As Integer = 0
    5. Dim i_height As Integer = 0
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Me.Width = 0
    8. Me.Height = 0
    9. Timer1.Enabled = True
    10. End Sub
    12. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    14. Dim finish_width As Boolean
    15. Dim finish_height As Boolean
    17. If i_width <= _width Then
    18. i_width += 2
    19. Me.Width = i_width
    20. Else
    21. finish_width = True
    22. End If
    24. If i_height <= _height Then
    25. i_height += 2
    26. Me.Height = i_height
    27. Else
    28. finish_height = True
    29. End If
    31. If finish_width = True And finish_height = True Then
    32. Timer1.Enabled = False
    33. End If
    34. End Sub
    35. End Class

    Samus Aran schrieb:

    Dieser Zoom fährt das Fenster nur nach unten rechts aus, mein Zoom hält das Fenster während der Vergrößerungsaktion zentriert. ;)

    weiß ich doch =)
    aber ich muss ihm auch nicht gleich den komplett-fertigen code geben x'P
    Ist auch nicht gerade schlau von dir ihm den Source zu geben :thumbdown:

    Naja da ich kb hab weiter hier rum zu gammeln hier der source:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    2. Me.Timer1.Start
    3. Me.Timer2.Start
    4. End Sub
    6. <DebuggerStepThrough> _
    7. Private Sub InitializeComponent()
    8. Me.components = New Container
    9. Me.Timer1 = New Timer(Me.components)
    10. Me.Timer2 = New Timer(Me.components)
    11. Me.Panel1 = New Panel
    12. Me.SuspendLayout
    13. Me.Timer1.Interval = 10
    14. Me.Timer2.Interval = 20
    15. Me.Panel1.BackgroundImageLayout = ImageLayout.Center
    16. Me.Panel1.Dock = DockStyle.Fill
    17. Dim point As New Point(0, 0)
    18. Me.Panel1.Location = point
    19. Me.Panel1.Name = "Panel1"
    20. Dim size As New Size(&H86, &H70)
    21. Me.Panel1.Size = size
    22. Me.Panel1.TabIndex = 0
    23. Dim ef As New SizeF(6!, 13!)
    24. Me.AutoScaleDimensions = ef
    25. Me.AutoScaleMode = AutoScaleMode.Font
    26. size = New Size(&H86, &H70)
    27. Me.ClientSize = size
    28. Me.Controls.Add(Me.Panel1)
    29. Me.MaximizeBox = False
    30. Me.MinimizeBox = False
    31. Me.Name = "Form1"
    32. Me.ShowIcon = False
    33. Me.ShowInTaskbar = False
    34. Me.SizeGripStyle = SizeGripStyle.Hide
    35. Me.StartPosition = FormStartPosition.CenterScreen
    36. Me.ResumeLayout(False)
    37. End Sub
    39. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
    40. If (Me.Width <> 500) Then'musst du noch anpassen
    41. Dim size As New Size((Me.Width + 1), (Me.Height + 1))
    42. Me.Size = size
    43. Else
    44. Me.Timer1.Stop
    45. End If
    46. End Sub
    48. Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
    49. If (Me.Height <> 500) Then'musst du noch anpassen
    50. Dim point As New Point((Me.Location.X - 1), (Me.Location.Y - 1))
    51. Me.Location = point
    52. Else
    53. Me.Timer2.Stop
    54. End If
    55. End Sub

    hab dir gleich die InitializeComponents mitgegeben =)

    Viel Spaß damit^^

Facebook