ドラッグで移動・サイズ変更可能なコントロールを作成するには？ (ID:77315)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 移動はAPIを使用しなくてもできます。下記を試して見て下さい。 Option Explicit Private XPos As Long Private YPos As Long Private Sub Command1_DragDrop(Source As Control, _ X As Single, Y As Single) '同一コントロール内でドロップした場合の補正 Source.Move (Command1.Left + X - XPos), (Command1.Top + Y - YPos) End Sub Private Sub Command1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) 'ドラッグ開始位置の保存とドラッグの開始 YPos = Y XPos = X Command1.Drag vbBeginDrag End Sub Private Sub Form_DragDrop(Source As Control, _ X As Single, Y As Single) 'フォーム上にドロップした時の補正 Source.Move X - XPos, Y - YPos End Sub