动画时钟.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4920
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6240
   LinkTopic       =   "Form1"
   ScaleHeight     =   4920
   ScaleWidth      =   6240
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   2520
      Top             =   2220
   End
   Begin VB.Line Line1 
      Index           =   0
      X1              =   2640
      X2              =   2640
      Y1              =   420
      Y2              =   540
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 As Long
    Dim Angle As Single
    Static Flag As Boolean
    
    If Flag = False Then
        Flag = True
        For i = 0 To 14
            If i > 0 Then Load Line1(i)
            Line1(i).Visible = True
            Line1(i).BorderWidth = 5
            Line1(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
        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
    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 * Cos(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)
End Sub