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

名前

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

本文 （さっきのサンプルちょっと間違ってましたね。mouse_moveイベントでp1Xとp1YはそれぞれmXとmYです） ピクチャーボックスを入れているコンテナコントロールの領域内で移動を制限したい場合もほとんど変わりません。 ピクチャーボックスの位置を見ればよく、 左上の座標（Left,Top)がいずれも０以下かどうか、 および、コンテナコントロールの（表示領域の）幅とピクチャーボックス の幅の差以上であるかをみて 幅の差＜＝左上座標＜＝０ の範囲に制限すればいいことになります。 'コンテナコントロールをPicture1とした場合のmouse_moveイベント 'また、ReleaseCaptureを使用した方法でも考え方は同じでいけると思います。 Dim pX As Long Dim pY As Long If Picture1.Width < Picture2.Width Then pX = X - mX + Picture2.Left If pX > 0 Then pX = 0 If pX < Picture1.ScaleWidth - Picture2.Width Then pX = Picture1.ScaleWidth - Picture2.Width + 1 Else pX = 0 End If If Picture1.Height < Picture2.Height Then pY = Y - mY + Picture2.Top If pY > 0 Then pY = 0 If pY < Picture1.ScaleHeight - Picture2.Height Then pY = Picture1.ScaleHeight - Picture2.Height + 1 Else pY = 0 End If If mState = 1 Then '押されたときの座標との差分移動 Picture2.Move pX, pY End If