【VB】利用MouseMove事件轻松实现Image与Picture的切换

作品展越来越近了，我们的作品《文件管理专家》也已经成形了，正在努力完善中，也在期待着作品选拔~~~

作品里有很多精华的东西，算是整个作品的亮点功能。比如说：界面图标的切换（当鼠标移动到图标上时，图标变大，反之，鼠标离开后，图标变回原来大小）

效果如下：

（一）首先，添加Image控件，在Image控件里添加自己所需要的图片；其次，在Image控件上面覆盖一层Picture控件；最后，通过代码实现二者的切换。

在Image的MouseMove事件里编写如下代码：

Picture1(index).Top = Image1(index).Top - 100

Picture1(index).Left = Image1(index).Left - 100

Picture1(index).Picture = Image1(index).Picture

Picture1(index).Visible = True

（二）通过装载Image控件的容器的MouseMove事件和Form的MouseMove事件让图标轻松切换

Image1（index）.Visible=True

Picture1(index).Visible=False

（三）如图2所示，当鼠标移动到图标上时，会有ToolTipList弹出，但是为了让弹出的文字更加好看，我们使用了“气泡提示”

的方式，修改了Picture的ToolTipList的形状，让界面更加美观。

一点一滴的积累，为了做出完美的作品，更是为了更深入的学习。