Funktion fuer ein Button

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Funktion fuer ein Button

    hallo

    ich moechte gerne eine funktion erstellen aber weis nicht wie ich es machen soll
    ich hab in einer form mehrere buttons und mochte dass wenn ich mit der maus uber einem button gehe dass folgende passiert

    VB.NET-Quellcode

    1. Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
    2. bsh = Button1.Size.Height
    3. bsw = Button1.Size.Width
    4. bsx = Button1.Location.X
    5. bsy = Button1.Location.Y
    8. Button1.Size = New Size(bsh + 10, bsw + 10)
    9. Button1.Location = New Point(bsx - 5, bsy - 5)
    11. End Sub


    wenn ich den button verlasse passiert das

    VB.NET-Quellcode

    1. Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
    2. Button1.Size = New Size(bsh, bsw)
    3. Button1.Location = New Point(bsx, bsy)
    5. End Sub


    ich moechte aber nicht diesen code in jedem button rein schreiben

    kann mir da jemand helfen???

    danke
    Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen". ?(

    hallo

    ich hab was gefunden und etwas selber ausprobiert und bin auf folgendes gekommen

    VB.NET-Quellcode

    1. Private Sub MyEventRoutine(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter, Button2.MouseEnter, Button3.MouseEnter, Button4.MouseEnter, Button5.MouseEnter
    3. Dim myButton As Button = sender
    4. bname = myButton.Name
    6. If bname = "Button1" Then
    7. bsh = Button1.Size.Height
    8. bsw = Button1.Size.Width
    9. bsx = Button1.Location.X
    10. bsy = Button1.Location.Y
    11. Button1.Size = New Size(bsw + 10, bsh + 10)
    12. Button1.Location = New Point(bsx - 5, bsy - 5)
    13. ElseIf bname = "Button2" Then
    14. bsh = Button2.Size.Height
    15. bsw = Button2.Size.Width
    16. bsx = Button2.Location.X
    17. bsy = Button2.Location.Y
    18. Button2.Size = New Size(bsw + 10, bsh + 10)
    19. Button2.Location = New Point(bsx - 5, bsy - 5)
    20. ElseIf bname = "Button3" Then
    21. bsh = Button3.Size.Height
    22. bsw = Button3.Size.Width
    23. bsx = Button3.Location.X
    24. bsy = Button3.Location.Y
    25. Button3.Size = New Size(bsw + 10, bsh + 10)
    26. Button3.Location = New Point(bsx - 5, bsy - 5)
    27. ElseIf bname = "Button4" Then
    28. bsh = Button4.Size.Height
    29. bsw = Button4.Size.Width
    30. bsx = Button4.Location.X
    31. bsy = Button4.Location.Y
    32. Button4.Size = New Size(bsw + 10, bsh + 10)
    33. Button4.Location = New Point(bsx - 5, bsy - 5)
    34. ElseIf bname = "Button5" Then
    35. bsh = Button5.Size.Height
    36. bsw = Button5.Size.Width
    37. bsx = Button5.Location.X
    38. bsy = Button5.Location.Y
    39. Button5.Size = New Size(bsw + 10, bsh + 10)
    40. Button5.Location = New Point(bsx - 5, bsy - 5)
    41. End If
    43. End Sub
    45. Private Sub MyEventRoutine2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave, Button2.MouseLeave, Button3.MouseLeave, Button4.MouseLeave, Button5.MouseLeave
    47. If bname = "Button1" Then
    48. Button1.Size = New Size(bsw, bsh)
    49. Button1.Location = New Point(bsx, bsy)
    50. ElseIf bname = "Button2" Then
    51. Button2.Size = New Size(bsw, bsh)
    52. Button2.Location = New Point(bsx, bsy)
    53. ElseIf bname = "Button3" Then
    54. Button3.Size = New Size(bsw, bsh)
    55. Button3.Location = New Point(bsx, bsy)
    56. ElseIf bname = "Button4" Then
    57. Button4.Size = New Size(bsw, bsh)
    58. Button4.Location = New Point(bsx, bsy)
    59. ElseIf bname = "Button5" Then
    60. Button5.Size = New Size(bsw, bsh)
    61. Button5.Location = New Point(bsx, bsy)
    62. End If
    64. End Sub



    so hab ich alles in 2 subs rein getan anstatt in jedes button mouse enter und mouse leave
    aber ich kann sicher noch diesen code kuerzen kann mir da jemand ein rat geben?

    danke
    Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen". ?(

    ich habs geschafft

    ist noch einfacher als ich gedacht hatte

    VB.NET-Quellcode

    1. Private Sub MyEventRoutine(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter, Button2.MouseEnter, Button3.MouseEnter, Button4.MouseEnter, Button5.MouseEnter, Button6.MouseEnter, Button7.MouseEnter, Button8.MouseEnter, Button9.MouseEnter
    2. Dim myButton As Button = sender
    4. bsh = myButton.Size.Height
    5. bsw = myButton.Size.Width
    6. bsx = myButton.Location.X
    7. bsy = myButton.Location.Y
    8. myButton.Size = New Size(bsw + 10, bsh + 10)
    9. myButton.Location = New Point(bsx - 5, bsy - 5)
    11. End Sub
    13. Private Sub MyEventRoutine2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave, Button2.MouseLeave, Button3.MouseLeave, Button4.MouseLeave, Button5.MouseLeave, Button6.MouseLeave, Button7.MouseLeave, Button8.MouseLeave, Button9.MouseLeave
    15. Dim myButton As Button = sender
    17. myButton.Size = New Size(bsw, bsh)
    18. myButton.Location = New Point(bsx, bsy)
    20. End Sub


    danke leute
    Schäm dich nicht "Zu fragen", schäm dich "Nicht zu wissen". ?(

Facebook
Telefonspende