📄 ftimertest.frm
字号:
VERSION 5.00
Begin VB.Form frmTimerTest
BorderStyle = 3 'Fixed Dialog
Caption = "ccrpTmr.dll Testbed"
ClientHeight = 6030
ClientLeft = 45
ClientTop = 330
ClientWidth = 4740
Icon = "FTimerTest.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6030
ScaleWidth = 4740
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdFrequency
Caption = "Set"
Height = 315
Left = 3840
TabIndex = 32
ToolTipText = "Sets the frequency used internally by ccrpTimers."
Top = 4200
Width = 735
End
Begin VB.TextBox txtFrequency
Height = 315
Left = 3060
TabIndex = 31
Text = "txtFrequency"
Top = 4200
Width = 615
End
Begin VB.Frame Frame4
Caption = "Countdown Instance:"
Height = 795
Left = 120
TabIndex = 14
Top = 2400
Width = 4455
Begin VB.CheckBox chkEnabled
Caption = "Enabled"
Height = 255
Index = 3
Left = 3420
TabIndex = 18
ToolTipText = "Initiates a countdown by toggling Enabled property"
Top = 360
Width = 915
End
Begin VB.TextBox txtCountdown1
Height = 315
Left = 1260
TabIndex = 16
Text = "txtCountdown1"
ToolTipText = "Number of milliseconds countdown will last"
Top = 300
Width = 735
End
Begin VB.CommandButton cmdCountdown1
Caption = "Set Duration"
Height = 315
Left = 2100
TabIndex = 17
ToolTipText = "Sets number of milliseconds countdown should last"
Top = 300
Width = 1155
End
Begin VB.Label lblCountdown1
BorderStyle = 1 'Fixed Single
Caption = "Seconds"
Height = 315
Left = 120
TabIndex = 15
Top = 300
Width = 1035
End
End
Begin VB.Frame Frame3
Caption = "Timer ""OneShot"" Instance:"
Height = 795
Left = 120
TabIndex = 9
Top = 1500
Width = 4455
Begin VB.CommandButton Command1
Caption = "Set Interval"
Height = 315
Left = 2100
TabIndex = 12
ToolTipText = "Sets number of milliseconds before the OneShot event"
Top = 300
Width = 1155
End
Begin VB.CheckBox chkEnabled
Caption = "Enabled"
Height = 255
Index = 2
Left = 3420
TabIndex = 13
ToolTipText = "Initiates a OneShot timer by toggling Enabled property"
Top = 360
Width = 915
End
Begin VB.TextBox txtTimer3
Height = 315
Left = 1260
TabIndex = 11
Text = "txtTimer3"
ToolTipText = "Number of milliseconds Interval property of Timer3 is set to"
Top = 300
Width = 735
End
Begin VB.Label lblTimer3
BorderStyle = 1 'Fixed Single
Caption = "lblTimer3"
Height = 315
Left = 120
TabIndex = 10
Top = 300
Width = 1035
End
End
Begin VB.CommandButton cmdExit
Cancel = -1 'True
Caption = "Exit"
Height = 315
Left = 3060
TabIndex = 34
Top = 5460
Width = 1515
End
Begin VB.Frame Frame2
Caption = "StopWatch Instance:"
Height = 795
Left = 120
TabIndex = 19
Top = 3300
Width = 4455
Begin VB.CommandButton cmdStopWatch1
Caption = "Reset"
Height = 315
Index = 1
Left = 3300
TabIndex = 22
ToolTipText = "Resets StopWatch1 elapsed time value to zero"
Top = 300
Width = 975
End
Begin VB.CommandButton cmdStopWatch1
Caption = "Elapsed"
Height = 315
Index = 0
Left = 2100
TabIndex = 21
ToolTipText = "Displays Elapsed time since StopWatch1 was reset"
Top = 300
Width = 975
End
Begin VB.Label lblStopWatch
BorderStyle = 1 'Fixed Single
Caption = " 0 ms"
Height = 315
Left = 120
TabIndex = 20
Top = 300
Width = 1035
End
End
Begin VB.Frame Frame1
Caption = "Two Timer ""Periodic"" Instances:"
Height = 1275
Left = 120
TabIndex = 0
Top = 120
Width = 4455
Begin VB.CommandButton cmdTimer2
Caption = "Set Interval"
Height = 315
Left = 2100
TabIndex = 7
ToolTipText = "Sets number of milliseconds between Timer events"
Top = 780
Width = 1155
End
Begin VB.CommandButton cmdTimer1
Caption = "Set Interval"
Height = 315
Left = 2100
TabIndex = 3
ToolTipText = "Sets number of milliseconds between Timer events"
Top = 300
Width = 1155
End
Begin VB.TextBox txtTimer2
Height = 315
Left = 1260
TabIndex = 6
Text = "txtTimer2"
ToolTipText = "Number of milliseconds between Timer events"
Top = 780
Width = 735
End
Begin VB.TextBox txtTimer1
Height = 315
Left = 1260
TabIndex = 2
Text = "txtTimer1"
ToolTipText = "Number of milliseconds between Timer events"
Top = 300
Width = 735
End
Begin VB.CheckBox chkEnabled
Caption = "Enabled"
Height = 255
Index = 0
Left = 3420
TabIndex = 4
ToolTipText = "Toggles Enabled property of ccrpTimer class"
Top = 360
Value = 1 'Checked
Width = 915
End
Begin VB.CheckBox chkEnabled
Caption = "Enabled"
Height = 255
Index = 1
Left = 3420
TabIndex = 8
ToolTipText = "Toggles Enabled property of ccrpTimer class"
Top = 840
Value = 1 'Checked
Width = 915
End
Begin VB.Label lblTimer1
BorderStyle = 1 'Fixed Single
Caption = "Seconds"
Height = 315
Left = 120
TabIndex = 1
Top = 300
Width = 1035
End
Begin VB.Label lblTimer2
BorderStyle = 1 'Fixed Single
Caption = "Quarters"
Height = 315
Left = 120
TabIndex = 5
Top = 780
Width = 1035
End
End
Begin VB.CommandButton cmdAbout
Caption = "About..."
Default = -1 'True
Height = 315
Left = 3060
TabIndex = 33
Top = 5040
Width = 1515
End
Begin VB.Label lblFreqCap
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "Library Frequency::"
Height = 195
Left = 345
TabIndex = 23
Top = 4260
Width = 1350
End
Begin VB.Label lblFreq
BorderStyle = 1 'Fixed Single
Caption = "lblFreq"
Height = 315
Left = 1800
TabIndex = 24
Top = 4200
Width = 975
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -