Question

您好，我在百度知道里看到了您做的一个关于vb小时钟的截图，能不能把那个源代码发给我854206025@qq。com

十分感谢哈

Answer 1

核心代码：工程发你邮箱了！
Private Sub Timer1_Timer()
Me.Caption = Time '标题栏显示现在时间
' Second Hand '画秒针
'计算秒针的角度,每一秒是 360度除以60秒=6度, 所以要乘上6
sdeg = Second(Time) * 6
'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 秒针跑了N度就乘上N
srad = (3.14 / 180) * sdeg
'900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2.x2在什么位置
Line2.X2 = Line2.X1 + (900 * Sin(srad))
'900是秒针的长度,以圆心(line2的x1,y1)为准,计算出在这个弧度时line2.y2在什么位置
Line2.Y2 = Line2.Y1 - (900 * Cos(srad))

' Minute Hand '画分针
'计算分针的角度,每一分是360度除以60分=6度, 所以要乘上6,秒针动分针也会动,所以还要加上秒针移动所产生的分针移动.
'秒针转了1圈360度,分针才会前进1分钟=6度,所以比例是 6/360等于 1/60
Mdeg = Minute(Time) * 6 + (sdeg * 1 / 60)
'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 分针跑了N度就乘上N
mrad = (3.14 / 180) * Mdeg 'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 分针跑了N度就乘上N
'750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1.x2在什么位置
Line1.X2 = (750 * Sin(mrad)) + Line1.X1
'750是分针的长度,以圆心(line1的x1,y1)为准,计算出在这个弧度时line1.y2在什么位置
Line1.Y2 = Line1.Y1 - (750 * Cos(mrad))

' Hour Hand '画时针
'计算时针的角度,每一小时时针跑30度,分针动时针也会动,所以还要加上分针移动所产生的时针移动.
'分针转了1圈360度,时针才会前进1刻划=30度,所以比例是 30/360等于 1/12
hdeg = Hour(Time) * 30 + (Mdeg / 12)
'vb是以弧度为单位来计算,所以角度换算弧度是 3.14/180, 时针跑了N度就乘上N
hrad = (3.14 / 180) * hdeg
'500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3.x2在什么位置
Line3.X2 = (500 * Sin(hrad)) + Line3.X1
'500是时针的长度,以圆心(line3的x1,y1)为准,计算出在这个弧度时line3.y2在什么位置
Line3.Y2 = Line3.Y1 - (500 * Cos(hrad))
End Sub

Answer 2

接收把