Left und right Mouseclick abfangen

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    Left und right Mouseclick abfangen

    Hi,

    ich habe eine Anwendung, die recht speziell ist. Sie heißt "Clock" und dient dazu den Wochentag und die sekundengenaue Zeit für mehrere Zeitzonen anzuzeigen. Das ist für mich eine sehr nützliche Anwendung, weil ich mit Leuten zu tun habe, die auf der ganzen Welt verstreut arbeiten.

    frmClock, hat nur Label: lblWeekday1, lblTime1, lblWeekday2, lblTime2 ... etc. Angezeigt wird die Form in der rechten unteren Ecke des Bildschirms mit borderstyle = none.

    MIt einem (Links)Click, soll frmClock minimiert werden (dann wird auch der Timer angehalten - wird die Form wieder angezeigt, läuft auch der Timer weiter).

    Mit einem Rechtsclick soll ein neues Fenster (frmOptions) geöffnet werden. Da kann man dann die gewünschte Zeitzonen auswählen oder eine Stoppuhr starten, etc. ...

    Ich hoffe, ich habe meine Anwendung verständlich machen können.

    Leider hab ich es bisher nicht geschafft, die Steuerung des Dialogs "user friendly" zu gestalten.

    HIer meine Versuche:

    VB.NET-Quellcode

    1. Private Sub frmClock_Click(sender As Object, e As System.EventArgs) Handles Me.Click
    2. Me.WindowState = FormWindowState.Minimized
    3. End Sub
    6. Private Sub lblTime1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles lblTime1.MouseDown
    8. If e.Button = Windows.Forms.MouseButtons.Right Then
    10. 'Show option menue
    11. ...


    Mit einem "rechts-Click" auf lblTime1 kriege ich mein Options Menue ... mit einem "linkls-Click" auf einen freien Form Bereich wird die Clock minimiert.

    Aber das soll halt ÜBERALL auf der Form so sein!

    rechts-Click = show frmOption
    links-Click = Minimize frmClock

    Natürlich kann ich das jetzt in entsprechenden Ereignisprozeduren für ALLE Label und die Form so kodieren. Aber das scheint mir ein bissl umständlich.

    Kann mir jemand sagen, ob, man das eleganter hinbekommen kann?

    LG
    Peter

    Peter329 schrieb:

    MIt einem (Links)Click ...
    Mit einem Rechtsclick ...
    Ichj würde da ein ContextMenu nehmen, da kannst Du per Klartext reinschreiben, was passieren soll.
    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!

    @Peter329
    Aber das soll halt ÜBERALL auf der Form so sein!

    Meinst du so etwas...

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles MyBase.MouseClick
    3. If e.Button = MouseButtons.Left Then MessageBox.Show("Links: 'Minimize Clock'")
    4. If e.Button = MouseButtons.Right Then MessageBox.Show("Rechts: 'Show Options'")
    5. End Sub
    6. End Class

    Man braucht zwar Clicks weniger - ist aber ungewöhnlich. Da täte ich auch ein Kontextmenü bevorzugen...

    das Prob ist, Mausklicks kommen auf dem Form nicht an, wenn Labels drauf sind.
    Es führt also nix drumrum, alle Controls durchzugehen, und deren Mausklick-Events auf einen gemeinsamen Handler zu leiten.

    Alternativ ebenso alle Controls durchgehen, und stattdessen jedem dasselbe ContextMenu zuweisen.
    Letzteres find ich auch besser, und bei nicht so viele ist das auch im Designer zu schaffen.

    ErfinderDesRades schrieb:

    das Prob ist, Mausklicks kommen auf dem Form nicht an, wenn Labels drauf sind.


    Genau ... daran hab ich mir nämlich die Zähne ausgebissen. Und deswegen klappt die Lösung von vb1963 wohl auch nicht!

    Aber danke erst mal für eure Ratschläge. Ich habe jetzt versucht die Sache mit einem ContextMenu zu lösen. Ich habe einen ContextMenuStrip1 eingefügt und das Label lblTime2 damit verbunden.

    VB.NET-Quellcode

    1. Private Sub ContextMenuStrip1_Opening(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
    2. Debug.Print("hello")
    3. End Sub


    Das klappt prima, hello wird ausgegeben wenn man das Label lblTime2 mit der RECHTEN Maustaste anklickt. Damit könnte ich die Sache mit dem Anzeigen der frmOption abhandeln.

    Wenn man mit der LINKEN Maustaste klickt, passiert natürlich nix. Deshalb hab ich das wie folgt versucht:

    VB.NET-Quellcode

    1. Private Sub ContextMenuStrip1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ContextMenuStrip1.MouseClick
    2. Debug.Print("hello left / right")
    3. If e.Button = Windows.Forms.MouseButtons.Right Then Debug.Print("Right click")
    4. If e.Button = Windows.Forms.MouseButtons.Left Then Debug.Print("Left click")
    5. End Sub


    Das klappt aber nicht. Die Ereignisroutine wird nicht angesprungen, egal wie ich das Label anklicke! Es ist zum Auswachsen!

    Irgendwas mache ich da falsch ! Könnt ihr mir noch mal helfen?

    LG
    Peter

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

    Das ist garnet vorgesehen, dass ein ContextMenu Klickse empfängt.

    Es ist auch unüblich, Controlse auf Links-Klickse reagieren zu lassen.

    mach doch einfach die MenuItems die du brauchst ins Contextmenu und fertig. Auch das Opening-Event brauchst du nicht.

    Mach mw. 3 MenuItems rein, und jedes MenuItem ist ein MenuItem, d.h., hat ein Klick-Event.

    Peter329 schrieb:

    Die Ereignisroutine wird nicht angesprungen
    Du kannst das KontextMenu im Designer mehreren Controls zuweisen und feddich.
    Um mehr musst Du Dich nicht kümmern, natürlich musst Du die Prozeduren implementieren.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Befehl1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Befehl1ToolStripMenuItem.Click
    3. MessageBox.Show("Befehl 1")
    4. End Sub
    6. Private Sub Befehl2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Befehl2ToolStripMenuItem.Click
    7. MessageBox.Show("Befehl 1")
    8. End Sub
    9. End Class

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.components = New System.ComponentModel.Container()
    26. Me.Label1 = New System.Windows.Forms.Label()
    27. Me.Label2 = New System.Windows.Forms.Label()
    28. Me.Label3 = New System.Windows.Forms.Label()
    29. Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
    30. Me.Befehl1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    31. Me.Befehl2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
    32. Me.ContextMenuStrip1.SuspendLayout()
    33. Me.SuspendLayout()
    34. '
    35. 'Label1
    36. '
    37. Me.Label1.AutoSize = True
    38. Me.Label1.ContextMenuStrip = Me.ContextMenuStrip1
    39. Me.Label1.Location = New System.Drawing.Point(31, 33)
    40. Me.Label1.Name = "Label1"
    41. Me.Label1.Size = New System.Drawing.Size(39, 13)
    42. Me.Label1.TabIndex = 0
    43. Me.Label1.Text = "Label1"
    44. '
    45. 'Label2
    46. '
    47. Me.Label2.AutoSize = True
    48. Me.Label2.ContextMenuStrip = Me.ContextMenuStrip1
    49. Me.Label2.Location = New System.Drawing.Point(31, 58)
    50. Me.Label2.Name = "Label2"
    51. Me.Label2.Size = New System.Drawing.Size(39, 13)
    52. Me.Label2.TabIndex = 1
    53. Me.Label2.Text = "Label2"
    54. '
    55. 'Label3
    56. '
    57. Me.Label3.AutoSize = True
    58. Me.Label3.ContextMenuStrip = Me.ContextMenuStrip1
    59. Me.Label3.Location = New System.Drawing.Point(43, 95)
    60. Me.Label3.Name = "Label3"
    61. Me.Label3.Size = New System.Drawing.Size(39, 13)
    62. Me.Label3.TabIndex = 2
    63. Me.Label3.Text = "Label3"
    64. '
    65. 'ContextMenuStrip1
    66. '
    67. Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Befehl1ToolStripMenuItem, Me.Befehl2ToolStripMenuItem})
    68. Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
    69. Me.ContextMenuStrip1.Size = New System.Drawing.Size(114, 48)
    70. '
    71. 'Befehl1ToolStripMenuItem
    72. '
    73. Me.Befehl1ToolStripMenuItem.Name = "Befehl1ToolStripMenuItem"
    74. Me.Befehl1ToolStripMenuItem.Size = New System.Drawing.Size(113, 22)
    75. Me.Befehl1ToolStripMenuItem.Text = "Befehl1"
    76. '
    77. 'Befehl2ToolStripMenuItem
    78. '
    79. Me.Befehl2ToolStripMenuItem.Name = "Befehl2ToolStripMenuItem"
    80. Me.Befehl2ToolStripMenuItem.Size = New System.Drawing.Size(113, 22)
    81. Me.Befehl2ToolStripMenuItem.Text = "Befehl2"
    82. '
    83. 'Form1
    84. '
    85. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    86. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    87. Me.ClientSize = New System.Drawing.Size(284, 262)
    88. Me.ContextMenuStrip = Me.ContextMenuStrip1
    89. Me.Controls.Add(Me.Label3)
    90. Me.Controls.Add(Me.Label2)
    91. Me.Controls.Add(Me.Label1)
    92. Me.Name = "Form1"
    93. Me.Text = "Form1"
    94. Me.ContextMenuStrip1.ResumeLayout(False)
    95. Me.ResumeLayout(False)
    96. Me.PerformLayout()
    98. End Sub
    99. Friend WithEvents Label1 As System.Windows.Forms.Label
    100. Friend WithEvents Label2 As System.Windows.Forms.Label
    101. Friend WithEvents Label3 As System.Windows.Forms.Label
    102. Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
    103. Friend WithEvents Befehl1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    104. Friend WithEvents Befehl2ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    106. 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!

    Danke erst mal für eure Ratschläge. Obwohl ich offen gestehen muss, dass ich einiges nicht so richtig nachvollziehen konnte.

    Ich habe die Sache jetzt elementar gelöst. Auf die Form und die Label habe ich jeweils eine MouseClick Ereignisprozedur definiert. Und die rufen eine gemeinsame Prozedur zum Verarbeiten auf.

    VB.NET-Quellcode

    1. Private Sub Form_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    2. ProcessMouseDown(e.Button)
    3. End Sub
    4. Private Sub lblWeekday1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles lblWeekDay1.MouseDown
    5. ProcessMouseDown(e.Button)
    6. End Sub
    7. Private Sub lblTime1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles lblTime1.MouseDown
    8. ProcessMouseDown(e.Button)
    9. End Sub
    10. Private Sub lblWeekday2_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles lblWeekDay2.MouseDown
    11. ProcessMouseDown(e.Button)
    12. End Sub
    13. Private Sub lblTime2_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles lblTime2.MouseDown
    14. ProcessMouseDown(e.Button)
    15. End Sub
    16. ...
    18. Private Sub ProcessMouseDown(intLeftRight As Integer)
    20. 'Left MouseClick
    21. If intLeftRight = Windows.Forms.MouseButtons.Left Then
    22. 'Minimize frmClock
    23. Me.WindowState = FormWindowState.Minimized
    24. End If
    26. 'Right MouseClick
    27. If intLeftRight = Windows.Forms.MouseButtons.Right Then
    28. 'Show option menue
    29. ...


    Das funktioniert jetzt hervorragend ... auch wenn ich eine lange Liste mit stereotypen Definitionen benötige. In der Not frisst der Teufel halt Fliegen! :)

    Meines Erarchtens liegen solche Probleme darin begründet, dass man in VB.Net für gleichartige Controls keine Wiederholungsgruppe definieren kann. Sonst könnte man solche Sachen über einen Index abwickeln.

    Wie immer Dank für eure Ratschläge!

    LG
    Peter

    ja, und da bietet VB eine ganz fabelhafte Möglichkeit, zu formulieren:

    VB.NET-Quellcode

    1. Private Sub Form_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, lblWeekDay1.MouseDown, lblTime1.MouseDown, lblWeekDay2.MouseDown, lblTime2.MouseDown
    2. ProcessMouseDown(e.Button)
    3. End Sub


    Nach wie vor favorisiere ich aber ein konventionelles Kontextmenü

    Peter329 schrieb:

    Obwohl ich offen gestehen muss, dass ich einiges nicht so richtig nachvollziehen konnte.
    Also wenn du dein Tool zippst und anhängst, kann ichs dir da eben einbasteln.


    Um den Code zu "verkürzen" wäre so was möglich.
    Hier könntest du dann noch überlegen ob die eigene Sub notwenidig ist oder ob du das direkt im Aufruf löst.

    VB.NET-Quellcode

    1. Private Sub Form_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, lblWeekDay1.MouseDown , lblWeekDay2.MouseDown, lblTime1.MouseDown, lblTime2.MouseDown
    2. ProcessMouseDown(e.Button)
    3. End Sub
    4. ...
    6. Private Sub ProcessMouseDown(intLeftRight As Integer)
    8. 'Left MouseClick
    9. If intLeftRight = Windows.Forms.MouseButtons.Left Then
    10. 'Minimize frmClock
    11. Me.WindowState = FormWindowState.Minimized
    12. End If
    14. 'Right MouseClick
    15. If intLeftRight = Windows.Forms.MouseButtons.Right Then
    16. 'Show option menue
    17. ...
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Supi! Das war mir neu, dass man eine LISTE in der Handles-Clause verwenden kann.

    Und natürlich hat Schamash recht, dass ich dann zum Verarbeiten keine eigene Prozedur mehr benötige, sondern das direkt in die Ereignisprozedur aufnehmen kann.

    Das gefällt mir jetzt. So bleibt die Kiste! :)

    Danke nochmal an alle!

    LG
    Peter

Facebook
Telefonspende