ウインドウが移動したことをチェックするには？

Ｋｕｂｕ 2000-12-06 12:09:00 No: 73978

フォームが移動するたびにイベントを起こしたいのですが
（例えばフォームが移動する度にその座標をMsgBoxで表示する等）
どうすればいいのでしょうか。
ＡＰＩを使うような気がするのですが
もしＡＰＩでしたら、ＡＰＩはちょっと自信がないので
できれば詳しく教えてください。

キツネうどん 2000-12-06 22:58:14 No: 73979

タイマーイベントを使用すればＡＰＩを使わなくても出来ますよ。

Heppoko URL 2000-12-21 07:54:51 No: 73980

'APIを使わないでも十分できますよ。
'まずテキストボックスにタイマーイベントで自分の座標を格納。
'そしてその格納した値が変わったらメッセージを出すという風にすれば・・

'下のがそれです。タイマー1つにテキストボックスを２こです。

Private Sub Text1_Change()
MsgBox "座標は・・" & Form1.Top & " " & Form1.Left
End Sub

Private Sub Timer1_Timer()
Text2.Text = Form1.Left
Text1.Text = Form1.Top

End Sub

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

'結果報告待っていますね！

α 2001-03-24 22:42:32 No: 73981

HEPPOKOさんと同じですけれど、
VB5ならタイマーコントロールをこのようにすれば？Private Sub Timer1_Timer()

If (Form1.Left <> 元のX座標) Or (Form1.Top <> 元のY座標) Then

MsgBox "座標が変わりました。" & Form1.Left & Form1.Top, 32
Text1.Text = "座標" + Form1.Left + "," + Form1.Top

End If

End Sub