Hallo liebes Forum...
Und zwar hab ich versucht, das Rectangle Nach für Nach an Positionen zu "animieren" ...
Also,
, diese Positionen sollen durchlaufen werden...
Nur ist es so, dass das Rectangle direkt auf eine bestimmte(immer dieselbe) Position springt...
Hier der Code:
Hoffe auf Antworten...
Mfg.eniking1998
Und zwar hab ich versucht, das Rectangle Nach für Nach an Positionen zu "animieren" ...
Also,
, diese Positionen sollen durchlaufen werden...
Nur ist es so, dass das Rectangle direkt auf eine bestimmte(immer dieselbe) Position springt...
Hier der Code:
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Dim Point_ As New Stack(Of Point)
- Dim Rec_ As Rectangle
- Dim PosX_ As Integer
- Dim PosY_ As Integer
- Private Sub Loop_()
- Do While True
- Application.DoEvents()
- For Each Location_ As Point In Point_
- PosX_ = Location_.X
- PosY_ = Location_.Y
- Point_.Clear() 'Um Komplikationen zu vermeiden, wird die Liste gelöscht...
- 'Und gleichdarauf etwas addiert...
- Next
- Loop
- End Sub
- Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
- Point_.Push(New Point(e.Location.X, e.Location.Y))
- Me.Invalidate()
- End Sub
- Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- DoubleBuffered = True
- Rec_ = New Rectangle(x:=PosX_, y:=PosY_, Width:=20, Height:=20)
- e.Graphics.FillRectangle(Brushes.RosyBrown, Rec_)
- End Sub
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Me.Focus()
- Me.Show()
- Loop_()
- End Sub
- End Class
Hoffe auf Antworten...
Mfg.eniking1998