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

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


Delphi:MIDAS中动态强制约束编程 DELPHI 中 自 适 应表 单 的 实 现 Delphi3数据库编程中的查找字段 Delphi3中 连 接 数 据 库 的 三 种 方 法 Delphi编程实现3DS动画的播放 Delphi访问ODBC数据库 Delphi如何实现在一个Dbgrid中显示多数据库 Delphi筛选数据 Delphi数据集过滤技巧 Delphi数据库应用程序开发中图像数据 Delphi下的ADO Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 第10章 SQL基础-Delphi资料 SQL语句中的删除和改变-Delphi资料 TDataLink类别的说明-Delphi资料 TDBGrid控件中对多个记录的处理-Delphi资料 安装BDE需要的东东-Delphi资料 保存DBGrid中栏的字段名及尺寸-Delphi资料 动态生成定义数据库-Delphi资料 动态组成SQL速句-Delphi资料 多层C/S的客户端调用服务器端的方法-Delphi资料 关于dephi数据库的动态建立-Delphi资料 基 于WEB 的 数 据 库 查 询-Delphi资料 计算数据库某字段的值-Delphi资料 计算字段值-Delphi资料 初学者的问题. 关于最终用户许可协议 JPG图片怎么能实现部分透明? 如何用VB.net编写控件 关于ASP中对文本文件的skip(n)操作到底怎么做 关于SQL的菜鸟问题 大家现在用什么软件管理源代码啊。60分相送。 今年是考C 还是C++啊? 怎样判断一个线程已结束 我用new新建了若干个基类是cwnd的窗体cmywnd,然后想在每个窗体内定时让它们自己消失,我应该用什么函数?是destroywindow吗?最后还用不 vs.net 2003 中文版 的帮助MSDN是不是有问题? 清问这个SQL有什么错,还是FB1。0不支持? 是我的usb口的问题吗?? 怪事 急 路径绝对正确,为什么服务器只能下载rar 不能下载EXE 文件 已知,f(x)=arctanx,其二导f''(x)=(-2x)/(1+x*x)^2,f''(0)=0,试: 一个有趣的问题,请大家看一个小程序,来者有分。 这个写者优先是不是有问题????麻烦看一下,小弟实在看不出错在哪里 请问有没有办法得到[系统托盘]上其它程序的所显示的Icon?? 已知,十六进制(34.6)16=(28.75)10(十进制) 高手推荐几个Palm开发的网站?最好有源代码! 请教一个问题 触发器(加密)内容可以查看吗 怪,文件路径绝对正确,EXE文件不能下载,其它格式正常。 在编写的用户控件中公开所引用控件的事件怎么实现啊 这是我的usb口的问题吗? 考程序员前想先考全国三级,请问三级种哪个科目考C编程?何时报名? 调用DLL时候出现Bad Dll calling convention错误,为什么?代码如下 如何建立一个小数据库? 我想问下,网络技术到底是指什么??? 为什么会出现这个问题呢??急救??? 在不同操作系统出现不能正常运行的问题,和默认字体语系乱码问题 C# 静态类成员 新手请求各位前辈帮助 如何查询我连接到哪个数据库? 哭着请求帮助。。。。。页面显示问题!!在线等着 网络技术到底是指什么???? 我想在<<三国九>>里输入正确的中文,有法子么? 能帮我改改么? 紧急求助,请高手支招 请问在JTABLE中如何将某几行设置成可以被选择的,其他几行设置成不能被选中的? 请问怎样修改SDI框架的标题及去掉最大化按钮??? 在自定义的用户控件上公开引用windows控件的事件怎么做啊!!谢谢 2003中为什么IDE设备只能用PIO模式? 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 谁做过CIK细胞治疗,请谈谈效果 毛泽东诗词名句(不少于10句) 怎么辨别银圆真假 把小动物的尸体埋进花园或菜地的土里,过一段时间不见了.请分析原故是什么?\ 各猜一句毛泽东诗词武汉长江的桥建成( )海陆空喜庆( ) 早就想当飞行员()铁骑不能追穷寇()一尘不染()霜叶红于二月花() 怎么样用万能表量在工作下发光二极管的电流是多少 两对基因独立遗传,TtRr与ttRr杂交后代的基因型和表现型的种类分为几种? 一条火线什么能认灯泡亮? 七年级下册地理,南极冰盖最高点在南极点的 方. 无脊椎动物的尸体埋在土中会消失的原因? vlv22 185平方 150平方 120平方 95平方 70平方 50平方 电缆外径大概是多少穿管需要个外径尺寸 将“大洲和大洋”这节内容的内在联系呈现出来 a的平方-b的平方有什么意义? TTRr和Ttrr与TTrr和TtRr产生的后代有什么不同基因型和表现型 有葫芦的神仙? DC-CIK 细胞免疫疗法是真的吗 例2.已知高秆感病(Ttrr)与高秆抗病(TtRr)的个体杂交,两对基因独立遗传时,所生后代的基因型及表现型种类分别为A.4,4 B.6,4 C.4,6 D.9,4 神仙道葫芦里都有多少丹药啊 2平方的意义 F1基因型比为TTRR:TtRR:TTRr:TtRr=1:2:2:4,与ttrr杂交,F2基因型比例为 找一棵大树,是10.07米的,计算树干横截面的直径是多少? 数学取不取等号问题.A=x|a-1 运用经济常识知识,从政府与企业两个角度说明怎样做才能使我国中小企业实现又好又快发展?(政治考试要...运用经济常识知识,从政府与企业两个角度说明怎样做才能使我国中小企业实现又 为什么电路中有一处短路,而其他正常的用电器也不能正常工作 数学真子集取不取等号?M={X|-1≤X≤7}、S={X|k+1≤X≤2k-1},S是M的真子集,求K范围.那个就是解答过程是 当S不等于空集时:1.2K-1≥K+12.K+1>-13.2k-1≤7以上三个合并在一起求范围 可是为什么2K-1 什么店铺可以锯木板我想锯一些木板,长61厘米,宽10厘米共4块,然后长65厘米,宽5厘米的共8块,像这样人家会不会帮我锯啊,还有,在什么店铺可以锯啊,大概多少钱啊,我只是想做一个桌子的架而已, 升旗台在天安门的什么位置 A=x|-2 木板怎样锯直 为什么在电路中一条线短路了,所有的用电器都不会工作 多余的涟漪啥意思? 有一个20米的木板,锯4米一块.要锯多少次?谁来帮我解决下. 描写升旗台的句子 导数求单调性什么时候取等号什么时候不取 a-2大于等于-2,a+2小于等于3,为什么要加等号, 局部短路为什么用电器不能工作,电流还是正常工作时的电流吗? 什么叫多余 高中数学:为什么等号成立? 根据相对论,光对于任何惯性系的速度都是c.如果一个惯性系的速度也是c,那么光对于它的速度是多少? 尸体埋在很稀的烂泥里和埋在潮湿的土里 哪种腐烂的更快我的小狗已经埋了1个月了刚埋几天就下雨一直在很稀的烂泥里 我想问下她现在是不是都腐烂变臭了 高中数学中区间等号的取舍 从相对论观点,为什么惯性系速度越快,其内时间相对外部越快 图像序列中的俩幅相邻图像,后一幅图像与前一幅图像之间存在较大相关性,这是什么冗余?A 空间冗余B 时间冗余C 信息熵冗余D 视觉冗余 使指针停在红色和黄色区域的可能性都是三分之一用空白的圆形纸片做转盘,按要求涂色 根据狭义相对论,当一惯性系K'速度接近C时,K中物体相对于K'的时空坐标都发生了变化,那么我们能不能认为K'� 请问一点五平方、二点五平方、四平方、六平方、十平方国标单股电线最大载流量是多少安? 有一个成语图为一道门和三只喜鹊,是什么成语?第一个字是门 有一块长30厘米.宽25厘米的长方体铁皮,在四个角上分别剪去面积相等的正方体后,正好折成一个深五厘米的无盖铁盒.求这个铁盒的表面积和容积.单位:(cm)要说清楚为什么这样算? 一块正方形木版有4个角,每次锯掉一个角,锯一次后还有几个角?锯2.3次后呢/ n次后还有几个角? 喜鹊()地叫着 从文中可以看出赵普是个怎样的人? 为什么尸体在土中比空气中腐烂得慢? 求一个表达情侣之间的爱意,还和喜鹊有关的成语,词句呜呜呜呜呜,我要好听一点,字好看一点的. 历史上和赵普类似的人 质量m为2千克的物体静止在水平地面强 用F为18牛的推力推物体 在t是两秒内物体位移s是10米 此时撤力F求...质量m为2千克的物体静止在水平地面强 用F为18牛的推力推物体 在t是两秒内物体位移s 1.A={y|y=x²+1,x∈N},B={y|y=a²-2a+2,a∈N*},则A、B的关系是括号()A.A=B B.A真包含于B C.B真包含于A D.B不包含于A2.已知集合A={x|ax=1},集合B={x|x²1=0}且A包含于B,则满 如图,一太阳能热水器受光面的一边AB长为1.5m,∠ACB=90°,倾斜角∠ABC=30°,连杆CD经过AB的中点D求支架AC,连杆CD的长. 从经济生活角度分析如何改变当前房价居高不下的状况谢谢了, 毛泽东诗词精选10句要精选的,好的加分 已知,如图所示,在△ABC中,∠ACB=90度,CD⊥AB,垂足为D,若∠B=30度,CD=6,求AB的长请用勾股定理来解答(初二的) 西班牙部分边境安装“铁刀网” 防非法洛杉矶枪击案嫌疑人为“独狼” 枪支系俄罗斯“联盟号”火箭将搭载日本宇航员周恩来侄女忆伯父:从不动用职权搞裙带新闻集团窃听案涉案编辑被控藏匿证据 谷歌斥美政府“肌肉发达” 称间谍行为印度火星探测器发射进入倒计时 官员称央行:三季度经济稳中向好 经济增长处单眼皮变双眼皮 韩国总统朴槿惠陷“整央行:继续实施稳健货币政策 不放松也“环球小姐”夜访莫斯科夜店 火辣舞姿一台湾游客在马尔代夫海岛度假村溺水身中国女孩西班牙遇害 其养母已被证实为美国参院将对一项同性恋权益法案辩论 美国国安局被曝监控日本 日本防卫相表美媒曝“棱镜门”内部文件 中日为重点日本少子化日益严重 逾6成日企雇佣员美国一动物园训练小猎犬辨识北极熊是否美媒称福利改革东盛西衰 财政压力致步单眼皮变双眼皮 韩国总统朴槿惠陷“整墨尔本盗贼猖狂作案 光天化日载走百余长沙中小学招生“新政”公布分类广告齐白石的“衰年变法”与《佛手》齐白石的“衰年变法”与《佛手》涔天河水库电站首台机组转子吊装成功合肥公租房:让“夹心层”不再闹心扫下二维码就知社区大小事安徽男网民维权意识强于女性合肥成立家装企业诚信联盟合肥市区两级重金奖补支持创新创业埃及发现神秘雕像首度公开 疑为古埃及国足队员陆续抵达长沙国足队员陆续抵达长沙美国务卿:美过去20年对朝政策已失败外交部:若日本军事介入南海,中方必将荷兰首相:议会选举“已叫停民粹主义”死亡签表?八强四巨头剩一人3.15曝光食品药品安全问题 国外如暖闻|一乘客突发癫痫,济南公交值班员人民日报:共享经济野蛮生长,市场监管别误读了“见义勇为可免责”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘