vb小时钟程序的注释

来源：百度知道 编辑：UC知道 时间：2024/05/22 14:29:58
Private Sub Form_Load()
Width = 4000
Height = 4000
Left = Screen.Width \ 2 - 4100
Top = (Screen.Height - Height) \ 2
End Sub

Private Sub Form_Resize()
Dim i, Angle
Static Flag As Boolean
If Flag = False Then
Flag = True
For i = 0 To 14
If i > 0 Then
Load linClock(i)
End If
linClock(i).Visible = True
linClock(i).BorderWidth = 5
linClock(i).BorderColor = RGB(0, 128, 0)
Next i
End If
For i = 0 To 14
Scale (-1, -1)-(1, 1)
Angle = i * 2 * Atn(1) / 3
linClock(i).X1 = 0.9 * Cos(Angle)
linClock(i).Y1 = 0.9 * Sin(Angle)
linClock(i).X2 = Cos(Angle)
linClock(i).Y2 = Sin(Angle)
Next i
End Sub

Private Sub tmrClock_Timer()
Const HourHand = 0

Private Sub Form_Load() '设置窗体大小
Width = 4000'设置窗体宽4000偍
Height = 4000'设置窗体高4000偍
Left = Screen.Width \ 2 - 4100'设置窗体左边框位置屏幕宽度一半-4100偍
Top = (Screen.Height - Height) \ 2'设置窗体顶端位置屏幕高度一半

End Sub

Private Sub Form_Resize() '时钟自动匹配窗体大小
Dim i, Angle
Static Flag As Boolean'定义标志位
If Flag = False Then
Flag = True
For i = 0 To 14
If i > 0 Then
Load linClock(i)'载入第i号直线
End If
linClock(i).Visible = True'第i号直线可见
linClock(i).BorderWidth = 5'第i号直线宽度
linClock(i).BorderColor = RGB(0, 128, 0)'第i号直线颜色
Next i
End If
For i = 0 To 14
Scale (-1, -1)-(1, 1)' 设定自定义座标系统
Angle = i * 2 * Atn(1) / 3' 计算第i号直线的方向，刻度位置
linClock(i).X1 = 0.9 * Cos(Angle)
linClock(i