手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

如何用VB做鼠标滑过标签页变色效果

时间:2024-10-12 14:32:07

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

如何用VB做鼠标滑过标签页变色效果

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

如何用VB做鼠标滑过标签页变色效果

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

如何用VB做鼠标滑过标签页变色效果

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

如何用VB做鼠标滑过标签页变色效果

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

如何用VB做鼠标滑过标签页变色效果

6、最后,在窗口界面做好了,在代码窗口中输入如下代码:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.BackColor = &H80000003End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.BackColor = &H80000002End Sub代码输入完后,单击运行按钮,效果如下图,鼠标滑动后,标签的背景颜色由浅蓝色变为深蓝色,如下图所示。

如何用VB做鼠标滑过标签页变色效果
如何用VB做鼠标滑过标签页变色效果
© 手抄报圈