Hier mal mein Einblendy:
Ein Timer namens Timer1 mit den Interval von 10 wird benötigt.
Speed legt logischerweiße die Geschwindigkeit fest, und distance den radius der Kreisbewegung.
Vllt kanns ja jemand gebrauchen.
gruß
VB.NET-Quellcode
- Private speed As Integer = 30
- Private distance As Integer = 500
- Private startDegree As Integer = 90
- Private maxDegree As Integer = 180
- Private degree As Single = startDegree
- Private speedDivide As Integer = 10
- Private Sub Timer1_Tick() Handles Timer1.Tick
- Dim moveX As Integer = Math.Cos((degree - 90) / 180 * Math.PI) * distance
- Dim moveY As Integer = Math.Sin((degree - 90) / 180 * Math.PI) * distance
- Dim endSpeed As Single = speed / speedDivide
- Me.Location = New Point((My.Computer.Screen.Bounds.Width / 2 + moveX - Me.Width / 2), moveY - Me.Height)
- Me.Opacity = (100 / (maxDegree - startDegree) * (degree - startDegree)) / 100
- degree += endSpeed
- If degree >= maxDegree Then
- Timer1.Stop()
- Me.Opacity = 1
- Me.Location = New Point(My.Computer.Screen.Bounds.Width / 2 - Me.Width / 2, distance - Me.Height)
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Timer1.start()
- Me.Opacity = 0
- End Sub
Ein Timer namens Timer1 mit den Interval von 10 wird benötigt.
Speed legt logischerweiße die Geschwindigkeit fest, und distance den radius der Kreisbewegung.
Vllt kanns ja jemand gebrauchen.
gruß
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Templar“ ()