VBでPDFライクに画像を動かすには？ (ID:85618)

名前

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

本文 簡単な方法とすれば、 ピクチャーボックスの中にピクチャーボックスをいれて 中のピクチャーボックスを動かすというものでしょうか。 '中のピクチャーボックスをPicture2としたサンプル Private mX As Long Private mY As Long Private mState As Long Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) mState = 1 'マウスが押されたときの座標を保存 mX = X mY = Y End Sub Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If mState = 1 Then '押されたときの座標との差分移動 Picture2.Move X - p1X + Picture2.Left, Y - p1Y + Picture2.Top End If End Sub Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) mState = 0 End Sub