📄 main.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 420
Index = 1
Left = 1440
TabIndex = 14
Top = 480
Width = 1335
End
Begin VB.Label clTong
Alignment = 2 'Center
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 420
Index = 2
Left = 2760
TabIndex = 13
Top = 480
Width = 1335
End
Begin VB.Label clTong
Alignment = 2 'Center
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 420
Index = 3
Left = 4080
TabIndex = 12
Top = 480
Width = 1335
End
Begin VB.Label clTong
Alignment = 2 'Center
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "000"
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 420
Index = 4
Left = 5400
TabIndex = 11
Top = 480
Width = 1335
End
Begin VB.Label clTong
Alignment = 2 'Center
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "0"
BeginProperty Font
Name = "黑体"
Size = 15.6
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 420
Index = 6
Left = 9360
TabIndex = 10
Top = 480
Width = 1845
End
Begin VB.Label clTong
Alignment = 2 'Center
BackColor = &H00808080&
BorderStyle = 1 'Fixed Single
Caption = "0000"
BeginProperty Font
Name = "黑体"
Size = 15.6
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 420
Index = 5
Left = 7560
TabIndex = 9
Top = 480
Width = 1845
End
Begin VB.Label clHe
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = " 合 格"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 120
TabIndex = 8
Top = 120
Width = 1335
End
Begin VB.Label clOne
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = "一级处理"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 1440
TabIndex = 7
Top = 120
Width = 1335
End
Begin VB.Label clTwo
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = "二级处理"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 2760
TabIndex = 6
Top = 120
Width = 1335
End
Begin VB.Label clFan
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = " 返 修"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 4080
TabIndex = 5
Top = 120
Width = 1335
End
Begin VB.Label clFei
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = " 废 品"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 5400
TabIndex = 4
Top = 120
Width = 1335
End
Begin VB.Label clZong
Alignment = 2 'Center
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = "总 数"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 7560
TabIndex = 3
Top = 120
Width = 1845
End
Begin VB.Label clChao
Alignment = 2 'Center
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
Caption = "本班超差率%"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 420
Left = 9360
TabIndex = 2
Top = 120
Width = 1845
End
End
Begin VB.Frame Frame3
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1060
Left = 9000
TabIndex = 20
Top = 390
Width = 2895
Begin VB.Label clJian
Alignment = 2 'Center
BackColor = &H80000004&
Caption = "一级处理品"
BeginProperty Font
Name = "宋体"
Size = 26.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 570
Left = 30
TabIndex = 21
Top = 380
Width = 2780
End
End
Begin VB.CommandButton CmdRun
Caption = "运 行"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 7680
TabIndex = 16
Top = 0
Width = 1215
End
Begin VB.Label LabTime
Alignment = 2 'Center
BackColor = &H00FFFF80&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 9000
TabIndex = 37
Top = 10
Width = 2895
End
Begin VB.Label LabCQU
Alignment = 2 'Center
Caption = "成都陵川机械厂、重庆大学联合研制"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 3120
TabIndex = 19
Top = 8160
Width = 6492
End
Begin VB.Label Label31
Caption = "班 统 计"
BeginProperty Font
Name = "宋体"
Size = 14.4
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 240
TabIndex = 0
Top = 7280
Width = 375
End
Begin VB.Menu clfile
Caption = "参数设置(&A)"
Index = 1
End
Begin VB.Menu clfile
Caption = "系统标定(&B)"
Index = 2
Visible = 0 'False
End
Begin VB.Menu clfile
Caption = "系统调试(&U)"
Index = 3
Begin VB.Menu clfile1
Caption = "光栅测头调试(&R)"
Index = 1
End
Begin VB.Menu clfile1
Caption = "I/O测试(&I)"
Index = 2
End
End
Begin VB.Menu clfile
Caption = "系统运行(&R)"
Index = 4
End
Begin VB.Menu clfile
Caption = "数据管理(&D)"
Index = 5
End
Begin VB.Menu clfile
Caption = "退出系统(&E)"
Index = 6
End
Begin VB.Menu cHelp
Caption = "帮助(&H)"
End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim NoBiaoDing As Boolean '是否测试标准件：标准件NoBiaoDing=False
Dim SystemRun As Boolean '系统是否启动：启动SystemRun=True
Private Sub cHelp_Click()
SendKeys "{F1}"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -