说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Visual Basic 中制作流水灯

HTML文档下载 WORD文档下载 PDF文档下载
Visual Basic 中制作流水灯

都市的夜色中闪烁着各式各样的霓虹灯,其中用得最多的大概要算流水灯,它的行云流水般的效果为宁静的夜晚带来生机。如果在我们制作的多媒体软件的界面中加入一串闪闪发光的流水灯会是一种什么样的效果呢?按下面的步骤你可以为你的多媒体程序加入一串有追逐效果的流水灯。

1、建立一个新的表单。进入Visual 5asic 4.0系统环境,建立一个新的表单(FORM1),并设置FORM1的Backcolor属性为RGB(192,192,192)。

2、建立第一个彩灯。鼠标点击“表单控制栏”中的“标签”,并在FORM1上拉出一个矩形方框(LABEL1)。设置它的属性Caption为“★”(也可为其它字符,这里的“★”可在 WINDOWS 95的“附件”的“字符映射表”中找到),Autosize为.T.,Backstyle为0,Forecolor为红色,字体大小为18。

3、建立其它29个彩灯。鼠标点击LABEL1,按CTRL + C(拷贝)键,再按CTRL + V(粘贴)键,在FORM1上创建另一个标题与LABEL1相同的标签(LABEL1(1)),屏幕提示是否建立控件数组时选择‘YES’。如此反复进行拷贝,共建立30个标签,将这30个标签按顺序排成一个矩形方框。

4、建立计时器。鼠标点击“表单控制栏”中的“计时器”,再在FORM1上点击一下,即可在FORM1上创建一个计时器(TIMER1)。设置它的属性Interval为400。

5、双击FORM1,编写FORM1的Load过程如下:

Private Sub Form_Load()

I = 0

For j = 0 To 9

Label1(j * 3).ForeColor = &HFF& '红色

Label1(j * 3 + 1).ForeColor = &HFF00& '绿色

Label1(j * 3 + 2).ForeColor = &HFFFF& '黄色

Next j

End Sub

6、双击TIMER1,编写TIMER1的Timer过程如下:

Private Sub Timer1_Timer()

If I = 30 Then

I = 0

End If

I = I + 1

For J = 0 To 29

Label1(J).Visible = False

Next J

If I Mod 3 = 2 Then

For J = 0 To 9

Label1(J * 3 + 1).Visible = True

Next J

Else

If I Mod 3 = 0 Then

For J = 0 To 9

Label1(J * 3 + 2).Visible = True

Next J

Else

For J = 0 To 9

Label1(J * 3).Visible = True

Next J

End If

End If

End Sub

运行表单后可见到红、绿、蓝三种颜色的彩灯交替点亮,调整Timer1的Interval属性值大小可以改变三组彩灯的循环速度。

以上程序在Visual Basic 5.0及Windows 95中运行通过。


日程全公布|年度人工智能技术精英聚会 7月26-27相约北京 TypeScript 1.5发布,支持大量ES6新特性 快快快!27个提升效率的iOS开源库推荐 《近匠》Maxense,“云+传感”推动产业变革 【探秘ES6】系列专栏(九):使用Babel和Broccoli 2015年Postgres全球开发者大会参会总结 英特尔硬享公社启动“创意原型拍卖” 对接创意与商机 详解Swift 2.0(一):苹果做的25项改变 2015甲骨文数据库大会:回顾、感恩、展望,欲续写辉煌 Nokia进军VR领域:让人欢喜让人忧 2015中国人工智能大会在京成功召开 成为糟糕游戏设计师的五种打开方式 Stripe使用指南:Swift开发中的信用卡支付 将安全延伸至云端以及更远的地方 专访FreeWheel北京研发中心:一流技术型人才应具有国际化视野 iOS UIView动画实践(五):Keyframe Animation 【CTO讲堂】简说创业公司的技术选型,从BearyChat的开发说起 《近匠》Webix,跨浏览器的JavaScript UI组件库 微软正式推送Windows 10,你会升级最后一款Windows产品? Cinatra:高性能现代C++ Web框架 《移动App测试实战》作者邱鹏:我在测试过程中遇到的那些坑 Rust一周精彩回顾:《高级Rust编程语言》、新增13名贡献者 来自Sony Morpheus的开发灵感: 如何打造逼真的VR游戏? 如何像巫师那样隔空操作——聊聊迷你雷达的原理和应用 等你来战——IBM Cloudant数据库开发大赛火热开启! 《近匠》360加固保,应用安全攻防的核心实现 DEFCON黑客大会抢鲜看:你所不知道的黑客大对决 MDCC2015中国移动开发者大会启动 七场专题技术论坛公布 【CTO讲堂】如何构建高性能网络服务平台及生态系统? mysql备份数据库批处理 《近匠》Remix周哲,让Android运行在“电脑”上! 帮我看看,怎么编译不通过 各位板主:折腾了我三天的问题还未解决。 delphi qreport byte& 是什么类型? IBM DDYS-TO9170M SCSI 硬盘,如何看它的CACHE,写者10000转的,不知道是不是? IBM DDYS-TO9170M SCSI 硬盘,如何看它的CACHE,写者10000转的,不知道是不是? 急!我在传输参数到SQL的过程中,服务器提示“AAA”需要参数但没有参数,请各位高手给个意见!在线等! 弹出窗口的问题--在线 串口工作有误了,MSComm32控件的问题?? 想知道有必要先学C 再C++ 再Visual C 吗? gqxs (小龙)请进,看到你去年的一个关于注册的帖子,我也出了像你一样的问题,请大家都来看看。 DBDateTime控件在哪里可以找到? 那为能够帮我解释一下SQLBindCol函数,特别是参数。 如何操作recordset,使其能够手动付值!即用 window nt和window 2000 server能不能象windows professional那样设成重启后自动登录。 关于语音视频聊天室 高手进入 来者得分 通过GUID枚举设备的问题请教! 代码不懂请指教 如何用javascript控制表单提交? (急急-在线等)一个复选框的问题 如何让服务器知道前来访问的客户机物理内存大小? 急,急,帮我看看。一个初级问题。 用思科1721路由器代理上网和连接网络电话功能够用吗? 请问用嵌入式系统开发的成本大约是多少? 如何获取两个日期之间相隔的天数? PB中如何操作文件。 在线等急盼tomcat启动问题 我的奔4电脑不能装oracle8。1。7 java 与oracle数值类型转换问题 请教“数字权利管理”(digital rights management)和P3P的实现问题? IBM DDYS-TO9170M SCSI 硬盘,如何看它的CACHE,写者10000转的, 数据插入速度问题 一个关于自定义类的问题,请帮助! 如何使用DBchart? DELPHI+CORBA 求救!!!! 请问java中如何获得windows的系统目录? 大家看看这台服务是出了什么问题?帮帮忙!!! 一个想把控件内容打印出来的小问题! 如何查看表中各字段的长度? 谁能给出一个ASP.NET应用存储过程的例子 self::node()是否就是 . 高分求救::关于分类显示的问题. c#里的编辑列的激活事件写在哪里? 一个基础小测验 如何获取客户端机器物理内存大小?急!!! 急问:我的VC6.0里的Icon编辑器为什么只有16种颜色 谁有这样的曲线绘图源码,一定重分相谢! 怎样去除启动菜单? 调用自建文件时,报错“重复定义”,为什么? Rave做报表时,要求preview时,不出现那个OutPut Options,并且预览时,要求全屏显示 请问映射文件里添加纪录应该怎么做阿 怎样让下拉列表中选定的值对应为数据库中的值~! 我想问下刍字的读音啊 中国现在有谁在翻译日版的毛利元就的历史小说吗,能想山冈庄八的德川家康什么么的一样出版吗? 有关怪盗基德的动画都有什么? A.B两滑块的质量均为m,分别穿于两个光滑的足够长的水平放置的固定导轨上,两导轨杆平行,间距为d,以自然长度为d的轻弹簧连接两滑块,开始时两滑块位于同一竖直线上且速度为零,现给B滑块一 导轨的行程由什么来确定 竖直向上抛出的物体,最后又落回原处,若考虑空气阻力,且设阻力在整个过程中的大小不变,则物体将一物体竖直向上抛出,最后又落回原处,若考虑空气阻力,且设阻力在整个过程中大小不变,下 桃花源记中使用修辞手法的句子 dental 英语翻译 我爸爸总是穿一件黑色毛衣.翻译! 英语翻译 揭秘胡万林狱中生活:声称攻克了癌症艾北京地铁10号线一天三故障 分时分段墨西哥一糖果厂爆炸1死20人失踪乌克兰放弃申请加入北约2013WPT中国站美女选拔美照曝光葛兰素史克在华销量锐减 表示不会退出美智库称朝正为核试验做准备 以应对美浙江永康华溪再遭污染 \"牛奶河\"第九届中国国际女装设计师大奖赛落下帷日本数十家酒店餐厅涉嫌伪造高级食材被美监管机构拟出台金融机构流动性新规来自《星星》的味道春荞韭菜花 炒肥叉鱼松湖人宣布纳什赛季报销“有人把飞机改道飞往印度安达曼”明天,揭幕战上演退赛潮?海口赛丁俊晖无缘八强居民省下垃圾袋可换钱明日进行全民公投,克里米亚总理:80难得的疯狂却毫无快感马不停蹄继续领跑省十二届人大常委会七次会议本月底召开无极之抉择玄界天痕圣武帝尊血染逆途倒霉它梦幻社妖仙之瞳库兰崛翌符凌虚空五行灵术师绝命塔罗使徒的锁链三里屯酒吧街旅游金融街旅游万庆当铺旅游稻香人家旅游山东省科技馆旅游怀胎井旅游神武门旅游刀剑剪博物馆旅游定鼎门旅游石景山古建筑群旅游乾安泥林旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘