実行時のコントロール移動について

質問

実行時にデザイン時と同じようにコントロール移動をおこないたいのですが、コードを忘れてしまいました。もしご存知の方ご教授お願いします。下記にしめしたものが少しだけ覚えているものです。したがってうまく起動できていません。よろしくお願いしたいます。VB6です。w2k
Private Sub cmd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
cmd.Left = (X - x1) + x1
cmd.Top = (Y - y1) + y1
End If
End Sub

回答No.1

anmochi · ベストアンサー

？　x1を引いてからx1を足している？？？

cmdをマウスカーソルの移動分だけずらしたいなら

# cmd.Left = cmd.Left + (X - x1)
# cmd.Top = cmd.Top + (Y - y1)

じゃないのかな？　例によって未検証。今OS入れないこした所で開発環境入れとらんのよね。

お礼

あ、ありがとうございました・・・。