Bewegende Form?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von der_Kurt.

    Bewegende Form?

    Hallo, ihr da draußen!

    Hätte mal eine "kurze" Frage:
    Ich hab ne Form auf FormBorderSyle = None und komplett durchsichtig gemacht

    VB.NET-Quellcode

    1. Public Class NervigeFliege
    3. Private Sub NervigeFliege_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Me.BackColor = Color.Magenta
    5. Me.TransparencyKey = Color.Magenta
    6. End Sub
    7. End Class


    Dann hab ich ne GIF mit ner Fliege als PictureBox eingefügt.
    Nun soll sich die Form mit dem Fliegen GIF nur noch willkürlich über den Bildschirm bewegen.
    Das ganze soll nicht herumspringen sondern auf einfach nur so herumgleiten.

    Hoffentlich versteht ihr was ich mein

    Wie stell ich das an?

    BITTEDANKESCHÖN

    so:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. Dim plomi As New Random
    3. Select Case plomi.Next(1, 3)
    4. Case 1
    5. Me.Location = New Point(Me.Location.X + 5, Me.Location.Y)
    6. Select Case plomi.Next(1, 3)
    7. Case 1
    8. Me.Location = New Point(Me.Location.X, Me.Location.Y + +5)
    9. Case Else
    10. Me.Location = New Point(Me.Location.X, Me.Location.Y - 5)
    11. End Select
    12. Case 2
    13. Me.Location = New Point(Me.Location.X - 5, Me.Location.Y)
    14. Select Case plomi.Next(1, 3)
    15. Case 1
    16. Me.Location = New Point(Me.Location.X, Me.Location.Y + +5)
    17. Case Else
    18. Me.Location = New Point(Me.Location.X, Me.Location.Y - 5)
    19. End Select
    20. End Select
    22. End Sub

    musst halt den Timer nach wunscheinsttellen (am besten 100)
    hab nochmal überarbeitet:

    VB.NET-Quellcode

    1. Dim plomi As New Random
    2. Dim geschwindigkeit As Integer = 3
    4. Select Case plomi.Next(1, 4)
    5. Case 1
    7. Select Case plomi.Next(1, 4)
    8. Case 1
    9. Me.Location = New Point(Me.Location.X, Me.Location.Y + geschwindigkeit)
    10. Select Case plomi.Next(1, 4)
    11. Case 1
    12. Me.Location = New Point(Me.Location.X + +geschwindigkeit, Me.Location.Y)
    13. Case 2
    14. Me.Location = New Point(Me.Location.X - geschwindigkeit, Me.Location.Y)
    15. Case Else
    17. End Select
    18. Case 2
    19. Me.Location = New Point(Me.Location.X, Me.Location.Y - geschwindigkeit)
    20. Select Case plomi.Next(1, 4)
    21. Case 1
    22. Me.Location = New Point(Me.Location.X + +geschwindigkeit, Me.Location.Y)
    23. Case 2
    24. Me.Location = New Point(Me.Location.X - geschwindigkeit, Me.Location.Y)
    25. Case Else
    27. End Select
    28. Case Else
    30. End Select
    31. Case 2
    33. Select Case plomi.Next(1, 4)
    34. Case 1
    35. Me.Location = New Point(Me.Location.X + geschwindigkeit, Me.Location.Y)
    36. Select Case plomi.Next(1, 4)
    37. Case 1
    38. Me.Location = New Point(Me.Location.X, Me.Location.Y + +geschwindigkeit)
    39. Case 2
    40. Me.Location = New Point(Me.Location.X, Me.Location.Y - geschwindigkeit)
    41. Case Else
    43. End Select
    44. Case 2
    45. Me.Location = New Point(Me.Location.X - geschwindigkeit, Me.Location.Y)
    46. Select Case plomi.Next(1, 4)
    47. Case 1
    48. Me.Location = New Point(Me.Location.X, Me.Location.Y + +geschwindigkeit)
    49. Case 2
    50. Me.Location = New Point(Me.Location.X, Me.Location.Y - geschwindigkeit)
    51. Case Else
    53. End Select
    54. Case Else
    56. End Select
    57. End Select
    58. End Sub

    Noch zu erledigen: Timer-Intervall optimieren, korrekten Bildschirmrand einfügen... ansonsten lauffähig.

    VB.NET-Quellcode

    1. Public Class Form1
    3. WithEvents t As New Windows.Forms.Timer
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. If t.Enabled Then Close() Else t.Start()
    7. End Sub
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. t.Interval = 100
    11. End Sub
    14. Dim r_horiz As Integer = 40
    15. Dim r_vert As Integer = 20
    17. Public Sub t_tick() Handles t.Tick
    19. Dim r As New Random
    20. If r.Next(1, 11) > 6 Then 'in 4 von 10 Fällen
    21. Dim zahl = r.Next(25, 90)
    22. If r.Next(1, 10) Mod 2 = 0 Then 'nach Zufall
    23. r_horiz = If(r_horiz > 0, zahl, -zahl) 'den horizontalen Schritt variieren
    26. Else
    27. r_vert = If(r_vert > 0, zahl, -zahl) ' oder den Vertikalen
    28. End If
    29. End If
    31. Left = Left + r_horiz
    32. Top = Top + r_vert
    34. 'Wenn das Objekt über dem Rand ist, dann die Richtung einfach umkehren
    36. If Left < 0 OrElse Left > 300 Then r_horiz = -r_horiz
    37. If Top < 0 OrElse Top > 300 Then r_vert = -r_vert
    39. End Sub
    41. End Class

Facebook
Telefonspende