Перемещение кнопки в VB6

Question

Возможно ли в Visual Basic иметь кнопку, которую можно перемещать с помощью перетаскивания мышью, которая остается на одной горизонтальной линии и перемещается только на определенное расстояние в каждую сторону.Что-то вроде контроля баланса звука на компьютере

Answer 1

Вот простой пример для перетаскивания кнопки с именем Command1. Чтобы ограничить расстояние, которое он может перемещать, просто добавьте некоторые условия в событие DragOver:

Dim blnDrag As Boolean
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not blnDrag Then
        blnDrag = True
        Command1.Drag
    End If
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.DragMode = vbnone
    blnDrag = False
End Sub
Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    Command1.Left = X
End Sub
Private Sub Form_Load()
    Command1.DragMode = vbManual
End Sub