ドラッグ処理を加えたピクチャーボックスについて (ID:117561)

名前

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

本文 移動させるだけなら これでOKでは？ Private XPos As Single Private YPos As Single Private MoveFlag As Boolean Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) MoveFlag = True XPos = X YPos = Y End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If MoveFlag = True Then Picture1.Top = Picture1.Top + Y - YPos Picture1.Left = Picture1.Left + X - XPos End If End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MoveFlag = False End Sub それともドロップで画像を移動させるの？