骑友网|单车论坛|骑行网|自行车之家

标题: [img]http://www.7747.net/images/blank.gif[/img]php编程[img]htt [打印本页]

作者: 大宝 时间: 2008-2-13 06:27
标题: [img]http://www.7747.net/images/blank.gif[/img]php编程[img]htt
用visualbasic我们可设计出形形色色符合用户要求的应用程序，它确实是一种很好的用户程序开发工具，可vb提供的基本控件中都没有闪烁属性设置，使应用程序界面缺乏“活性”，近期笔者设计软件封面时，就要求字体不断地闪烁，为此，经反复分析、实践，最后终于成功地实现字体闪烁效果，现将设计过程说明如下：
　　(1)创建一个新目标文件(project1)，并建立一个窗体form1。
　　(2)在form1上配置一个计时器控制timer1、标签控件label1、命令控件command1。
　　(3)各控件属性设置：
　　timer1的enabled设置为true;
　　label1的caption设置为需闪烁的字体：“江西省黎川县职业中专电脑室设计”、
font设置字体及大小、backstyle设置为“0－transparent”；

　　command1中的caption设置为“退出”。
　　(4)程序代码清单：
　　optionexplicit
　　privatesubform_load()
　　label1.top=850　　
　　　′设置闪烁字体的显示位置
　　label1.left=750
　　timer1.interval=555　　
　　′设置字体闪烁间隔时间
　　form1.windowstate=2
　　endsub
　　′利用计时器控件timer有规律地改变字体颜色(forecolor)
　　privatesubtimer1_timer()
　　chclabel1,1,4,8
　　endsub
　　′chc过程是循环地改变字体颜色(forecolor)
　　subchc(contascontrol,color1asinteger,color2asinteger,color3asinteger)
　　ifval(cont.tag)=color1then
　　cont.tag=color2
　　elseifval(cont.tag)=color2then
　　cont.tag=color3
　　elseifval(cont.tag)=color3then
　　cont.tag=color1
　　else
　　cont.tag=color1
　　endif
　　cont.forecolor=qbcolor(cont.tag)
　　endsub
　　privatesubcommand1_click()
　　end
　　endsub
　　程序除标签控件外，还适用于许多vb基本控件，实现诸多闪烁效果，例如：闪烁文本框、闪烁文件列表框等，极大丰富了vb应用程序界面，相当实用。
　　此设计也适用vb3.0、vb4.0。->

作者: 鱼缸里的鲨鱼 时间: 2008-2-13 14:17
广告｀｀｀

欢迎光临骑友网|单车论坛|骑行网|自行车之家 (https://51bike.com/)