戻る

コントロールを掴んで移動

目的

コントロールをマウスボタンで掴んで移動できるようにします。

ポイント

ドラッグ機能を利用します。

サンプルコード

Option Explicit Dim sngX As Single, sngY As Single Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) ' フォーム上のドロップされた場所に移動する     Source.Move X - sngX, Y - sngY End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' マウスボタンが押された場所を記憶しドラッグを開始する     sngX = X     sngY = Y     Picture1.Drag ' ドラッグ開始 End Sub

ソースのダウンロード