📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Begin VB.Form frmMain
AutoRedraw = -1 'True
Caption = "cumt"
ClientHeight = 9570
ClientLeft = 450
ClientTop = 4005
ClientWidth = 15240
DrawMode = 1 'Blackness
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
KeyPreview = -1 'True
LinkTopic = "frmCommWizard"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9570
ScaleWidth = 15240
Begin VB.Frame Frame22
Caption = "记录时间"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4815
Index = 2
Left = -1320
TabIndex = 82
Top = 7080
Visible = 0 'False
Width = 6375
Begin VB.Line Line27
BorderWidth = 6
X1 = 3120
X2 = 2880
Y1 = 1200
Y2 = 1800
End
Begin VB.Line Line26
BorderWidth = 4
X1 = 2280
X2 = 2640
Y1 = 1680
Y2 = 2520
End
Begin VB.Line Line25
X1 = 1440
X2 = 2760
Y1 = 1920
Y2 = 2640
End
Begin VB.Shape Shape21
Height = 3735
Left = 120
Shape = 3 'Circle
Top = 360
Width = 4215
End
End
Begin VB.TextBox Text1
Height = 855
Left = 4440
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 77
Top = 7080
Width = 5250
End
Begin VB.Frame Frame5
Caption = "车体及摆臂位置控制模型窗口"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3135
Left = 8160
TabIndex = 59
Top = 5880
Width = 5655
Begin VB.CommandButton Command8
Caption = "︽"
Enabled = 0 'False
Height = 255
Left = 80
TabIndex = 70
Top = 240
Width = 375
End
Begin VB.CommandButton Command9
Caption = "︾"
Enabled = 0 'False
Height = 255
Left = 80
TabIndex = 69
Top = 720
Width = 375
End
Begin VB.CommandButton Command10
Caption = "︽"
Enabled = 0 'False
Height = 255
Left = 5160
TabIndex = 68
Top = 240
Width = 375
End
Begin VB.CommandButton Command11
Caption = "︾"
Enabled = 0 'False
Height = 255
Left = 5160
TabIndex = 67
Top = 720
Width = 375
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 255
Left = 80
TabIndex = 66
Text = "0"
Top = 480
Width = 375
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Height = 255
Left = 5160
TabIndex = 65
Text = "0"
Top = 480
Width = 375
End
Begin VB.CommandButton Command19
Caption = "定位"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 80
TabIndex = 64
Top = 2520
Width = 375
End
Begin VB.CommandButton Command20
Caption = "定位"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5160
TabIndex = 63
Top = 2520
Width = 375
End
Begin VB.OptionButton Option3
Caption = "Option3"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2985
TabIndex = 62
Top = 240
Width = 855
End
Begin VB.OptionButton Option4
Caption = "Option4"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1440
TabIndex = 61
Top = 240
Value = -1 'True
Width = 855
End
Begin VB.CheckBox Check6
Caption = "Check6"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 60
Top = 240
Width = 655
End
Begin VB.Shape Shape8
Height = 495
Left = 3720
Shape = 3 'Circle
Top = 1560
Width = 495
End
Begin VB.Shape Shape9
Height = 495
Left = 1320
Shape = 3 'Circle
Top = 1560
Width = 495
End
Begin VB.Line Line7
X1 = 1560
X2 = 3960
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line8
X1 = 1560
X2 = 3960
Y1 = 1560
Y2 = 1560
End
Begin VB.Shape Shape10
Height = 255
Left = 240
Shape = 3 'Circle
Top = 1080
Width = 255
End
Begin VB.Line Line9
X1 = 360
X2 = 1080
Y1 = 1320
Y2 = 1920
End
Begin VB.Line Line10
X1 = 480
X2 = 1320
Y1 = 1200
Y2 = 1560
End
Begin VB.Line Line11
X1 = 840
X2 = 1080
Y1 = 720
Y2 = 960
End
Begin VB.Line Line12
X1 = 960
X2 = 1080
Y1 = 600
Y2 = 840
End
Begin VB.Line Line13
X1 = 1200
X2 = 1320
Y1 = 600
Y2 = 840
End
Begin VB.Line Line14
X1 = 1440
X2 = 1560
Y1 = 480
Y2 = 720
End
Begin VB.Line Line15
X1 = 1560
X2 = 1680
Y1 = 480
Y2 = 720
End
Begin VB.Line Line16
X1 = 1680
X2 = 1800
Y1 = 480
Y2 = 840
End
Begin VB.Line Line17
X1 = 1920
X2 = 2040
Y1 = 480
Y2 = 840
End
Begin VB.Line Line18
X1 = 2160
X2 = 2280
Y1 = 480
Y2 = 720
End
Begin VB.Line Line19
X1 = 2280
X2 = 2520
Y1 = 480
Y2 = 720
End
Begin VB.Shape Shape11
Height = 135
Left = 1680
Top = 1500
Width = 135
End
Begin VB.Shape Shape12
Height = 135
Left = 2400
Top = 1500
Width = 135
End
Begin VB.Shape Shape13
Height = 135
Left = 3120
Top = 1500
Width = 135
End
Begin VB.Shape Shape14
Height = 135
Left = 1680
Top = 1980
Width = 135
End
Begin VB.Shape Shape15
Height = 135
Left = 2400
Top = 1980
Width = 135
End
Begin VB.Shape Shape16
Height = 135
Left = 3120
Top = 1980
Width = 135
End
Begin VB.Line Line20
X1 = 2880
X2 = 3600
Y1 = 1200
Y2 = 840
End
Begin VB.Line Line21
X1 = 3120
X2 = 3840
Y1 = 1440
Y2 = 840
End
Begin VB.Shape Shape18
Height = 105
Left = 1200
Shape = 3 'Circle
Top = 1800
Width = 105
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -