タイトル : Re^7: こんなことできるのかな? 投稿日 : 2008/03/03(Mon) 09:15 投稿者 : 琴
> < このようなコードを書きましたがドラッグした位置には表示されませんでした。 > 何か悪いんでしょうね。 > 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 何か勘違いをされてるような…。 試しにPicture2のTopとLeftをデザイン画面で0にしてみてください。 恐らくPicture1内の左上に配置されているはずです。 Picture2の位置(TopとLeft)は、Picture1内での位置(Form内ではない)なので Picture2の位置を算出するときにはPicture1のTopやLeftは使わないはずですよ。 |