在日常的生活和工作中，当我们在上网的时候，经常会用鼠标滑过网页的标题，或者有链接的文字，它本来的颜色在鼠标滑过时变成了另外的颜色，在VB中也可以做出这样的效果，这里以标签页当有鼠标滑过时变色效果来举例。工具/原料moreVB软件方法/步骤1/6分步阅读

在桌面上，鼠标左键双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出2个标签。将其Caption属性值改为上一页和下一页，如下图所示。

2/6

接着，在程序的界面上，Label1标签的BackColor属性值改为浅蓝色，这时可看到在Form1窗口上的标签的底色变为浅蓝色了，下一页Label2标签同样操作，如下图所示。

3/6

然后，这时大家还会发现，两个标签大小不一样，因为是用手绘制的，难免不会准确，两个标签要统一大小，只要在其Width和Hight的两个属性值上统一即可，这里Width设为900，Hight设为400，如下图所示。

4/6

接着，把控件进行设置，两个标签的大小统一了，但是里面的字体显得太小了，可以把它们适当放大，就会显得美观，在Font属性值下修改就可以了，如下图所示。

5/6

然后，鼠标左键单击Font属性旁的按钮，弹出字体对话窗口，这里选择宋体、4号字，确定后，可看到标签页里的字大小合适了，两个Label都改成一样的，如下图所示。

6/6

最后，在窗口界面做好了，在代码窗口中输入如下代码：

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.BackColor = H80000003

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.BackColor = H80000002

End Sub

代码输入完后，单击运行按钮，效果如下图，鼠标滑动后，标签的背景颜色由浅蓝色变为深蓝色，如下图所示。

编程语言鼠标滑动效果软件开发VB编程窗口特效