VB编写漂亮的时钟(共2页).doc

精选优质文档-倾情为你奉上首先打开vb6.0,新建一个工程,在窗体中放一个imagebox控件然后在其中放一个timer控件再就是一个直线控件数组注意要把imagebox中的stretch属性改为true,直线控件数组是14个,要注意下面是我和程序代码,有一些注解的希望能对大家有帮助Private Sub Form_Load() 设置窗体和计时器参数Timer1.Interval = 100 设置计时器事件间隔是1/10秒Width = 4000Height = 4000Left = Screen.Width 2 - 2000Top = (Screen.Height - Height) 2End SubPrivate Sub Form_Resize() 启动时和改变窗体时设置刻度和指针 Dim i, angle For i = 0 To 13 Line1(i).Visible = True Line1(i).B