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

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


tabs(initial, settings)-JQuery API triggerTab(position)-JQuery API triggerTab(position)-JQuery API Tooltip(settings)-JQuery API PHP简介-PHP初学入门教程1 选择PHP的理由 -PHP初学入门教程2 从一个简单的程序来了解PHP -PHP初学入门教程3 PHP语法基础 -PHP初学入门教程4 建设一个简单的交互网站(一) -PHP初学入门教程5 建设一个简单交互的网站(二) -PHP初学入门教程6 建设一个简单交互的网站(三)密码验证 -PHP初学入门教程7 PHP文件上传 -PHP初学入门教程8 为站点添加投票功能 -PHP初学入门教程9 广告条轮播-PHP初学入门教程10 操作MySQL数据库实现简单的留言板-PHP初学入门教程11 使用PHP来操作Oracle数据库 -PHP初学入门教程12 技术杂项PHP教程结束篇 -PHP初学入门教程13 .NET中DataSet和DataReader的区别与转换 CGI技术及其开发(二)-Delphi资料 CGI技术及其开发(一)-Delphi资料 COM/DCOM中如何传递数组-Delphi资料 COM与DCOM的区别与联系-Delphi资料 Cookie的建立使用-Delphi资料 Delphi 3中Cookie的建立使用 Delphi 中 串 行 通 信 的 实 现 Delphi4.0 开发WEBMAIL程序 Delphi4的Winsocket编程 Delphi4开发WEBMAIL程序 Delphi编写网络程序的安全措施 DELPHI 和 THE INTERNET Delphi开发Web Server程序如何返回图像 一个关于编译的问题??? 收购C、C++、JAVA版完整工程源序 VC中如何实现等待5微秒? 关于如何用代码描述rc文件, 那位用过触摸屏的,给个建议, 请问微秒级的延迟在C语言中如何实现? 请问为什么在COM中总是使用双重值针,即指针的指针? 用过,销售,触摸屏的兄弟姐妹给个建议 关于C里面的setjmp()和longjmp()函数的使用。 一个用VB偏的“图片批量转换软件”!带源代码!!! 多伦多穷人欢庆申奥失败 有人注意到了吗???directX的资源释放不干净! 谁能帮我做一个小型帐务管理(用C)??? 用delphi编程,用什么触摸屏比较好啊? 怎样在程序运行时增加子菜单(要增加的数目是未知的) 关于Sprite动画 出售代码 ACCESS的FORMS DLL调用函数问题 VB在ACCESS中应用的一个小问题! ACCESS中的FORMS问题? 再普通不过的一个问题 delphi6中还有BDE和ADO吗?它们被淘汰了吗?现在还有必要用它们来学数据库的开发吗? 50分答谢!!!---这个css定义为什么会出现这样的效果??? 各位:怎么判断表里某个字段是否存在? 纯技术问题:精通“书签“与“层“的大虾请进!!!! 一个奇怪的现象,请教高手这是怎么回事? 哪里有破解清华五行卫士密码的软件? vc++7.0好用吗? 吃完晚饭了... 可不可以让 CppWebBrowser1的背景不是白色? 热热热!!!热疯了!!! 我的喇叭哪儿去了? 我的PB程序出了问题了!!! sql server中哪个函数是用于字符串与整型之间转换的? 我想限定文本输入框只能输入10个汉字或20个英文字符,但文件输入框却只能输入10个英文字符,如何解决? 当我将这样的字符串“dsdsdsdfsdffsdsdfsdfsfdsdfsdfsfsfdsdffs.....”放入我的表格中时,无论怎样设置也不折行,影响了部局,如何解决? MFC中视图(view)是怎样随着主窗口的大小改变而改变的。 急!请教!!猫猫连接,用数据管道同时访问两库,访问不到对方的网络库(sybase) 关于电影下载 我已经把一个exe文件加入到我自己的程序中了,请问在我的程序中应该样调用该exe文件呢? 哪位高手知道RTF格式的含义?或者更好,知道Rxlib中的RXRICHEDIT控件中识别RTF格式的方法? Delphi编写的DLL在VC下不能使用 请问哪儿有电工的<>的电子版下载?我只有这么多了 msdn2001年4月版的讨论 请问哪儿有电工的<>的电子版下载? 请教高手!!!! 请进 各位:周末愉快!为何我的多表查询用updatebatch提交时总是报错? 我不明白!!!! 请问,BAS 与 VBJ 有什么区别吗?为何他们安装在同一个目录呢? 如何得到系统进程的列表? 15的素因数是什么:有几个?是【素】因数。 判断:36和48的公因数有2、3、4、6、12,其中最大公因数是12. 科学题 (20 21:0:21)          把5毫升质量分数为98%的浓硫酸(密度为1.84克/厘米3).加入到25毫升水里进行稀释,求所得溶液的溶质质量分数. 45和15是因数和倍数的有哪些 24.36.48 公因数 (26 15:54:30)一艘船在河中逆流而上,河水流速为3米/秒,经过一座桥时,船上的一只木箱掉落水中,5分钟后船员才发现,立即掉头追赶,同时将航速(船相对与静水的速度)提高到原来的1.5倍,则可在 请问72和48公因数有多少? 96和80的公因数有哪些 (26 15:39:30)甲、乙两物体都做匀速直线运动,速度之比是4:3,所用时间之比是5:2,则路程之比为 72的公因数是,90的公因数是,最大公因数是,最小公因数是 160的公因数 初二科学题(关于水的浮力的) (7 15:53:16)武汉号满载时重7.5*10^7N,求满载时军舰排开海水的体积. (  ρ海水=1.03*10^3kg/m^3  g=10N/kg      结果保留两位小数) 108和144的最小公因数 120和56的公因数是多少? 初二 物理 初二科学 请详细解答,谢谢! (5 15:45:30)铝球的体积为400立方厘米,质量为810克,问,该球是实心的还是空心的?(铝的密度:2.7×103千克/立方米) 用短除法求下面各组数的最大公因数和最小公因数4和6 18和20 72和96 81和108 77和160有没有公因数 科学 (24 20:53:14)下列几种用电器正常工作时,电流最大的是(  )A.42寸液晶电视机   B.MP3       C.电子手表            D.100瓦 93和108的公因数(这个因数的倍数不能有96、99、102、105)108的的因数(这个因数的倍数不能有93、96、99、102、105) 80和30 公因数 桌子上放着一个空烧杯,烧杯内有——A氮气 B氧气 C空气 D包括ABC 15.20和30的公因数 8和10的公因数 75和60 所有公因数的和 9和21 公因数9和21的最小公因数 8和24的公因数是什么 90和60的公因数有哪些 36和60的公因数有哪些?急死人了啦,我根本不想算啦 8和5的公因数 16和25的公因数 48和36的最大的公因数是? 8和32的公因数 45,75和60的公因数 48和36 75和15公因数是多少? 46和13 公因数 24和54的公因数有哪些 24和36的公因数快一点快 14和46的最小公因数 30和35的公因数有哪些 24和36的公因数有( ) 1-99的公因数是什么?可加我好友我现场问一下 科学 (26 19:5:8)一位同学用天平和量筒测定不规则木块的密度,已知木头的密度小于水的密度.请写出所需实验器材和实验步骤,并写出木块密度表达式.  24和36最大的公因数是? 公因数是什么意思? 1、将干燥纯净的氯酸钾13.25KG与3.25KGMNO2混合后装入大试管知趣氧气,反应一段时间后得到11.7固体物质.(1)制的的氧气质量是多少?(2)反应后固体物质是什么?质量是多少?(1)4.8KG  (2) 56和176的最大的公因数 625和560有没有公因数?(1除外!)(要最大的) 科学家用_、_及_来描述与研究运动. 90和40的公因数这是吗》》? 285和175有没有公因数?(1除外!)(要最大的) 科学题 (23 21:41:24)1.水晶是晶体吗?2.晶体一般具有______、________,而非晶体一般不具有这些特性.3.无水硫酸铜粉末是____色的,遇水后形成的硫酸铜晶体是____色的,把其溶解在水中形成的硫酸铜溶 30和45的公因数 498和415有没有公因数(1除外) 科学 (23 16:47:21)一辆长30m的大型平板车,整两车匀速通过70m长的桥,所用的时间是10s,它以同样的速度通过另一座桥,花了20s时间.那么,另一座桥长多少? 45的因数,15的因数 285和175有没有公因数?(1除外!) 科学 (23 21:28:35)有一铝球,体积是60cm2,质量是108g,判断该球是空心还是实心?如果该球是空心,那么球内的中空部分的体积是多大?如果在中空部分铸满铁,那么这个球的质量为多少?(铝的密度:2.7 30和45的因数有多少. 1和3有没有公因数求快 生活中遇到的科学问题 (21 21:17:30)春节前几天家里的墙壁都很潮湿,这是为什么?那卫生么有有些地方不这样呢?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn