用vb设计一个可走动的机械式时钟，要求有时针、分针、秒针。

来源：百度知道 编辑：UC知道 时间：2024/05/06 09:33:01
每句代码必须要有解释，跪求高手帮忙，急用！！！！
做得好的，我的分全送！！！

呵呵,本转一个VB吧主CBM666写的时钟代码..

'添加 Line1 Line2 Line3 Timer1

Dim xx1%, yy1% '宣告变量xx1,yy1为整型(给圆心用的)
Private Sub Form_Load()
Me.AutoRedraw = True '重画为真
'窗体置中
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - meiheight) \ 2
'计算圆心的x轴 xx1
xx1 = Me.Width \ 2
'计算圆心的y轴 yy1
yy1 = (Me.Height - 405) \ 2
'将下面3根针的起点x1,y1全定位在圆心上
Line1.X1 = xx1: Line1.Y1 = yy1
Line2.X1 = xx1: Line2.Y1 = yy1
Line3.X1 = xx1: Line3.Y1 = yy1
'画钟的外匡让线条粗一点
Me.DrawWidth = 5
'画一个圆
Me.Circle (xx1, yy1), 950
Line2.BorderWidth = 1 '秒针的粗度
Line2.BorderColor = QBColor(12) '秒针的颜色

Line1.BorderWidth = 2 '分针的粗度
Line1.BorderColor = QBColor(14) '分针的颜色

Line3.BorderWidth = 3 '时针的粗度
Line3.BorderColor = QBColor(10