都是采用当鼠标放到按钮上，按钮就变颜色或者图片了

Question

请问那些不少的软件，都是采用当鼠标放到按钮上，按钮就变颜色或者图片了，请问怎么样编写，就是类似于javascript的onmouseover 这样的事件，怎么样编写，谢谢在线等
分不多了，要不就多给了，谢谢

Answer 1

用一个Mouseon命令可以改变... 例如:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If (x > 15 And Y > 15) And (Command1.Width - x > 30 And Command1.Height - Y > 30) Then
    Command1.BackColor = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
Else
    Command1.BackColor = &H8000000F
End If
End Sub
但是, 如果你移动鼠标过快, 可能在鼠标移开控件后, 不会发生变化. 如果你想做得万无一失, 建议你采用API函数, 来获得鼠标的位置, 然后做动作(这样很麻烦的哦, OHOH, 我没测试过).

Answer 2

用image 做按钮。当鼠标移动时（move事件）改变颜色或者图片。