実行後にコントロールを自由に移動したい (ID:116730)

名前

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

本文 ああ、そっか(＾＾；)こっちで再現しないので困ってたんですが、 X ,Y の基準がボタンの .Top .Left ですね、ボタンのイベントだから。 移動する時はフォームの .Top .Left が基準です。で、２箇所をガンガン 動きまくってます。ボタンをフォームの左上の隅に配置し、少しだけ ドラッグしてると分裂してる差がほとんど無くなるでしょ？ [VB6.0] With Command1 If flag = True Then Debug.Print X & "," & Y .Move X, Y End If End With 例えば、 [Vb6.0] With Command1 If flag = True Then Debug.Print X & "," & Y .Move .Left + X, .Top + Y End If End With でそれらしく動くと思います。