Question

vb当鼠标经过图片变换别的图片

当鼠标经过一张图片的时候就会变换别的图片，

其它：还有是在中制作下拉菜单

最好有源码。
其它为:还有是在vb中制作下拉菜单

Answer 1

新建一个资源文件，添加两个位图资源，资源号分别为101,102.

Private Sub Form_Load()
Picture1.Picture = LoadResPicture(102, 0)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadResPicture(102, 0)
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = LoadResPicture(101, 0)
End Sub

'---如果还要区分按下和普通状态可以加入picture1_mousedown和mouseup过程。

在vb中制作下拉菜单
添加一个commondialog控件
然后：commondialog1.showopen