📄 form2.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form系统主窗口
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "水晶打磨控制系统"
ClientHeight = 6810
ClientLeft = 45
ClientTop = 450
ClientWidth = 10470
ForeColor = &H00FF0000&
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Form2.frx":0000
ScaleHeight = 6810
ScaleWidth = 10470
StartUpPosition = 2 '屏幕中心
Begin MSCommLib.MSComm MSComm1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InBufferSize = 2048
RThreshold = 3
RTSEnable = -1 'True
InputMode = 1
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 375
Left = 4440
TabIndex = 27
Top = 6000
Width = 1215
End
Begin VB.Frame Fam数据统计
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "数据统计"
ForeColor = &H80000008&
Height = 3855
Left = 600
TabIndex = 18
Top = 1800
Width = 4375
Begin MSComctlLib.ProgressBar ProBar进度
Height = 300
Left = 480
TabIndex = 26
Top = 3000
Width = 3375
_ExtentX = 5953
_ExtentY = 529
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin VB.Label Lbl百分比
AutoSize = -1 'True
BackColor = &H8000000E&
Height = 180
Left = 1920
TabIndex = 28
Top = 2760
Width = 90
End
Begin VB.Label Lbl时间显示
BackColor = &H8000000E&
Caption = "00小时"
Height = 255
Left = 1800
TabIndex = 25
Top = 1800
Width = 1335
End
Begin VB.Label Lbl总数显示
BackColor = &H8000000E&
Caption = "00"
Height = 255
Left = 1800
TabIndex = 24
Top = 1200
Width = 855
End
Begin VB.Label Lbl生产进度
BackColor = &H8000000E&
Caption = "生产进度"
Height = 255
Left = 240
TabIndex = 23
Top = 2520
Width = 855
End
Begin VB.Label Lbl运转时间
BackColor = &H8000000E&
Caption = "运转时间"
Height = 255
Left = 240
TabIndex = 22
Top = 1800
Width = 855
End
Begin VB.Label Lbl生产总数
BackColor = &H8000000E&
Caption = "生产总数"
Height = 255
Left = 240
TabIndex = 21
Top = 1200
Width = 855
End
Begin VB.Label Lbl状态显示
AutoSize = -1 'True
BackColor = &H8000000E&
ForeColor = &H0000C000&
Height = 180
Left = 1440
TabIndex = 20
Top = 600
Width = 90
End
Begin VB.Label Lbl生产状态
BackColor = &H8000000E&
Caption = "生产状态"
Height = 255
Left = 240
TabIndex = 19
Top = 600
Width = 855
End
End
Begin VB.Frame Fam生产控制
Appearance = 0 'Flat
BackColor = &H8000000E&
Caption = "生产控制"
ForeColor = &H80000008&
Height = 3855
Left = 5400
TabIndex = 1
Top = 1800
Width = 4575
Begin VB.TextBox Txt夹杆长度
ForeColor = &H80000002&
Height = 270
Left = 1320
TabIndex = 17
Top = 2960
Width = 1095
End
Begin VB.TextBox Txt工件半径
ForeColor = &H80000002&
Height = 270
Left = 1320
TabIndex = 16
Top = 2480
Width = 1095
End
Begin VB.TextBox Txt面数
ForeColor = &H80000002&
Height = 270
Left = 1320
TabIndex = 0
Top = 560
Width = 1095
End
Begin VB.TextBox Txt等待时间
ForeColor = &H80000002&
Height = 270
Left = 1320
TabIndex = 4
Top = 2000
Width = 1095
End
Begin VB.TextBox Txt打磨时间
ForeColor = &H80000002&
Height = 270
Left = 1320
TabIndex = 3
Top = 1520
Width = 1095
End
Begin VB.TextBox Txt带数
ForeColor = &H80000002&
Height = 270
Left = 1320
TabIndex = 2
Top = 1040
Width = 1095
End
Begin VB.Label Lbl夹杆长度
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "夹杆长度"
ForeColor = &H00C0C000&
Height = 180
Left = 480
TabIndex = 15
Top = 3000
Width = 720
End
Begin VB.Label Lbl半径
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "工件半径"
ForeColor = &H00C0C000&
Height = 180
Left = 480
TabIndex = 14
Top = 2520
Width = 720
End
Begin VB.Label Lbl停止
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 3120
TabIndex = 13
Top = 2880
Width = 1215
End
Begin VB.Label Lbl暂停
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 3120
TabIndex = 12
Top = 2280
Width = 1215
End
Begin VB.Label Lbl开始生产
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 3120
TabIndex = 11
Top = 1680
Width = 1215
End
Begin VB.Label Lbl手动
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 3120
TabIndex = 10
Top = 1080
Width = 1215
End
Begin VB.Label Lbl传参
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 375
Left = 3120
TabIndex = 9
Top = 480
Width = 1215
End
Begin VB.Image ImageStaUp
Height = 375
Left = 3120
Picture = "Form2.frx":EA518
Top = 1680
Width = 1170
End
Begin VB.Image ImageFreeUp
Height = 375
Left = 3120
Picture = "Form2.frx":EBC68
Top = 1080
Width = 1170
End
Begin VB.Image ImageTrUp
Height = 375
Left = 3120
Picture = "Form2.frx":ED3B8
Top = 480
Width = 1170
End
Begin VB.Image ImageTrDown
Height = 375
Left = 3120
Picture = "Form2.frx":EEB08
Top = 480
Width = 1170
End
Begin VB.Image ImageStaDown
Height = 375
Left = 3120
Picture = "Form2.frx":F0258
Top = 1680
Width = 1170
End
Begin VB.Image ImageFreeDown
Height = 375
Left = 3120
Picture = "Form2.frx":F19A8
Top = 1080
Width = 1170
End
Begin VB.Image ImagePaUp
Height = 375
Left = 3120
Picture = "Form2.frx":F30F8
Top = 2280
Width = 1170
End
Begin VB.Image ImageStopUp
Height = 375
Left = 3120
Picture = "Form2.frx":F4848
Top = 2880
Width = 1170
End
Begin VB.Label Lbl面数
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "面 数"
ForeColor = &H00C0C000&
Height = 180
Left = 480
TabIndex = 8
Top = 600
Width = 720
End
Begin VB.Label Lbl带数
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "带 数"
ForeColor = &H00C0C000&
Height = 180
Left = 480
TabIndex = 7
Top = 1080
Width = 720
End
Begin VB.Label Lbl打磨时间
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "打磨时间"
ForeColor = &H00C0C000&
Height = 180
Left = 480
TabIndex = 6
Top = 1560
Width = 720
End
Begin VB.Label Lbl等待时间
AutoSize = -1 'True
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "等待时间"
ForeColor = &H00C0C000&
Height = 180
Left = 480
TabIndex = 5
Top = 2040
Width = 720
End
Begin VB.Image ImagePaDown
Height = 375
Left = 3120
Picture = "Form2.frx":F5F98
Top = 2280
Width = 1170
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -