Form in Kreisbewegung "reinblenden"

    • VB.NET

    Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von flo.exe.

      Form in Kreisbewegung "reinblenden"

      Hier mal mein Einblendy:

      VB.NET-Quellcode

      1. Private speed As Integer = 30
      2. Private distance As Integer = 500
      4. Private startDegree As Integer = 90
      5. Private maxDegree As Integer = 180
      6. Private degree As Single = startDegree
      7. Private speedDivide As Integer = 10
      9. Private Sub Timer1_Tick() Handles Timer1.Tick
      10. Dim moveX As Integer = Math.Cos((degree - 90) / 180 * Math.PI) * distance
      11. Dim moveY As Integer = Math.Sin((degree - 90) / 180 * Math.PI) * distance
      12. Dim endSpeed As Single = speed / speedDivide
      13. Me.Location = New Point((My.Computer.Screen.Bounds.Width / 2 + moveX - Me.Width / 2), moveY - Me.Height)
      14. Me.Opacity = (100 / (maxDegree - startDegree) * (degree - startDegree)) / 100
      15. degree += endSpeed
      16. If degree >= maxDegree Then
      17. Timer1.Stop()
      18. Me.Opacity = 1
      19. Me.Location = New Point(My.Computer.Screen.Bounds.Width / 2 - Me.Width / 2, distance - Me.Height)
      20. End If
      21. End Sub
      23. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      24. Timer1.start()
      25. Me.Opacity = 0
      26. 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“ ()

      Machs so, er hat bei Form_Load das Timer.Start vergessen

      VB.NET-Quellcode

      1. Private speed As Integer = 30
      2. Private distance As Integer = 500
      4. Private startDegree As Integer = 90
      5. Private maxDegree As Integer = 180
      6. Private degree As Single = startDegree
      7. Private speedDivide As Integer = 10
      9. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      10. Me.Opacity = 0
      12. Timer1.Start()
      13. End Sub
      15. Private Sub Timer1_Tick() Handles Timer1.Tick
      16. Dim moveX As Integer = CInt(Math.Cos((degree - 90) / 180 * Math.PI) * distance)
      17. Dim moveY As Integer = CInt(Math.Sin((degree - 90) / 180 * Math.PI) * distance)
      18. Dim endSpeed As Single = CSng(speed / speedDivide)
      20. Me.Location = New Point(CInt((My.Computer.Screen.Bounds.Width / 2 + moveX - Me.Width / 2)), moveY - Me.Height)
      21. Me.Opacity = (100 / (maxDegree - startDegree) * (degree - startDegree)) / 100
      23. degree += endSpeed
      25. If degree >= maxDegree Then
      26. Timer1.Stop()
      27. Me.Opacity = 1
      28. Me.Location = New Point(CInt(My.Computer.Screen.Bounds.Width / 2 - Me.Width / 2), distance - Me.Height)
      29. End If
      30. End Sub

    Facebook
    Telefonspende