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