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

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中运行通过。


Paul Graham:Y Combinator创始人成长轨迹 我们需要强密码吗? 为了改变?英特尔CEO宣布将于明年5月辞职 传苹果下一代Mac OS中将整合Siri及地图服务 TripAdvisor:使用AWS比服务器托管成本节省50% [MDCC精华]亚马逊AWS布道师Kingsley Wood:灵活IT架构之道 亚马逊诉讼彰显谷歌在公有云领域威慑力十足 AWS全球创业大赛 奖金100000美元 YY:破冰而出,成功上市 Xtreme Labs工程师:Android开发常陷入的五大深坑 Elon Musk:没了乔布斯的苹果干不过谷歌 旁门左道:第一次开发移动游戏就赚到28623美元 移动周报:小聪明赚大钱 游戏SEO如何耍鸡贼? 创翼全国 六城联动——2012移动互联网应用创新大赛开放日 全国六城联动沙龙 爱丽丝+福尔摩斯 Game Insight解谜游戏玩出新花样 Windows Phone 8 SDK大升级:部分功能兼容WP7 信息大图《愤怒的小鸟》发家史 Intel预测:10年之后你的手机是48核的 消息推送惹怒用户:应用开发者请别太过分 创新工场:我们如何孵化未来? iOS越狱比例下降:国内移动开发环境怎么了? 响应式图像技术与资源分享 看Twitter如何应对大选:少些Ruby 多些Java 软件开发中常见的十大系统瓶颈 [CTO俱乐部87期]三人行架构分享:开源是背后的支柱 推荐5款超实用的.NET性能分析工具 OpenStack基金会主席Alan Clark访华 欢迎提问 程序员的十大烦恼 兼顾性能和兼容体验:HTML5时代的浏览器全面测试 Lisp的本质 Amazon工作环境恶劣员工高流失率 为何却依然能持续成功和创新? 孤独的SB——写给水园的死者. 请问如何在一个SQL的Select中得到一个Boolean字段的中文名称? outlook如何载入来自文本文件的大量邮件地址列表 请问我想吧dbgrid里面的内容保存到一个string变量里面怎么做, net中ToolbarItem集合编辑器使用 怎么得到ms sql server的本地实例(或服务)列表? IIS如何控制目录访问权限? asp.net 我不懂的问题,不是很难啊。 有关mysql出错的问题?? 牛人们,帮我看看~~~~~~ 调试INTERDEV中的PROJECT? 请问 GetCellDigital返回值有误 目录树记忆属性实现的讨论 关于用户自定义类的问题 自制控件问题 静态链接库中的资源 Xml的查询定位问题? 小高求助! 关于JAVA文件执行时出现的错误 如何在Datagrid中取得当前记录的某字段值? 如何取得下拉菜单项? 目录树记忆属性实现的讨论 我想去中国网通申请域名,他们是不是很吊,有没人用过啊 Help 删除一条记录?? 在研究软件加密 “咱们把最好的粮食给城里人吃,又进城帮助他们盖起了高楼大厦,他们为什么还瞧不起我们呢?” 老板今天叫我签合同 有关于TImage的图像显示速度 怎样让 Title 的显示时间延长????????? !!!!!!!!!格式化数据列 怎么这么慢啊 请问:如何在打印之前设定该次打印纸张的大小(很急,老板催货了,帮忙顶一下,谢谢)? 有什么办法可以把class文件反编译回java文件? 如何写到文件? 自己写一个函数,把2,3,4加到1,2,3中去,不重复 Netscape打印中文网页为什么不成功? 英文XP中装了东亚语言包,能显示中文了,如何输入汉字呢。。。。 接到一个电话 哪位大哥大姐教教我啊? Dll如何同控制台程序通信 RedHat Linux7.2下如何挂上RealTek8139网卡驱动????高分相送哦!在线等待!!! TreeView问题 求register_globals = On和register_globals = Off的不同用法(原代码) 斑竹,我是因为升级才散分的,有个穿红裤衩的支持俺了…… 一个新手的加急求救!谁先回答,就先给谁份,希望大家说的详细点! 写xml文件的不完整的问题 关于esqlc的unload 的问题。 关于方法覆盖,在线等候 一个实际开发中经常令人头痛的问题 不完全液体润滑滑动轴承的主要失效形式是什么? 动压润滑和静压润滑有什么优缺点,比如:如果动压润滑,在启动时会不会产生干摩擦,启动后才能产生油膜 现在我们有3、4二氯硝基苯这种材料,请问能生产出几种产品,需要和哪些材料反应呢? 液体摩擦滑动轴承的计算应限制什么?为什么? 数字式万用表的表笔是红正黑负吗?以前用指针万用表,电阻档黑表笔接的是电池正极,听说数字式万用表电阻档的表笔正负和指针表极性是相反的, 在一个密闭容器内,植物进行光合作用之后生成了氧气消耗了二氧化碳能否再利用生成的氧气进行有氧呼吸如果是不就意味着循环利用了吗,那样的话植物能存活多久,回答好的重重有赏,哈哈 梅子留酸软齿牙,芭蕉分绿与窗纱.日长睡起无情思,闲看儿童捉柳花.的意思 万用表上面COM口接黑表笔还是红表笔? 以“夫”和“泣”为例,分别探索它们的意义 依据浙江省暑假作业语文P3参考回答 如何验证溶液中含有亚铁离子? 解释下文化是什么?最好是举例说明, 汉字与理性“夫”的意义 属于光反射现象的是 A 小孔成像 B 激光引导掘进机沿直线前进 C 在地球上可以看到日食和月食 D 教室里不同位置的同学都可以看到黑板上的字 100年后我们的生活会是什么样呢怎么翻译?what will our lives be like in 100 years?ORwhat our lives will be like in 100 years? 磁铁为什么会将电池的电力吸走?是因为什么原因会造成这种现象? 日长睡起无情思,闲看儿童捉柳花.描写哪个季节? 你怎么认为100年后,生活会是什么样 动物避暑 [多选题]1.下列各项中,属于要约邀请的有(  ).[多选题]1.下列各项中,属于要约邀请的有(  ).A.规定投标人应具有特定资质条件的招标公告B.某公司向一商业伙伴寄出的自己已经签字盖 你认为100年后的生活会是怎样的 英语 网络类型里的“外A”“内C”什么意思? 商业广告在什么情况下属于要约,在什么情况下属于要约邀请?越详细越好!谢谢啦! 十二烷基苯磺酸可以用乙醇溶解吗十二烷基苯磺酸与乙醇在水中会发生酯化反应吗 C/C++ class MyString{private:char *str_;char *MemAlloc(char *str);public:MyString(char *str="");};char* MyString::MemAlloc(char* str){char* tmp = new char[strlen(str)+1];memset(tmp,0,strlen(str)+1);strcpy(tmp,str);return tmp;}MyString::Mystring(char 磁场和引力磁场的实体存不存在,如果存在请回答下列问题,如果不存在请说明理由.当人类能把不能再分的原子打出了质子,中子,电子,甚至跨克时,我们不得不怀疑物质的组成本质到底是什么, 十二烷基苯磺酸溶于哪些有机溶剂? 产品安全类别是c类什么意思 已知电压220v功率4800w求电流. 请举例说明招投标的意义.一定要举例说明,一定要举例说明. 妊娠C类什么意思 电脑端有没有检测电压的软件.检测家庭电压的.我怀疑电压严重低于220V 招标有几种方式 分别介绍其含义 贵夫什么意思 求相关合同法多选题答案多选1.甲方违约,给对方乙造成损失15万元,合同规定违约金比例为货款总额的10%,货款总额为200万元,则下面的说法不正确的是()A.甲应赔偿乙15万元B.甲应赔偿乙200万 企业想购买一台旧家电,自用证明怎么写 家夫什么意思? 一道关于合同法保证的选择题 多选甲向乙借款5万,乙要求甲提供担保,甲分别找丙,丁,戊,己,下列构成保证的是A 丙在借据上签署“保证人丙”B丁向乙出具字据“如甲到期不向乙还款,本人愿代 西亚北非局势与当前国际关系态势,马哲的作业, 夫教什么意思 巴勒斯坦凭什么加入联合国 诸葛亮上知天文,阴谋诡计,周瑜自愧不如.(修改病句) 26.一切唯心主义的共同观点有( )①把精神看作世界的本原 ②主张社会意识决定社会存在 ③认为世界万物是“感觉的复合” ④认为世界是不可知 ⑤认为绝对精神产生万物[ 1分] A.①③⑤B. 英国为什么反对巴勒斯坦加入联合国?模拟联合国大会要用到.代表英国,议题为巴勒斯坦的入会问题.麻烦大家了.我急用.请尽量从英国的角度回答这个问题.可以官方点. 帮忙回答几个关于合同法的问题,谢谢1、一方当事人以缔结合同为目的,向对方当事人所作的意思表示.是( )A、 要约 B、要约邀请 2、承诺是受要约人对要约的内容表示基本同意和接 上汽集团总裁胡茂元也有一套管理哲学,就是“长勺喝汤”理论,即想要自己喝到肉汤先要学会喂别人.胡茂元能够如此为别人着想,难怪美国通用汽车公司都盛赞他是中国企业中少有的善于协调 东盟有无超越国家的权力机构? 诸葛亮上知天文,阴谋诡计,周瑜自愧不如.这句话的病在哪.(修改病句) 轴承支撑座因为是重载作业,要求轴承采用滑动轴承(轴瓦),且安装的位置具有倾斜即轴与水平面的夹角为4度请问刮瓦时有哪些注意事项,越详细越好》作为验收人注意哪些东西啊 好听的英文名,帮我取一个好听的英文名,、、?中文名:赵依琳 .性:女. 谁能帮我?修改病句:诸葛亮上知天文,阴谋诡计,周瑜自愧不如. 既然主观决定客观 为什么人犯错还是要在主观上找原因呢 哪里有废旧的节能灯玻璃卖,我想回收 那位知道生物学分类的界门纲目科属种的拉丁语各是如何翻译的? ,初二物理力,仔细回答必有好评,谢谢 一般性国际组织的定义,以及相对定义 谁知道攀枝花(木棉)在生物学中的分类的位置啊?我只知道属木棉科的 现在家用电器越来越多,冬天里开的电器更多了,我怕家电短路引起火灾,那家财险能负责赔吗? 已知反应CO(g) +H2O(g) =CO2(g) + H2(g)在1259K达到平衡,平衡常数K=1,求1,求n(H2O)/n(CO)为1时,CO的平衡转化率?2,求n(H2O)/n(CO)为3时,CO的平衡转化率?3,从计算结果说明浓度对平衡遇到的影响? 引力和磁场之间存在相互关系吗? 3,4-二氯硝基苯除了可以生成苯胺,还可以生成什么? 美警察7枪射杀持假枪少年 枪案频繁导沙特威胁将疏远美国 分析称美地缘政治肯尼迪家族亲戚杀人案将重审 72年还美油轮在尼日利亚遇袭 两人被海盗劫为美国官员在社交网站说总统\"坏话\"星巴克CEO辩解在中国高定价 称报道加拿大魁北克发现丰富稀土矿资源奥巴马医改核心举措因漏洞频出接受国会国际货币基金组织敦促美国应对中长期财两名美籍船员在尼日利亚遭绑架南桑威奇群岛东部25日发生6.5级地美油轮在尼日利亚遇袭 两人被海盗劫为美元对主要货币汇率24日继续在低位小纽约股市股指24日上涨纽约商品交易所黄金期货市场24日交投美国对中国和印尼产味精发起双反调查美“杀死中国人”节目被删 万人在白宫加拿大魁北克发现丰富稀土矿资源美国官员在社交网站说总统\"坏话\"深秋“平补”有讲究美19岁学生欲徒步闯南极古巴改革进行时 欧盟拟深化双边关系以奥巴马拟提名罗杰斯为国安局新掌门 曾2013年河北省消费品工业完成增加值河北加强农村通信设施建设 年内900华北电网最长安全运行变电站里的年夜饭广东新增5例人感染H7N9禽流感病例粤新增4例H7N9确诊病例 禽流感特邢台临西县春节前为30余名农民工讨薪去年河北外贸增幅高于全国 出口突破3台湾新北市长:元宵节弹性放假 可刺激马英九:马年全民拼经济 盼企业为员工马英九提拼经济 苏贞昌:是好事 别讲马英九看好台湾经济发展:今年经济成长\"府院党\"人事大异动?金溥聪将返东北地区将开始降雪 中东部能见度较低吴志峰:宁可成“摆设”,不唱“空城计海口90后女大学生自主创业 开服装店钱夙伟:领导拜年“萌态十足”,不妨多孔之见:取消领导讲话是“让庙会的归庙暖阳照城乡 喜迎幸福年 浙江各地好风杭州市民少放烟花爆竹 这个新年环卫工
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘