📄 yunkong.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmYunKong
BorderStyle = 1 'Fixed Single
Caption = "云台镜头控制系统"
ClientHeight = 6015
ClientLeft = 45
ClientTop = 435
ClientWidth = 9045
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 6015
ScaleWidth = 9045
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command1
Caption = "镜头控制"
Height = 615
Left = 5760
TabIndex = 7
Top = 2640
Width = 1575
End
Begin VB.CommandButton cmdOK
Caption = "退出系统"
Default = -1 'True
Height = 615
Left = 5760
TabIndex = 6
Top = 3600
Width = 1575
End
Begin VB.CommandButton cmdCode
Caption = "设置各控制码"
Height = 615
Left = 5760
TabIndex = 5
Top = 1680
Width = 1575
End
Begin VB.CommandButton cmdConfig
Caption = "设置控制端口"
Height = 615
Left = 5760
TabIndex = 4
Top = 720
Width = 1575
End
Begin VB.Frame fraYuntai
Caption = "请选择云台镜头组合"
Height = 4695
Left = 600
TabIndex = 2
Top = 240
Width = 7695
End
Begin VB.Frame FraControl
Caption = "云台控制"
Height = 2535
Left = 2760
TabIndex = 8
Top = 720
Width = 5415
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":0000
Height = 690
Index = 0
Left = 960
Picture = "yunKong.frx":0502
Style = 1 'Graphical
TabIndex = 28
Top = 960
Width = 720
End
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":0A04
Height = 690
Index = 1
Left = 960
Picture = "yunKong.frx":0F06
Style = 1 'Graphical
TabIndex = 27
Top = 2400
Width = 720
End
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":1408
Height = 690
Index = 2
Left = 120
Picture = "yunKong.frx":190A
Style = 1 'Graphical
TabIndex = 26
Top = 1680
Width = 720
End
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":1E0C
Height = 690
Index = 3
Left = 1800
Picture = "yunKong.frx":230E
Style = 1 'Graphical
TabIndex = 25
Top = 1680
Width = 720
End
Begin VB.CommandButton cmdMir
Caption = "+"
Height = 255
Index = 0
Left = 3120
TabIndex = 24
Top = 840
Width = 615
End
Begin VB.CommandButton cmdMir
Caption = "-"
Height = 255
Index = 1
Left = 3120
TabIndex = 23
Top = 1680
Width = 615
End
Begin VB.CommandButton cmdMir
Caption = "+"
Height = 255
Index = 2
Left = 3960
TabIndex = 22
Top = 840
Width = 615
End
Begin VB.CommandButton cmdMir
Caption = "-"
Height = 255
Index = 3
Left = 3960
TabIndex = 21
Top = 1680
Width = 615
End
Begin VB.CommandButton cmdMir
Caption = "+"
Height = 255
Index = 4
Left = 4800
TabIndex = 20
Top = 840
Width = 615
End
Begin VB.CommandButton cmdMir
Caption = "-"
Height = 255
Index = 5
Left = 4800
TabIndex = 19
Top = 1680
Width = 615
End
Begin VB.PictureBox picChoose
BackColor = &H8000000A&
BorderStyle = 0 'None
Height = 735
Index = 35
Left = 953
ScaleHeight = 735
ScaleWidth = 735
TabIndex = 17
Top = 1680
Width = 735
Begin VB.Label labChoose
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "自动"
Height = 180
Index = 35
Left = 120
TabIndex = 18
Top = 240
Width = 360
End
End
Begin VB.PictureBox picChoose
BackColor = &H8000000B&
BorderStyle = 0 'None
Height = 615
Index = 33
Left = 3120
ScaleHeight = 615
ScaleWidth = 1095
TabIndex = 15
Top = 2280
Width = 1095
Begin VB.Label labChoose
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "射灯"
Height = 180
Index = 33
Left = 120
TabIndex = 16
Top = 240
Width = 360
End
End
Begin VB.PictureBox picChoose
BackColor = &H8000000A&
BorderStyle = 0 'None
Height = 615
Index = 34
Left = 4320
ScaleHeight = 615
ScaleWidth = 1095
TabIndex = 13
Top = 2280
Width = 1095
Begin VB.Label labChoose
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "雨刷"
Height = 180
Index = 34
Left = 240
TabIndex = 14
Top = 0
Width = 360
End
End
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":2810
Height = 450
Index = 4
Left = 360
Picture = "yunKong.frx":2A92
Style = 1 'Graphical
TabIndex = 12
Top = 1200
Width = 480
End
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":2D14
Height = 450
Index = 5
Left = 1800
Picture = "yunKong.frx":2F96
Style = 1 'Graphical
TabIndex = 11
Top = 1200
Width = 480
End
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":3218
Height = 450
Index = 6
Left = 360
Picture = "yunKong.frx":349A
Style = 1 'Graphical
TabIndex = 10
Top = 2400
Width = 480
End
Begin VB.CommandButton cmdAct
DownPicture = "yunKong.frx":371C
Height = 450
Index = 7
Left = 1800
Picture = "yunKong.frx":399E
Style = 1 'Graphical
TabIndex = 9
Top = 2400
Width = 480
End
Begin VB.Label labFocus
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "变焦"
Height = 180
Left = 3240
TabIndex = 31
Top = 1290
Width = 360
End
Begin VB.Label labTimes
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "变倍"
Height = 180
Left = 4080
TabIndex = 30
Top = 1290
Width = 375
End
Begin VB.Label labCircle
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "光圈"
Height = 180
Left = 4920
TabIndex = 29
Top = 1290
Width = 375
End
End
Begin MSCommLib.MSComm MSComm1
Left = 8400
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 285
Left = 0
TabIndex = 3
Top = 5730
Width = 9045
_ExtentX = 15954
_ExtentY = 503
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.PictureBox picChoose
BackColor = &H8000000A&
BorderStyle = 0 'None
DrawStyle = 6 'Inside Solid
Height = 350
IMEMode = 1 'ON
Index = 0
Left = 1440
ScaleHeight = 345
ScaleMode = 0 'User
ScaleWidth = 345
TabIndex = 0
Top = 1920
Width = 350
Begin VB.Label labChoose
AutoSize = -1 'True
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "0"
Height = 195
Index = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -