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

 时间:2024-10-14 22:17:22

在日常的生活和工作中,当我们在上网的时候,经常会用鼠标滑过网页的标题,或者有链接的文字,它本来的颜色在鼠标滑过时变成了另外的颜色,在VB中也可以做出这样的效果,这里以标签页当有鼠标滑过时变色效果来举例。

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

工具/原料

VB软件

方法/步骤

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、最后,在窗口界面做好了,在代码窗口淘篱跬翎中输入如下代码:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAs胨检馁秣Single,YAsSingle)Label1.BackColor=&H80000003EndSubPrivateSubLabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.BackColor=&H80000002EndSub代码输入完后,单击运行按钮,效果如下图,鼠标滑动后,标签的背景颜色由浅蓝色变为深蓝色,如下图所示。

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

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

用VB(Visual Basic)制作简单艺术字效果 如何在VB中做出状态栏 vf6.0单击窗体,改变窗体背景色 vb代码窗口最大化如何取消 VB如何动态创建窗体
热门搜索
热门电影 杨思敏电影 大众夏朗报价及图片 图片打印软件 青风藤图片