tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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は使わないはずですよ。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。