📄 vcr.frm
字号:
VERSION 5.00
Begin VB.Form frmVCR
BackColor = &H00000000&
Caption = "VBTV"
ClientHeight = 8040
ClientLeft = 1170
ClientTop = 1470
ClientWidth = 7470
FillStyle = 0 'Solid
Icon = "vcr.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8040
ScaleWidth = 7470
Begin VB.CommandButton cmdSet
Caption = "设置"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4560
MaskColor = &H00000000&
TabIndex = 13
ToolTipText = "设置录像机定时器"
Top = 6000
Width = 855
End
Begin VB.Timer tmr2
Enabled = 0 'False
Left = 6240
Top = 3240
End
Begin VB.Timer tmr1
Interval = 65535
Left = 6240
Top = 2640
End
Begin VB.CommandButton cmdDown
Caption = "向下"
Height = 325
Left = 6120
MaskColor = &H00000000&
TabIndex = 11
ToolTipText = "Channel selector"
Top = 1440
Width = 735
End
Begin VB.CommandButton cmdUp
Caption = "向上"
Height = 325
Left = 6120
MaskColor = &H00000000&
TabIndex = 10
ToolTipText = "Channel selector"
Top = 1080
Width = 735
End
Begin VB.CommandButton cmdExit
Cancel = -1 'True
Caption = "弹出/关闭"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5760
MaskColor = &H00000000&
TabIndex = 7
ToolTipText = "退出 VBTV"
Top = 6000
Width = 1095
End
Begin VB.CommandButton cmdPause
Caption = "ll"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1005
MaskColor = &H00000000&
TabIndex = 6
ToolTipText = "暂停"
Top = 6000
Width = 615
End
Begin VB.CommandButton cmdRec
Caption = "录象"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1650
MaskColor = &H00000000&
TabIndex = 5
ToolTipText = "录象"
Top = 6000
Width = 615
End
Begin VB.CommandButton cmdForward
Caption = ">>"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2955
MaskColor = &H00000000&
TabIndex = 4
ToolTipText = "快进"
Top = 6000
Width = 615
End
Begin VB.CommandButton cmdRewind
Caption = "<<"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2310
MaskColor = &H00000000&
TabIndex = 3
ToolTipText = "倒带"
Top = 6000
Width = 615
End
Begin VB.CommandButton cmdStop
Caption = "停止"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3600
MaskColor = &H00000000&
TabIndex = 2
ToolTipText = "停止"
Top = 6000
Width = 615
End
Begin VB.PictureBox picTV
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
FillStyle = 2 'Horizontal Line
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 4215
Left = 360
ScaleHeight = 4215
ScaleWidth = 5535
TabIndex = 1
Top = 240
Width = 5535
End
Begin VB.CommandButton cmdPlay
Caption = ">"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 360
MaskColor = &H00000000&
TabIndex = 0
ToolTipText = "播放"
Top = 6000
Width = 615
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 0
X2 = 7080
Y1 = 4660
Y2 = 4660
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 0
X2 = 7080
Y1 = 4700
Y2 = 4700
End
Begin VB.Shape shpPlay
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 105
Left = 615
Shape = 3 'Circle
Top = 5835
Visible = 0 'False
Width = 105
End
Begin VB.Shape shpForward
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 105
Left = 3210
Shape = 3 'Circle
Top = 5835
Visible = 0 'False
Width = 105
End
Begin VB.Shape shpRewind
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 105
Left = 2565
Shape = 3 'Circle
Top = 5835
Visible = 0 'False
Width = 105
End
Begin VB.Shape shpRec
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 105
Left = 1905
Shape = 3 'Circle
Top = 5835
Visible = 0 'False
Width = 105
End
Begin VB.Shape shpPause
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 105
Left = 1260
Shape = 3 'Circle
Top = 5835
Visible = 0 'False
Width = 105
End
Begin VB.Image img2
Height = 1155
Left = 1680
Picture = "vcr.frx":0442
Top = 6720
Visible = 0 'False
Width = 1155
End
Begin VB.Image img1
Height = 1155
Left = 240
Picture = "vcr.frx":10CC
Top = 6720
Visible = 0 'False
Width = 1155
End
Begin VB.Label lblTime
Alignment = 2 'Center
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -