RichTextBox MouseWheel Event weiterleiten

  • VB.NET

    RichTextBox MouseWheel Event weiterleiten

    Hallo,

    ich habe eine scrollbares TableLayoutPanel, auf dem zwei RichTextBoxen sitzen.
    Beide Textboxen stellen den Text komplett dar und sollen nicht scrollbar sein.

    Wenn der Benutzer auf dem Text in der RichTextBox scrollt, soll jedoch im TableLayoutPanel gescrollt werden.
    Hierfür müsste das MouseWheel Event in das Table Layout Panel weitergeleitet werden.

    Folgenden funktionierenden Ansatz habe ich bereits, die Lösung ruckelt jedoch und lässt sich so nicht vertreten.

    Quellcode

    1. Private Sub richtextBox_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles rtb1.MouseWheel, rtb2.MouseWheel
    2. Dim v As Integer = TableLayoutPanel.VerticalScroll.Value
    3. v -= e.Delta \ 6
    4. v = Math.Max(v, 0)
    5. TableLayoutPanel.VerticalScroll.Value = v
    6. End Sub


    Gibt es denn noch weitere Möglichkeiten, wie so etwas umgesetzt werden kann?
    Bilder
    • Scroll.JPG

      29,93 kB, 752×463, 96 mal angesehen