Скроллинг на форме посредством мышки - 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

ИИ для рефератов и докладов


  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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