コントロールのmouseMoveで他のコントロールにマウスがきたら？ (ID:101573)

名前

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

本文 ※VB6として書き込み もしかしたらボタン2をサブクラス化してウィンドウプロシージャを書き換えれば何とかなるかもしれませんが，私には良くわかりません． なので別解として(動作が結構変わってしまいますが)， ボタン1をドラッグ可能にして， ボタン2の DragOver イベントの Source 引数で判断してみてはいかがでしょう． 例) Option Explicit 'Form1にボタンを二つ貼り付ける． '名前はそれぞれ Command1 Command2 Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call Command1.Drag End Sub Private Sub Command2_DragOver(Source As Control, X As Single, Y As Single, State As Integer) Debug.Print Source.Name End Sub