当前位置：首页 -> 技术开发 -> 程序开发 -> Visual Basic 中制作流水灯

Visual Basic 中制作流水灯

时间： 2021-07-31 作者：daque

城市的夜色中闪耀着形形色色的霓虹灯，个中用得最多的大约要算清流灯，它的行云清流般的功效为宁靖的晚上带来盼望。即使在咱们创造的多媒介软硬件的界面中介入一串闪闪发亮的清流灯会是一种怎么办的功效呢？按底下的办法你不妨为你的多媒介步调介入一串有追赶功效的清流灯。1、创造一个新的表单。加入visual basic 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 = 0for j = 0 to 9label1(j * 3).forecolor = &hff& '赤色label1(j * 3 + 1).forecolor = &hff00& '绿色label1(j * 3 + 2).forecolor = &hffff& '黄色next jend sub6、双击timer1，编写timer1的timer进程如次：private sub timer1_timer()if i = 30 theni = 0end ifi = i + 1for j = 0 to 29label1(j).visible = falsenext jif i mod 3 = 2 thenfor j = 0 to 9label1(j * 3 + 1).visible = truenext jelseif i mod 3 = 0 thenfor j = 0 to 9label1(j * 3 + 2).visible = truenext jelsefor j = 0 to 9label1(j * 3).visible = truenext jend ifend ifend sub运转表单后看来到红、绿、蓝三种脸色的彩灯瓜代点亮，安排timer1的interval属性值巨细不妨变换三组彩灯的轮回速率。之上步调在visual basic 5.0及windows 9第5中学运转经过。

Visual Basic 中制作流水灯

相关推荐

推荐下载

热门阅览

最新排行