📄 form1.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"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{B0475000-7740-11D1-BDC3-0020AF9F8E6E}#6.1#0"; "TTF16.OCX"
Begin VB.Form frmmain
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "成品钻头检测系统Slan1.1---"
ClientHeight = 9075
ClientLeft = 150
ClientTop = 435
ClientWidth = 13440
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9075
ScaleWidth = 13440
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin TTF160Ctl.F1Book F1Book1
Height = 5535
Left = 0
TabIndex = 24
Top = 3000
Width = 13335
_ExtentX = 23521
_ExtentY = 9763
_0 = $"Form1.frx":030A
_1 = $"Form1.frx":0713
_2 = $"Form1.frx":0B1C
_3 = $"Form1.frx":0F25
_4 = $"Form1.frx":132E
_count = 5
_ver = 2
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 300
Left = -120
Top = 2640
End
Begin VB.Frame Frame2
Height = 2175
Left = 0
TabIndex = 0
Top = 840
Width = 13335
Begin VB.Frame Frame6
Caption = "斜度（直径）："
Height = 1935
Left = 9240
TabIndex = 4
Top = 120
Width = 3975
Begin MSCommLib.MSComm com1
Left = 2880
Top = 240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
BaudRate = 115200
ParitySetting = 2
End
Begin VB.Label Label5
Caption = "斜度直径二："
Height = 255
Left = 120
TabIndex = 27
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "斜度直径一："
Height = 255
Left = 120
TabIndex = 26
Top = 600
Width = 1095
End
Begin VB.Label zhuidu2
BackColor = &H80000008&
Caption = "00.0000"
BeginProperty Font
Name = "@宋体"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 375
Left = 1440
TabIndex = 14
Top = 1080
Width = 1335
End
Begin VB.Label zhuidu1
BackColor = &H80000008&
BorderStyle = 1 'Fixed Single
Caption = "00.0000"
BeginProperty Font
Name = "@宋体"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 375
Left = 1440
TabIndex = 13
Top = 480
Width = 1335
End
End
Begin VB.Frame Frame5
Height = 1935
Left = 3240
TabIndex = 3
Top = 120
Width = 5895
Begin VB.PictureBox graph
AutoRedraw = -1 'True
Height = 1740
Left = 2880
Picture = "Form1.frx":153D
ScaleHeight = 1680
ScaleWidth = 2880
TabIndex = 16
Top = 120
Width = 2940
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 1695
Left = 120
TabIndex = 9
Top = 120
Width = 3615
Begin VB.Label lng
Alignment = 2 'Center
BackColor = &H80000008&
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 1920
TabIndex = 17
Top = 1320
Width = 735
End
Begin VB.Label pic1OK
BorderStyle = 1 'Fixed Single
Caption = "OK"
BeginProperty Font
Name = "MS Sans Serif"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 1095
Left = 120
TabIndex = 15
Top = 120
Width = 1575
End
Begin VB.Label pic1ng
BorderStyle = 1 'Fixed Single
Caption = "NG"
BeginProperty Font
Name = "MS Sans Serif"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1095
Left = 120
TabIndex = 12
Top = 120
Width = 1575
End
Begin VB.Label lok
Alignment = 2 'Center
BackColor = &H00004000&
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 375
Left = 1080
TabIndex = 11
Top = 1320
Width = 735
End
Begin VB.Label Label4
Caption = "总OK/NG数："
Height = 255
Left = 0
TabIndex = 10
Top = 1440
Width = 1095
End
End
Begin MSComDlg.CommonDialog Dialog1
Left = 120
Top = 1320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Begin VB.Frame Frame4
Caption = "参数"
Height = 1935
Left = 120
TabIndex = 1
Top = 120
Width = 3015
Begin VB.TextBox Text1
Height = 285
Left = 840
TabIndex = 25
Top = 1200
Width = 1935
End
Begin VB.TextBox ytoll
Height = 285
Left = 2280
TabIndex = 21
Top = 1560
Width = 495
End
Begin VB.TextBox xtoll
Height = 285
Left = 840
TabIndex = 20
Top = 1560
Width = 495
End
Begin VB.CommandButton Command4
Caption = "请选择产品"
Height = 375
Left = 1200
TabIndex = 18
Top = 240
Width = 1695
End
Begin VB.TextBox dname
BackColor = &H80000003&
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF80FF&
Height = 405
Left = 1200
TabIndex = 7
Top = 720
Width = 1695
End
Begin VB.Label leixing
Alignment = 1 'Right Justify
Caption = "leixing"
Height = 195
Left = 255
TabIndex = 28
Top = 840
Width = 765
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "批号："
Height = 195
Left = 240
TabIndex = 23
Top = 1200
Width = 540
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "Y个数："
Height = 195
Left = 1560
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -