?? watch.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5655
ClientLeft = 60
ClientTop = 345
ClientWidth = 7875
LinkTopic = "Form1"
ScaleHeight = 5655
ScaleWidth = 7875
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer1
Interval = 100
Left = 1200
Top = 600
End
Begin VB.Line Line1
Index = 0
X1 = 1080
X2 = 2400
Y1 = 1560
Y2 = 1920
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
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防止第二次生成控件
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 '設置Line的粗細和顏色
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 'Pi=4 * Atn(1) ,Angle=Pi/6 * i
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 '代表時分秒的Line數組的下標
Const MH = 13
Const SH = 14
Dim Angle
Static LS
If Second(Now) = LS Then Exit Sub '判斷是否過了1秒
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -