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

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


IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为" 计算机视觉" 赋予智慧的光芒 【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 iBeacons一年回顾 英特尔中国30周年之际 IDF上你需要了解的5件事 OpenCloud 2015参会者的三大特征(附列表) 友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 亿航与高德达成战略合作 LBS+引爆智能硬件软实力 《近匠》火柴手写码,输不错的验证码利器 Web、App中添加动效设计应遵循的12条原则 越狱与开源:2015移动安全峰会(MSS)纪实 开发者自白:我是如何不花一分钱收获230万应用下载量的! OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 TIOBE 2015年4月编程语言排行榜:Java王者归来 三大主题技术峰会开幕在即 OpenCloud 2015参会者提醒 《近匠》快码,唯快不破的代码众包平台 打破边界 生态化反!乐视发布三款超级手机 苹果收购LinX:iPhone或将采用双摄像头技术 Google《Android性能优化》学习笔记 Amaze UI 2.3.0版本发布 整合多个第三方插件 专访Layabox创始人谢成鸿:Flash与HTML5结合的背后 高德推“LBS+”开放平台战略 整合位置大数据和云计算 CLion 1.0发布,C/C++跨平台集成开发环境 2015超实用的前端开发指南 请问在SQLSERVER2000中如何在检索数据是将两个字段合并成一个字段,用“||”吗? 数据库的重定向问题! 关于使用资源 QRRichText 打印如果页数很多(2页以上),就打印不完全,但打印预览中可以看到全部,为什么? 我有一个弱弱问题要问。。。 在C#中如何做ToolWindow属性的WinForms?????????? 怎样才能将静态文本框的背景色设置为透明的? 实时错误“480”,不能创建AUTOREDRAW图象,如何解决?把PICTUREBOX定义太大会产生这个错误,不能绘图! COOL!COOL! 序列的一系列问题 劳烦各位介绍一下业界最流行实用的汇编,C语言编译器,我是在校生急需指导! Rebar 移动的问题!烦死我了! 高手留步:请问VC中获取当天日期的函数是???还有比较两个日期所差天数用什么函数??? 请问怎样才能将vb中的date型的内容转化为sql server的datetime型呀,谢谢大家了 请问,怎样在 FLAH5 中直接插入 MP3,并改变 MP3 的音质? 利用delphi连接远程sybase数据库,在多用户操作情况下为什么会产生数据库死锁 看了一下SL275(2001年5月)的课程概述,发现里面没有了Applet了,SCJP是不是舍弃了它了? 有关JAVA的Package,ClassPath的讨论,诸位看过来 COOL!COOL!COOL! what's wrong with the SOCKET define? 使用vb通过NotesSQL for odbc连接过domino数据库时总出现如下错误“ [Microsoft][ODBC 驱动程序管理器] 驱动程序的 SQLAllocHandle on SQL_HANDLE_ENV 失败”,有谁遇到过吗?如何解决? 在SDK中,如何判断对话框中的CheckBox是否选中? 请教如何修改如何提交数据(一对多的表) 如何在delphi里实现文件(比如文本文件)从一台机器传递到另一台机器?比较急! 不知道主板集成声卡的型号,又没有驱动程序?怎么办?主板是ASUS CUSL2,I815E CHIPSET 想问问大家pb自带的例子中有没有关于权限的例子 怎么样吧jpg图片转成ico?????? 听说程序员结婚生孩子多数会是女孩,是不是真的?,好像与辐射有关哦 那里有windoes版的ftp源码 不知道主板集成声卡的型号,又没有驱动程序?怎么办? 主板是ASUS CUSL2 ,I815E CHIPSET 请问哪里有编写多线程安全对象的资料?(72分) 通过界面输入大量数据,界面如何设计??? 在Red hat 7.1如何安装GBK字符集! Focus(老鱼)回答得50分 请教网站的建设计划如何写呀? 请问下面的DELPHI程序如何转为CB 帮忙测试! 怎样得到硬盘序列号 关于Web开发…… Notes Client 待办事宜的定时刷新问题 都是面向对象,怎么C++和JAVA对此代码的结果不同?欢迎高手讨论! 关于//{{AFX_??? 的问题 ---> 如何动态建立字符数组? 都是面向对象,怎么JAVA和C++对此代码结果不同?欢迎高手讨论! 如何解决线程函数与窗体的交互 vb+SQL2000的奇怪出错提示 请问怎么作出jar文件? 急!!!谁有RTF文件格式中元素说明?给一份!谢先!!!!70分奉上!!! java plug-in 1.3.1是什么东东?如何用? ASP中用foxpro数据库,删除记录的问题,我急。。。 急急急 求北师大版senior high english课文,听力等的MP3,高中3年的都要··发到jizet16@126.com 几道数学题(恐怖)(1) -1+2-3+4...-97+98-99+100(2) -1-2+3+4-5-6+7+8...-2009-2010+2011+2012(3) -1+3-5+7...+95-97+99 500字以上, 需要北师大版必修3高中英语听力MP3 课文 发我邮箱sunchenlumaomao@126.com 恐怖的数学题100个7组成一个100位数,它除以13的余数是几? 学数学窍门在哪 已知a,b,x,y 满足ax + by=3,ay - bx=5,则(a^2 + b^2)(x^2 + y^2)等于_______. 谁有轮机英语及听力与会话<第三版>光盘破解版请发我邮箱,跪谢.花了78元买了本书,结果.那个光盘不能用.很伤心,就快补考了.有的大哥,别藏啦. 学数学有什么诀窍吗 怎样才能够让数学学的成绩优秀呢?;我为什么害怕数学老师呢?;怎样才能够让自己喜欢数学老师并喜欢上数学课? 跪求轮机英语听力与会话<第三版>光盘破解版和MP3以及航海英语听力与会话评估MP3版 学数学有什么窍门 想要写一个程序将十进制转换成二进制 用c写 三管轮大证电子题库和轮机英语及听力与会话光盘破解版和MP3版 求. what is Tony's opinion about English food?为什么不用how is Tony's opinion about English food? 作文《我最喜欢的数学老师》800字接近800字即可,按我可资料写更好,老师:陆老师,女,29岁,相貌、事件可充分想象 . 谁有轮机英语听力与会话<第三版>光盘破解版和MP3版请发给我 talk about "food"的英语作文? 害怕数学、害怕数学老师、害怕上数学课怎么办啊?话说我以前数学还蛮好的,对数学也挺有兴趣的可是上了初中、那老师特别凶、她还老打击我说我数学不怎么好、我本来就自卑、而且不知 前辈有轮机英语听力与会话<第三版>光盘破解版和MP3版能够发给我 What about_____(eat) junk food用所给单词的正确形式What about_____(eat) junk food 我喜欢我的数学老师怎么办他长得不帅,但人真的超好的,每次和他在一起我就超激动的,这到底是怎么回事啊,我一向只对帅哥花痴耶,可是现在.怎么办啊 log2[log3(log4x)]=log3[log4(log2y)]=0求x+y的值, 一个字节能够表示几种不同的二进制数?要表示65536个不同的二进制数需要几个 求托福TPO1~24口语的3-6题的听力文本!附答案最好!有的发到email 非常感谢!boohee33@yahoo.com 计算机,二进制表示数,4位,第1位为符号位,为什么表示范围是-16到15?怎么表示-16? 关于二进制的正负数辨别!第一位0代表正1代表负我知道,但是给你一个二进制的数比如1101那么转化成十进制应该是多少?13?但不是说首位为1应该是负的吗?谁能给我讲讲这个首位什么时候作为 已知log2[log3(log4x)]=0,求x的值 求助:三管轮轮机英语听力与口语 已知代数式(4x²+ax-y+6)-(2bx²-2x+5y-1)的值于字母x的取值无关.求代数式 3(a²-2ab-b²)-(4a²+ab+b²)的值求各位亲们、好汉帮帮忙、行行好! 谁有剑桥雅思真题听力45678册的听力MP3,可以发到我的邮箱.liuyi710@yahoo.com 谢谢 急需轮机英语听力与会话(第三版)的MP3,特别是会话部分. 5位二进制数 共有 种不同组合 哪有人教版九年级上册英语听力下载? 我家姑娘上九年级,请发我邮箱:lsfsy1@yahoo.com.cn 谢谢! 急求 三管轮全套轮机英语听力与会话 光盘破解 谢谢发到我邮箱yubing52121@163.com 谢谢 根号下1又16分之9—根号下0.16×根号下2次8分之1;3次根号下-64+3次根号下125-3次根号下729 俞敏洪《高中英语词汇精选》中的单词都是高中课本上的单词吗?背这本书和背刘毅3000哪个好 二进制数00111101转换成十进制数是要步骤 已知log2[log4(log3x)]=log3[log5(log2y)]=0,求4更号x-y^1/5写过程 无符号二进制整数怎么转换成十进制数 二进制数(110001)2转换成十进制数. 高一数学:已知实数abxy满足a方+b方=m,x方+y方=n,求ax+by的最大值! 无符号二进制整数1111001转换成十进制数是多少 若a.b.c.x.y均为正实数,并且x+y=1,求证ab≤(ax+by)(ay+bx)≤(a+b)2的平方/4 已知实数a b x y满足a^2+b^2= m,x^2+y^2=n.则ax+by的最大值是( ) 十进制数50转换成无符号二进制整数 十进制数89转换成二进制数全过程如题 已知abxy均为实数,且a^2+b^2=1,x^2+y^2=1试比较ax+by与1的大小关系 设p=1/log2(11)+1/log3(11)+1/log4(11)+1/log5(11),则 A.0<p<1 B.1<p<2 C.2<p<3 D.3<p<4请问具体解法?ps:2,3,4,5都是底数,11是真数 若实数A.b.x.y满足Ax加by等于3和Ay减bx等于5,求(A的平方加b平方)乘以(a的平方加y的平方)的值 已知实数a,b,x,y,满足a^2+b^2=1,x^2+y^2=3,求ax+by的最大值为? 设P=1/log2^11(底数为2的意思)+1/log3^11+1/log4^11+1/log5^11求p的取值范围 一道恐怖的数学题三姐妹去集市买鸡,大姐带了10只,二姐带了16只,小妹带了26只,上午她们按同一价格卖出一部分鸡,中午过后,怕卖不完,于是降价把其余的鸡仍相同的价格全部卖出,每人均得35元 设实数a,b,x,y满足a^2+b^2=1,x^2+y^2=3,则ax+by的最大值( )可以换一个解题方法吗?因为柯西不等式我没好像没学,提示是说用三角带换。 青朋友们帮忙,我想买一本轮机英语词典,售价为36元那种的,知道的朋友青帮下忙,我着急要, 我发现一道恐怖的数学题亲们都知道,三分之一等于零点三的循环,而零点三的循环乘以三,等于零点九的循环.可是,三分之一乘以三,等于一.零点九的循环并不等于一 惊悚了有木有? 带符号二进制数-100011的原码表示形式为? 不好意思.能把这个听力的再发给我吗?谢谢.elyon_h@126.com 四个连续自然数的积是5038,这四个连续自然数分别是( ).( ).( ).( ).是积```不是和. -1.0和+1.0用二进制原码怎么表示?机器数为8位,一位符号位,7位数值是-0.1和+0.1
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn