同じコマンドボタンからマウスカーソルがはなれたら
フォーム上のコマンドボタンにマウスカーソルが触れたら色を付ける、
同じコマンドボタンからマウスカーソルがはなれたら 、また色を変える、
という動きをｖｂａで行いたいのですが、
Private Sub cmd_test_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)
Me.cmd_test.BackColor = RGB(255, 180, 200)
End Sub
で、マウスカーソルが触れたら色を付けることはできたのですが、
マウスカーソルがそのコマンドボタンから離れたら色を変えるという動きができません。
Private Sub cmd_test_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Me.cmd_test.BackColor = RGB(255, 255, 255)
End Sub
Private Sub cmd_test_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.cmd_test.BackColor = RGB(255, 255, 255)
End Sub
Private Sub cmd_test_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)
Me.cmd_test.BackColor = RGB(255, 255, 255)
End Sub
をしても、マウスカーソルが離れても色が白になりませんでした。
お礼
このような 自分のカーソルを出すような奴がしたっかたので とても参考になりました