一个按钮,鼠标没经过的时候显示第一张图片,鼠标经过时显示第二张图片,点下时第三张图片
这个很常见啊
但是经过用什么事件呢?MOUSRMOVE经过后离开就不能返回第二张图片了'不要说用TIMER监视啊
谢谢!

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("c:\1.jpg")
End Sub

Private Sub Form_Load()
Command1.Picture = LoadPicture("c:\2.jpg")
Command1.DownPicture = LoadPicture("c:\3.jpg")
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("c:\2.jpg")
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("c:\2.jpg")
End Sub
如果是N个Command1,那不就要用数组+循环了?'米办法,谁叫现在CPU太快呢?

自已做个按钮控件不就可以了吗？又不是很难。

扔个逻辑变量……

例如如果是个IMAGE，IMAGE_MouseMove中加载图片2。FORM_MouseMove事件中写加载图片1
IMAGE_MouseDown事件中写加载图片3