VB6でボタンを移動する

Question

ビジュアルベーシックでは、同じ水平線にとどまり、それぞれ一定の距離だけ移動するマウスドラッグで移動できるボタンを使用できますか？コンピュータのサウンドのバランスコントロールのようなもの

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