form1.frm

时钟转动比较好

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3165
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3165
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   1800
      Top             =   2160
   End
   Begin VB.Line Line1 
      Index           =   0
      X1              =   1800
      X2              =   3000
      Y1              =   1320
      Y2              =   1800
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
DefDbl A-Z
Private Sub Form_Load()
    
    Timer1.Interval = 100
    Width = 4000
    Height = 4000
    Left = Screen.Width \ 2 - 2000
    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
    '画出表盘12个点和时、分、秒共15个LINE
        If i > 0 Then Load Line1(i)
        Line1(i).Visible = True
        Line1(i).BorderWidth = 5
        Line1(i).BorderColor = RGB(0, 128, 0) '设置LINE的粗细和颜色
        Next i
      End If
    For i = 0 To 14
        Scale (-1, 1)-(1, -1)
        Angle = i * 2 * Atn(1) / 3
        Line1(i).X1 = 0.9 * Cos(Angle)
        Line1(i).Y1 = 0.9 * Sin(Angle)
        Line1(i).X2 = Cos(Angle)
        Line1(i).Y2 = Sin(Angle)
        Next i
End Sub

Private Sub Timer1_Timer()
Const HH = 0
    Const MH = 13
    Const SH = 14
    Dim Angle
    Static LS
    If Second(Now) = LS Then Exit Sub
    LS = Second(Now)
    Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60)) '设置时针
    Line1(HH).X1 = 0
    Line1(HH).Y1 = 0
    Line1(HH).X2 = 0.3 * Cos(Angle)
    Line1(HH).Y2 = 0.3 * Sin(Angle)
    Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60)) '设置分针
    Line1(MH).X1 = 0
    Line1(MH).Y1 = 0
    Line1(MH).X2 = 0.7 * Cos(Angle)
    Line1(MH).Y2 = 0.7 * Sin(Angle)
    Angle = 0.5236 * (75 - Second(Now))
    '设置秒针
    Line1(SH).X1 = 0
    Line1(SH).Y1 = 0
    Line1(SH).X2 = 0.8 * Cos(Angle)
    Line1(SH).Y2 = 0.8 * Sin(Angle)
    Form1.Caption = Str(Now())
    '窗口显示精确的日期和数字化的时间
End Sub