📄 frmmain.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form FrmMain
BorderStyle = 1 'Fixed Single
Caption = "Mn42安全性能综合测试仪联机软件"
ClientHeight = 7200
ClientLeft = 45
ClientTop = 330
ClientWidth = 9600
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 480
ScaleMode = 3 'Pixel
ScaleWidth = 640
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Left = 0
Top = 5040
End
Begin VB.Timer Timer2
Interval = 1000
Left = 0
Top = 5400
End
Begin VB.Frame Frame_Search
Caption = "过往查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6135
Left = 9000
TabIndex = 68
Top = 4080
Visible = 0 'False
Width = 8895
Begin VB.TextBox Text1
BackColor = &H8000000F&
Height = 2295
Left = 6960
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 101
Text = "frmMain.frx":0442
Top = 3600
Width = 1800
End
Begin VB.CommandButton cmdSearch
Caption = "按编号查找"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 91
Top = 1800
Width = 1335
End
Begin VB.CommandButton Cmd_FilePrint
Caption = "打印"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 90
Top = 1200
Width = 1335
End
Begin VB.CommandButton Cmd_SaveAs
Caption = "另存为"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 93
Top = 3000
Width = 1335
End
Begin VB.CommandButton Cmd_SaveChange
Caption = "保存修改"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 92
Top = 2400
Width = 1335
End
Begin RichTextLib.RichTextBox RTB
Height = 4935
Left = 240
TabIndex = 89
Top = 960
Width = 6615
_ExtentX = 11668
_ExtentY = 8705
_Version = 393217
Enabled = -1 'True
ScrollBars = 3
TextRTF = $"frmMain.frx":0521
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton Cmd_OpenBrowser
Caption = "打开"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7200
TabIndex = 88
Top = 380
Width = 1335
End
Begin VB.TextBox Txt_OpenFile
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2160
TabIndex = 87
Top = 405
Width = 4935
End
Begin VB.Label Label31
Caption = "所查看文件的文件名："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 86
Top = 480
Width = 2175
End
End
Begin MSComDlg.CommonDialog CommonDialog
Left = 0
Top = 5760
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.TextBox txt_time
BackColor = &H8000000F&
Height = 315
Left = 7440
Locked = -1 'True
TabIndex = 55
Text = "txt_time"
Top = 6900
Width = 2175
End
Begin VB.TextBox txt_msg1
BackColor = &H8000000F&
Height = 315
Left = 0
Locked = -1 'True
TabIndex = 54
Text = "青岛仪迪仪器有限公司 Tel:0532-7616578 E-mail:chinayidi@public.qd.sd.cn"
Top = 6900
Width = 7455
End
Begin MSCommLib.MSComm MSComm
Left = 0
Top = 6240
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InBufferSize = 256
OutBufferSize = 256
InputMode = 1
End
Begin VB.CommandButton Cmd_About
Caption = "退出"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7680
TabIndex = 15
ToolTipText = "退出本系统"
Top = 0
Width = 1455
End
Begin VB.CommandButton Cmd_Help
Caption = "帮助"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6240
TabIndex = 14
ToolTipText = "帮助信息"
Top = 0
Width = 1455
End
Begin VB.CommandButton Cmd_Search
Caption = "查询"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4800
TabIndex = 13
ToolTipText = "查看以往的测试结果"
Top = 0
Width = 1455
End
Begin VB.CommandButton Cmd_Test
Caption = "实时测试"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3360
TabIndex = 12
ToolTipText = "启动测试及相关功能"
Top = 0
Width = 1455
End
Begin VB.CommandButton Cmd_Set
Caption = "参数设置"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
TabIndex = 11
ToolTipText = "测试参数设置"
Top = 0
Width = 1455
End
Begin VB.CommandButton Cmd_System
Caption = "系统设置"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 10
ToolTipText = "系统设置信息"
Top = 0
Width = 1455
End
Begin VB.Frame Frame_Test
Caption = "实时测试"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6135
Left = 9120
TabIndex = 53
Top = 2280
Visible = 0 'False
Width = 8535
Begin VB.CommandButton Cmd_AutoSave
Caption = "自动保存"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -