Maus Events auf PictureBox

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von fichz.

    Maus Events auf PictureBox

    Halli Hallo :)
    ich sehe wahrscheinlich den Wald vor lauter Bäumen nicht.

    Ich habe 5 Picture Boxen, die ein Rating System darstellen. Kennt man vom Internet her.

    Dazu habe ich:
    Für jede PB ein MouseHover, MouseLeave und Click Event.

    Wenn ich auf die 5. PB Hover und nicht klicke sollen alle anderen 5 Boxen aktiv (Bild ändern) werden. Selbiges für die 4 restlichen. Hover ich auf 4 sind PB 1,2,3,4 aktiv usw..
    - Das klappt.
    Verlasse ich mit der Maus den PB-Bereich wird das Leave Event ausgelöst und die PBoxen erhalten ihr Ursprungsbild.
    - Das klappt auch.

    Jetzt kommt die Verwirrung.
    Klicke ich auf eine PB bspw. 4 sollen PB 4,3,2,1 ihr Bild ändern. Bis dahin geht alles gut aber verlasse ich mit der Maus den Bereich wird wieder das Leave Event aktiv und setzt alles zurück.

    Meine Frage wäre, gibt es eine Möglichkeit das Leave Event nach einem Klick zu überspringen?

    Ich bedanke mich bei euch vorab!
    Grüße DKArts.


    Nach sonstige Problemstellungen verschoben
    -Artentus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Artentus“ ()

    @dkartsberlin Liegen die PB unmittelbar nebeneinander oder ist da noch Form-Background drum herum?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Du darfst die Events nicht starr per Handles abbonieren sondern musst diese per AddHandler und RemoveHandler gezielt steuern.
    Sobald auf eines der 5 PB geklickt wurde, muss du den Leave-Event abbestellen (per RemoveHandler).

    Hier wird es von @ErfinderDesRades sehr gut erkläre: Alles über Events

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    fichz schrieb:

    gezielt steuern
    Ist zwar prinzipiell richtig, ich persönlich halte das jedoch für überzogen. Mit nem Flag lässt sich das eben so gut lösen.
    Allerdings stelle ich mir da eher ein Compound-Bild vor, wo es nur noch eine einzige PB gibt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich würde dir raten, dass ganze als eigenes Control mit GDI+ zu erstellen. Wenn du das noch nicht kannst, wäre es ein Guter Start mit dem Thema GDI+.

    Weil das ganze mit PB's zu machen wäre mir zu Umständlich und etwas zu "Unsauber"
    Meine Projekte Genesis Game Engine | GFX | smartli.me - Der smarte URL shortener

    RodFromGermany schrieb:

    @dkartsberlin Liegen die PB unmittelbar nebeneinander oder ist da noch Form-Background drum herum?

    Das ist noch n bisschen Form-Background drum herum. (||||■||■||■||■||■||||)


    fichz schrieb:

    Du darfst die Events nicht starr per Handles abbonieren sondern musst diese per AddHandler und RemoveHandler gezielt steuern.
    Sobald auf eines der 5 PB geklickt wurde, muss du den Leave-Event abbestellen (per RemoveHandler).

    Hier wird es von @ErfinderDesRades sehr gut erkläre: Alles über Events

    lg

    Vielen Dank für den Hinweis. Genau so etwas habe ich gesucht.

    GDI+ fällt erst einmal heraus.

    Was genau meinst du mit Compund Bild? Ich verstehe das so: Im Bereich des CSS wird mein Problem idR mit nur einem Image gehandlet und über Klassen die dargestellten Bereiche definiert. Meinst du das?

    dkartsberlin schrieb:

    Compund Bild
    Nicht ganz.
    Du hast eine PictureBox und im Paint-Event / den Mouse-Events wird dann unterschieden, welcher Bildteil gerade dran ist zu malen bzw. zu reagieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das verstehe ich nicht... :/
    Hast du evtl. ein konkretes Beispiel für mich?

    Denn betrachte ich meinen Code, ist das auf Garantie nicht die eleganteste/performanteste Lösung.
    Ach und weil es mir gerade einfällt. Wie kann ich die Performance meines Codes bzw. Programms am idealsten messen/untersuchen?

    Vielen Dank an alle die mir bei meinem Problem helfen bzw. geholfen haben. Tolles Forum :)

    dkartsberlin schrieb:

    Beispiel
    Form mit PictureBox und Label:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private quartal As Integer = 0
    3. Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    4. e.Graphics.Clear(Color.Aqua)
    5. e.Graphics.DrawString("1", Me.Font, Brushes.Black, New Point(PictureBox1.Width \ 4, PictureBox1.Height \ 4))
    6. e.Graphics.DrawString("2", Me.Font, Brushes.Black, New Point(3 * PictureBox1.Width \ 4, PictureBox1.Height \ 4))
    7. e.Graphics.DrawString("3", Me.Font, Brushes.Black, New Point(PictureBox1.Width \ 4, 3 * PictureBox1.Height \ 4))
    8. e.Graphics.DrawString("4", Me.Font, Brushes.Black, New Point(3 * PictureBox1.Width \ 4, 3 * PictureBox1.Height \ 4))
    9. End Sub
    10. Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    11. quartal = 1
    12. If e.X > PictureBox1.Width \ 2 Then
    13. quartal += 1
    14. End If
    15. If e.Y > PictureBox1.Height \ 2 Then
    16. quartal += 2
    17. End If
    18. Label1.Text = quartal.ToString
    19. End Sub
    21. Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
    22. Me.PictureBox1.Invalidate()
    23. End Sub
    24. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Vielen Dank für deine Mühe. Allerdings trifft das nicht das was ich meine bzw. erreichen wollte.

    So habe ich es erst einmal gelöst. (Vorsicht, viel Code.) (Wenn jemand da eine Optimierungsidee hat, freue ich mich riesig.)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. For Each PB As PictureBox In Me.Controls.OfType(Of PictureBox)()
    2. PB.Image = My.Resources._starlined
    3. Next
    5. Private Sub PictureBox1_MouseHover(sender As Object, e As EventArgs) Handles PictureBox1.MouseHover
    6. PictureBox1.Image = My.Resources._starfilled
    7. End Sub
    8. Private Sub PictureBox2_MouseHover(sender As Object, e As EventArgs) Handles PictureBox2.MouseHover
    9. PictureBox2.Image = My.Resources._starfilled
    10. PictureBox1.Image = My.Resources._starfilled
    11. End Sub
    12. Private Sub PictureBox3_MouseHover(sender As Object, e As EventArgs) Handles PictureBox3.MouseHover
    13. PictureBox3.Image = My.Resources._starfilled
    14. PictureBox2.Image = My.Resources._starfilled
    15. PictureBox1.Image = My.Resources._starfilled
    16. End Sub
    17. Private Sub PictureBox4_MouseHover(sender As Object, e As EventArgs) Handles PictureBox4.MouseHover
    18. PictureBox4.Image = My.Resources._starfilled
    19. PictureBox3.Image = My.Resources._starfilled
    20. PictureBox2.Image = My.Resources._starfilled
    21. PictureBox1.Image = My.Resources._starfilled
    22. End Sub
    23. Private Sub PictureBox5_MouseHover(sender As Object, e As EventArgs) Handles PictureBox5.MouseHover
    24. PictureBox5.Image = My.Resources._starfilled
    25. PictureBox4.Image = My.Resources._starfilled
    26. PictureBox3.Image = My.Resources._starfilled
    27. PictureBox2.Image = My.Resources._starfilled
    28. PictureBox1.Image = My.Resources._starfilled
    29. End Sub
    31. Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
    32. PictureBox1.Image = My.Resources._starlined
    33. End Sub
    34. Private Sub PictureBox2_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox2.MouseLeave
    35. PictureBox2.Image = My.Resources._starlined
    36. PictureBox1.Image = My.Resources._starlined
    37. End Sub
    38. Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
    39. PictureBox3.Image = My.Resources._starlined
    40. PictureBox2.Image = My.Resources._starlined
    41. PictureBox1.Image = My.Resources._starlined
    42. End Sub
    43. Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox4.MouseLeave
    44. PictureBox4.Image = My.Resources._starlined
    45. PictureBox3.Image = My.Resources._starlined
    46. PictureBox2.Image = My.Resources._starlined
    47. PictureBox1.Image = My.Resources._starlined
    48. End Sub
    49. Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
    50. PictureBox5.Image = My.Resources._starlined
    51. PictureBox4.Image = My.Resources._starlined
    52. PictureBox3.Image = My.Resources._starlined
    53. PictureBox2.Image = My.Resources._starlined
    54. PictureBox1.Image = My.Resources._starlined
    55. End Sub
    57. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    58. PictureBox5.Image = My.Resources._starlined
    59. PictureBox4.Image = My.Resources._starlined
    60. PictureBox3.Image = My.Resources._starlined
    61. PictureBox2.Image = My.Resources._starlined
    62. PictureBox1.Image = My.Resources._starfilled
    64. RemoveHandler PictureBox1.MouseLeave, AddressOf PictureBox1_MouseLeave
    66. lbl_rate1.Text = "1/5"
    68. End Sub
    69. Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
    70. PictureBox5.Image = My.Resources._starlined
    71. PictureBox4.Image = My.Resources._starlined
    72. PictureBox3.Image = My.Resources._starlined
    73. PictureBox2.Image = My.Resources._starfilled
    74. PictureBox1.Image = My.Resources._starfilled
    76. RemoveHandler PictureBox1.MouseLeave, AddressOf PictureBox1_MouseLeave
    77. RemoveHandler PictureBox2.MouseLeave, AddressOf PictureBox2_MouseLeave
    79. lbl_rate1.Text = "2/5"
    80. End Sub
    81. Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
    82. PictureBox5.Image = My.Resources._starlined
    83. PictureBox4.Image = My.Resources._starlined
    84. PictureBox3.Image = My.Resources._starfilled
    85. PictureBox2.Image = My.Resources._starfilled
    86. PictureBox1.Image = My.Resources._starfilled
    88. RemoveHandler PictureBox1.MouseLeave, AddressOf PictureBox1_MouseLeave
    89. RemoveHandler PictureBox2.MouseLeave, AddressOf PictureBox2_MouseLeave
    90. RemoveHandler PictureBox3.MouseLeave, AddressOf PictureBox3_MouseLeave
    92. lbl_rate1.Text = "3/5"
    93. End Sub
    94. Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
    95. PictureBox5.Image = My.Resources._starlined
    96. PictureBox4.Image = My.Resources._starfilled
    97. PictureBox3.Image = My.Resources._starfilled
    98. PictureBox2.Image = My.Resources._starfilled
    99. PictureBox1.Image = My.Resources._starfilled
    101. RemoveHandler PictureBox1.MouseLeave, AddressOf PictureBox1_MouseLeave
    102. RemoveHandler PictureBox2.MouseLeave, AddressOf PictureBox2_MouseLeave
    103. RemoveHandler PictureBox3.MouseLeave, AddressOf PictureBox3_MouseLeave
    104. RemoveHandler PictureBox4.MouseLeave, AddressOf PictureBox4_MouseLeave
    106. lbl_rate1.Text = "4/5"
    108. End Sub
    109. Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
    110. PictureBox5.Image = My.Resources._starfilled
    111. PictureBox4.Image = My.Resources._starfilled
    112. PictureBox3.Image = My.Resources._starfilled
    113. PictureBox2.Image = My.Resources._starfilled
    114. PictureBox1.Image = My.Resources._starfilled
    116. RemoveHandler PictureBox1.MouseLeave, AddressOf PictureBox1_MouseLeave
    117. RemoveHandler PictureBox2.MouseLeave, AddressOf PictureBox2_MouseLeave
    118. RemoveHandler PictureBox3.MouseLeave, AddressOf PictureBox3_MouseLeave
    119. RemoveHandler PictureBox4.MouseLeave, AddressOf PictureBox4_MouseLeave
    120. RemoveHandler PictureBox5.MouseLeave, AddressOf PictureBox5_MouseLeave
    122. lbl_rate1.Text = "5/5"
    123. End Sub

    funzt das eiglich zuverlässig mit dem Mouse_Leave?

    Bei mir ist oft so, dass wenn man die Maus sehr schnell bewegt, dass dann das MouseLeave übersehen wird.

    Ansonsten - wenn du dich noch in Arbeit stürzen willst - könntest du das in ein UserControl auslagern - weil so wird das ja dein Form-Code gewaltig vollmüllen.

    dkartsberlin schrieb:

    was ich meine bzw. erreichen wollte
    Kannst Du das mal so ohne Programmiersprache und Programmbeispiel erläutern?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ErfinderDesRades schrieb:

    funzt das eiglich zuverlässig mit dem Mouse_Leave?

    Bei mir ist oft so, dass wenn man die Maus sehr schnell bewegt, dass dann das MouseLeave übersehen wird.

    Ansonsten - wenn du dich noch in Arbeit stürzen willst - könntest du das in ein UserControl…


    Ich würde es als zuverlässig bezeichnen. Hatte bis jetzt bei jedem Test Glück, das der Handler aktiv wurde und die Boxen zurückgesetzt wurden.

    RodFromGermany schrieb:

    Zitat von dkartsberlin: „was ich meine bzw. erreichen wollte“Kannst Du das mal so ohne Programmiersprache und Programmbeispiel erläutern?

    Meinst du meinen Code? Oder warum dein Beispiel nicht gepasst hat?

    dkartsberlin schrieb:

    Meinst du meinen Code?
    Dein Problem / Deine Aufgabenstellung.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Mein Problem war / (ist):
    Ich habe 5 Picture Boxen nebeneinander die im Form.Load Event mittels For Each-Schleife ein Bild bekommen, in meinem Fall einen silbernen Stern.
    Jetzt soll sobald ich über bspw. den ersten Stern Hover das Bild der PictureBox verändert werden zu einem goldenen Stern. Wenn ich den Bereich der PictureBox verlasse soll wieder das ursprüngliche Bild gesetzt werden. (Das funktioniert auch problemlos)

    Hover ich nun bspw über den dritten Stern sollen sich die Sterne 1 und 2 auch verändern. Selbiges gilt sobald ich die PictureBox verlasse. (Das funktioniert auch)

    Sobald ich auf einen Stern klicke z.B. dem vierten, sollen die Sterne 1,2,3,4 Gold werden (also Bild geändert werden). Zeitgleich wird beim Klicken das Mouse.Leave Event entfernt, damit die Sterne Gold bleiben und ein Label editiert. (Das funktioniert mittlerweile auch - das war der Grund zur Threaderstellung)

    Einziges kleines Manko: Klicke ich auf den 5 Stern und klicke dann über einen vorherigen Stern funktioniert, das Hovern aber nicht das Leave.

    Ich hoffe das es nun einigermaßen verständlich ist.

    Grüße. DK

    Ps: Danke für eure Hilfe :)

    dkartsberlin schrieb:

    aber nicht das Leave.

    dkartsberlin schrieb:

    Zeitgleich wird beim Klicken das Mouse.Leave Event entfernt
    Das wird es wohl sein.
    Wenn der Leave-Eventhandler weggenommen wurde, funktioniert kein Leave mehr. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    dkartsberlin schrieb:

    oder
    Du schreibst mal für Dich auf, was genau in welcher Situation passieren soll und was außerdem passieren muss.
    Wenn Du das ordentlich strukturiert machst, wirdt Du ziemlich schnell die Stelle finden, wo Du die Handler wieder adden musst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende