Question

怎么用VB.当鼠标移动到command1时让它改变图形

http://zhidao.baidu.com/question/146769879.html
也就是说command1的图形变成自已设计的好看的按钮
具体怎么做,代码,详细点,谢谢

2.添加如下代码：
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("图片路径")
End Sub

当离开时又自动删除图形

Answer 1

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Set Command1.Picture = LoadPicture("c:\windows\winnt.bmp")
End Sub

'这个窗体的鼠标移动事件中的代码，具体你可以放在Command1的父容器的鼠标移动事件当中。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Command1.Picture.Handle <> 0 Then
Set Command1.Picture = Nothing
End If
End Sub

Answer 2

那就不要用command控件了,用pictruebox来实现,反正他也有click等事件
可以在
mousedown按下
mouseup缺省,弹起
mousemove经过
还有就是装载事件,给它赋值