タイトル : Re^6: こんなことできるのかな? 投稿日 : 2008/03/01(Sat) 21:10 投稿者 : だめおやじ
< 琴さんへ早速の返事ありがとうございます。 >> Picture2はPicture1の中に配置されているんですよね? < そのとおりです。 > >例えばデザイン画面でPicture1の位置だけを動かすとPicture2も一緒に動く状態です。 < そのとりです > > 範囲を超えない仕組みは自分で作るしかないような。 > >Picture2の座標はPicture1上(左上が原点)での座標になるので > >上方向と左方向はマイナス値になったら0にしてあげることで > >Picture1の見えている部分からはみ出さなくなります < このようなコードを書きましたがドラッグした位置には表示されませんでした。 何か悪いんでしょうね。 If Picture1.Left + x - lngX < 0 Then x = 0 Source.Move (Picture1.Left + x - lngX), (Picture1.Top + y - lngY) End If If Picture1.Top + y - lngY < 0 Then y = 0 Source.Move (Picture1.Left + x - lngX), (Picture1.Top + y - lngY) End If x = 0 y = 0 If Picture1.Left + x - lngX < 0 Or Picture1.Top + y - lngY < 0 Then Source.Move (Picture1.Left + x - lngX), (Picture1.Top + y - lngY) End If < これから先のアドバイスは、未知の分野でけんとうもつきませんせした。頑張ってみます。 > 下方向と右方向はPicture1の表示範囲(ScaleHeight、ScaleWidth)と > Picture2の座標(Top、Left)と大きさ(Height、Width)で計算して > 範囲内に収まるようにしてあげるといいでしょう。 < 右お礼まで。 |