?? form1.frm
字號(hào):
VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form Form1
Caption = "計(jì)時(shí)器"
ClientHeight = 3885
ClientLeft = 60
ClientTop = 345
ClientWidth = 7080
BeginProperty Font
Name = "宋體"
Size = 72
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
LinkTopic = "Form1"
Picture = "Form1.frx":0000
ScaleHeight = 3885
ScaleWidth = 7080
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 1
Left = 4560
Top = 1320
End
Begin VB.CommandButton Command2
Caption = "暫停"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1080
TabIndex = 7
Top = 840
Width = 855
End
Begin MCI.MMControl MMC1
Height = 330
Left = 1800
TabIndex = 6
Top = 1440
Visible = 0 'False
Width = 810
_ExtentX = 1429
_ExtentY = 582
_Version = 393216
PlayEnabled = -1 'True
PrevVisible = 0 'False
NextVisible = 0 'False
PauseVisible = 0 'False
BackVisible = 0 'False
StepVisible = 0 'False
RecordVisible = 0 'False
EjectVisible = 0 'False
DeviceType = ""
FileName = ""
End
Begin VB.CommandButton Command1
Caption = "開(kāi)始"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 0
Top = 840
Width = 855
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 4800
Top = 240
End
Begin MCI.MMControl MMC2
Height = 330
Left = 480
TabIndex = 8
Top = 1440
Visible = 0 'False
Width = 810
_ExtentX = 1429
_ExtentY = 582
_Version = 393216
PlayEnabled = -1 'True
PrevVisible = 0 'False
NextVisible = 0 'False
PauseVisible = 0 'False
BackVisible = 0 'False
StepVisible = 0 'False
RecordVisible = 0 'False
EjectVisible = 0 'False
DeviceType = ""
FileName = ""
End
Begin VB.Label Ls1
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋體"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 615
Left = 1560
TabIndex = 5
Top = 120
Width = 375
End
Begin VB.Label Ls2
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋體"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 615
Left = 1200
TabIndex = 4
Top = 120
Width = 375
End
Begin VB.Label L1
BackStyle = 0 'Transparent
Caption = ":"
BeginProperty Font
Name = "宋體"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 615
Left = 840
TabIndex = 3
Top = 120
Width = 375
End
Begin VB.Label Lm1
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋體"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 615
Left = 480
TabIndex = 2
Top = 120
Width = 375
End
Begin VB.Label Lm2
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋體"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 615
Left = 120
TabIndex = 1
Top = 120
Width = 375
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const INTERVALUE = 1000
Dim m1 As Integer
Dim m2 As Integer
Dim s1 As Integer
Dim s2 As Integer
Dim str As String
Dim flag1 As Boolean
Dim flag2 As Boolean
Dim bb As Boolean
Dim bb1 As Boolean
Dim bb2 As Boolean
Dim bb3 As Boolean
Private Sub Init()
Lm2.Caption = 0: Lm1.Caption = 7: Ls2.Caption = 0: Ls1.Caption = 0
Lm2.ForeColor = &HC000&: L1.ForeColor = &HC000&: Lm1.ForeColor = &HC000&: Ls2.ForeColor = &HC000&: Ls1.ForeColor = &HC000&
m2 = 0: m1 = 7: s1 = 0: s2 = 0
Timer1.Enabled = False
Timer2.Enabled = False
bb = True: bb1 = True: bb2 = False: bb3 = True
Command2.Enabled = False
End Sub
Private Sub Command1_Click()
If bb = True Then
Command1.Caption = "重置"
Command2.Caption = "暫停"
Command1.Enabled = False
Timer1.Enabled = True
Timer1.Interval = INTERVALUE
bb = False
If bb2 = False Then
Command2.Enabled = True
End If
Else
Command1.Caption = "開(kāi)始"
Command2.Enabled = False
Call Init
End If
End Sub
Private Sub Command2_Click()
If bb1 = True Then
Timer1.Enabled = False
Timer2.Enabled = False
bb1 = False
Command1.Enabled = True
Command2.Caption = "繼續(xù)"
ElseIf bb3 = True Then
Timer1.Enabled = True
bb1 = True
Command1.Enabled = False
Command2.Caption = "暫停"
ElseIf bb3 = False Then
Timer2.Enabled = True
bb1 = True
Command1.Enabled = False
Command2.Caption = "暫停"
End If
End Sub
Private Sub Form_Load()
Dim lngTemp As Long
lngTemp = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 300, 100, 150, 110, FLAGS)
Call Init
End Sub
Private Sub Timer1_Timer()
flag1 = True
flag2 = True
If s1 = 0 And s2 <> 0 Then
s1 = 9
s2 = s2 - 1
flag1 = False
End If
If s1 <> 0 And flag1 Then
s1 = s1 - 1
flag2 = False
End If
If m2 <> 0 And m1 = 0 And s2 = 0 And s1 = 0 Then
m2 = m2 - 1
m1 = 9
s2 = 5
s1 = 9
End If
If m2 <> 0 And m1 <> 0 And s2 = 0 And s1 = 0 Then
m1 = m1 - 1
s2 = 5
s1 = 9
End If
If m2 = 0 And m1 <> 0 And m1 <> 1 And s2 = 0 And s1 = 0 And flag2 Then
m1 = m1 - 1
s2 = 5
s1 = 9
End If
If m1 = 1 And m2 = 0 And s2 = 0 And s1 = 0 Then
Lm2.ForeColor = &HC0C0&: Lm1.ForeColor = &HC0C0&: L1.ForeColor = &HC0C0&: Ls2.ForeColor = &HC0C0&: Ls1.ForeColor = &HC0C0&
MMC1.Command = "close"
MMC1.FileName = App.Path & "\short.wav"
MMC1.Command = "open"
MMC1.Command = "play"
m1 = m1 - 1
s2 = 5
s1 = 9
End If
Lm2.Caption = m2
Lm1.Caption = m1
Ls2.Caption = s2
Ls1.Caption = s1
If m1 = 0 And m2 = 0 And s2 = 0 And s1 = 0 Then
Lm2.ForeColor = &HFF&: Lm1.ForeColor = &HFF&: L1.ForeColor = &HFF&: Ls2.ForeColor = &HFF&: Ls1.ForeColor = &HFF&
MMC2.Command = "close"
MMC2.FileName = App.Path & "\long.wav"
MMC2.Command = "open"
MMC2.Command = "play"
Timer1.Enabled = False
Timer2.Enabled = True
Timer2.Interval = INTERVALUE
End If
End Sub
Private Sub SetFormTop(frm As Form, blnTop As Boolean)
'窗體放在最前面
Dim lngTemp As Long
If blnTop Then
lngTemp = SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Else
lngTemp = SetWindowPos(frm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
End If
End Sub
Private Sub Timer2_Timer()
bb3 = False
flag1 = True
If s1 <> 9 And flag1 Then
s1 = s1 + 1
flag1 = False
End If
If s1 = 9 And s2 < 5 And flag1 Then
s2 = s2 + 1
s1 = 0
End If
If s1 = 9 And s2 = 5 And m1 <> 9 And flag1 Then
s1 = 0
s2 = 0
m1 = m1 + 1
End If
If s1 = 9 And s2 = 5 And m1 = 9 And flag1 Then
s1 = 0
s2 = 0
m1 = 0
m2 = m2 + 1
End If
Lm2.Caption = m2
Lm1.Caption = m1
Ls2.Caption = s2
Ls1.Caption = s1
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -