vb6.0做LCD电子时钟

先来看一下效果图：

下面就说一下具体的分析：

首先分析它的显示原理，

一、先把每一个数字都看成是一个8字的一部分，这里说的8是这个，把整个电子时钟分成八份，其中有六个。可以很容易的看出来这个8是有七根线构成的。

二、每次都是判断现在的时间，然后再根据相应的时间画出相应的线段。

再来说下整个程序的设计。

一、界面；

   界面就是用来一个图片框作为背景（可以用窗体）。没有别的。

二、实现；

   用类来实现。

   ①、分析类应该具备的功能：

       能够得到系统的时间并且将时间的每个字符分离出来单独判断。

       根据判断的结果画出相应的线段。

   ②、再进一步深入:

       要得到系统的时间就需要一个接口，就是自定义类和窗体类之间的消息传递。

       传递进去之后，将时间进行分离，并加以判断，包括画8位置的判断。

       每次判断完都会画出相应的“时间”，这就需要调用一个自己定义的画时间（DrawTime）的过程。

       从实现原理我们知道这个8字是有七根线段组成的。所以在画时间的过程中应该在调用画线段(DrawSegment)的过程，当然不调用过程也可以直接在画时间的过程中写，但是这就违背了OO的原则,降低了复用率。

       在深入到具体的画线段的过程中。

三、代码：

类中：
Private Type Coordinate
   X As Integer
   Y As Integer
End Type
Dim BasePoint As Coordinate
Dim SegWidth As Integer
Dim SegHeight As Integer
Dim p As PictureBox
Property Let BackColor(Color As Long)

   p.BackColor = Color

End Property

Private Sub DrawTime(Number As Integer)

   Select Case Number
   '画相应数字的图形
&n