vb 停止按钮_VB制作LED效果倒计时程序

原文链接：

No.27 VB制作LED效果倒计时程序​mp.weixin.qq.com

仿LED电子屏效果

今天我们讲一个比较有趣的例子，这个题目来自于网友“锦绣”，具体要求就是如何用VB模仿LED屏幕显示数字的效果。如图：

其实原理很简单，用控件来代替LED屏幕上的元件，通过更改颜色来形成点阵数字。可用的控件有很多，比如说Label控件，Command控件，我们为了方便使用按钮，在窗体上建立9X9的Command控件数组，并且使用“格式”菜单中的"对齐"和“同一尺寸”功能调整大小并对齐：

我们设计计数范围为0~99，所以找出两个区域用于显示两位数：

我们通过改变这两个区域Command背景色来达到显示数字的效果。我是这样想的，把0~9每一个数字用一个过程来实现，需要显示的时候直接调用过程，比如：

这里要注意的是，当你设置需要显示的某个区域的时候，先擦除上一个数字所设置的颜色，就好比你在黑板上写字之前要擦黑板一样。

我们需要让个位显示0的时候直接Call g0

我们定义个位0~9个过程，再定义十位0~9个过程，工作就完成一大半。

我们再来实现倒计时功能：

添加一个Timer控件并将Interval属性设置为1000，也就是一秒执行一次，然后将Enabled 属性设置为 False。添加一个Text文本框控件，用来接收用户设定的数值。

声明一个变量用于存放用户设定的值，然后在Timer中每次变量-1并写入text文本框中，当变量=0时停止计时。

在按钮控件数组中显示文本框中的数字呢？我们用Len函数检测文本框中是否两位数，如果是，用Left和Right函数分别取得个位和十位，再用Select Case分别选择所需要的过程，代码太长，我就不贴图了，下面看运行效果，源码下载地址在下面：

下载地址：

http://51vb.ys168.com/