请问如何实现霓虹灯效果呢？_成都市武侯区七彩霓虹灯制作部_成都霓虹灯,成都吸塑字,成都吸塑灯箱

客户留言

联系我们

收藏此网站

站内搜索

搜索网站中其它产品：

友情链接

	四川省龙脑贸易有限责任公司
	四川朗御装饰工程有限公司
	公正仪器仪表网

您现在的位置：成都市武侯区七彩霓虹灯制作部 > 七彩新闻

七彩新闻

请问如何实现霓虹灯效果呢？
发布日期：2010-10-08

请问如何实现霓虹灯效果呢？ Visual Basic是一种易用、易学、功能强大的编程语言，利用Visual Basic我们可以很容易地设计出符合用户要求的各种应用程序，但是Visual Basic 所提供的各种控件中都没有闪烁属性设置，这就使应用程序界面有一种“呆板”的感觉，无法表现出动感。最近笔者在设计软件封面时，要求字体不断地变化，呈现出一种霓虹灯的效果。本人经反复分析、实践，最后设计出了霓虹灯效果，现将设计过程说明如下：　　(1)创建一个新目标文件Project1，并建立一个窗体Form1。　　(2)在Form1上放置一个计时器控件Timer1、标签控件Label1、命令控件Command1。霓虹灯素材效果图 (3)各控件属性设置：　　(4)程序代码清单：　　Option EXPlicit 　　Private Sub Command1_Click() 　　End 　　End Sub 　　Private Sub Form_Load() 　　Label1.Top=1850　′设置闪烁字体的显示位置　　Label1.Left=Screen.Width/8 　　Timer1.Interval=500　′设置字体闪烁间隔时间　　Command1.Top=Screen.Height/1.5　′设置按钮在窗体中的位置　　Command1.Left=Screen.Width/2 　　Form1.WindowState=2　′设置窗体化　　End Sub 　　′Chc过程是循环地改变字体颜色(ForeColor) 　　Sub chc(Cont As Control,Color1 As Integer,Color2 As Integer,Color3 As Integer) 　　If Val(Cont.Tag)=Color1 Then 　　Cont.Tag=Color2 　　ElseIf Val(Cont.Tag)=Color2 Then 　　Cont.Tag=Color3 　　ElseIf Val(Cont.Tag)=Color3 Then 　　Cont.Tag=Color1 　　Else 　　Cont.Tag=Color1 　　End If 　　Cont.ForeColor=QBColor(Cont.Tag) 　　End Sub 　　′利用计时器控件Timer有规律地改变字体颜色(ForeColor) 　　Private Sub Timer1_Timer() 　　chc Label1,2,6,12 联系人：周先生电话：028-85142648,18981761638 联系传真：

免责声明：本商铺所展示的信息由企业自行提供，内容的真实性、准确性和合法性由发布企业负责，一比多公司对此不承担任何保证责任。

友情提醒：为保障您的利益，降低您的风险，建议优先选择商机宝付费会员的产品和服务。

成都市武侯区七彩霓虹灯制作部   地址：成都市火车南站锦绣花园   邮政编码：610000
联系人：周先生   电话：13666128836   手机：18981761638
技术支持：一比多 | 免责声明 | 隐私声明
增值电信业务经营许可证：沪B2－20070060     网站Icp备案号：沪ICP备05000175号