Скроллинг на форме посредством мышки - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д