如何用VB设计动画时钟举例

程序说明

1.如何在钟面上画出所有的线性元素？

使用Load命令创建14个原始行控件的副本(因为表盘有12个点和15行小时、分钟和秒)，并将控件数组的每个实例的端点坐标属性设置到时钟表盘上每一行的适当位置。这些副本大多数只放置一次，而3行控件每秒更新一次，这给人的感觉是时钟指针在移动。

注意:应用程序代码中没有任何一行被直接删除。当我们改变每条线控件的终点时，移动时擦除和重绘每根针的所有技术工作都由VB处理。

2.如何修改时针的形状？

通过调整代码中的属性设置，可以更改时钟的形状。例如，通过更改每个线条控件的Borderwidth属性的设置，可以创建更细或更粗的线条。

3.设置计时器的间隔属性

的计时器间隔属性设置为100，即1/10秒。

编程和执行

(1)新项目

首先，创建一个新项目(项目类型为standard EXE)，然后添加一个Timer1(定时器)和一个line1(直线)，索引(指针)分别设置为空和0。然后双击Form1表单并输入源代码。

(2)程序源代码

选项显式

DefDbl A-Z

私有子窗体_Load()

定时器1。间隔= 100

宽度= 4000

高度= 4000

左侧=屏幕。宽度\ 2 - 2000

Top =(屏幕。高度-高度)\ 2

末端接头

私有子窗体_Resize()

尺寸I，角度

布尔型静态标志

如果flag = False，则

标志=真

对于i = 0到14

画出表盘的12个点和15条时、分、秒线。

如果i > 0，则加载行1(i)

第一行(一)。可见=真

第一行(一)。BorderWidth = 5

1㈠。' bordercolor = RGB (0，128，0)'设置线条的粗细和颜色。

接下来我

如果…就会结束

对于i = 0到14

小数位数(-1，1)-(1，-1)

角度= i * 2 * Atn(1) / 3