Скроллинг на форме посредством мышки - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Есть форма на которой есть Panel1 в котором расположены контролы, если контролов создается много то появляются скроллбары. Вопрос знатокам) как сделать скроллинг не тасканием полосок скроллбара, а посредством простого зажатия ср.кн. мыши - к примеру. Есть какие-либо примеры на эту тему?
уточню - т.е. мне нужен пример как программно передвигать ползунки скроллбара на контроле.

Решение задачи: «Скроллинг на форме посредством мышки»

textual
Листинг программы
Public Class Form3
    Private LocationCursor As Point
    Private LocationCursorOffset As Point
    Private LocationPaint As Point
    Private Sub Panel1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.Cursor = Cursors.SizeAll
            LocationCursor = Cursor.Position
        End If
    End Sub
    Private Sub Panel1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Right Then
            LocationCursorOffset = Cursor.Position - LocationCursor
            LocationPaint += LocationCursorOffset
            LocationCursor = Cursor.Position
            Panel1.AutoScrollPosition = LocationPaint
        End If
    End Sub
    Private Sub Panel1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        Me.Cursor = Cursors.Default
    End Sub
End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5