frmmain.frm
来自「电梯检测系统是对电梯性能进行检测的系统。是一个用来学习的程序。」· FRM 代码 · 共 296 行
FRM
296 行
VERSION 5.00
Begin VB.Form FrmMain
Caption = "Elevator Testing System"
ClientHeight = 8310
ClientLeft = 615
ClientTop = -15
ClientWidth = 11880
ClipControls = 0 'False
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmMain.frx":0000
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 554
ScaleMode = 3 'Pixel
ScaleWidth = 792
ShowInTaskbar = 0 'False
WindowState = 2 'Maximized
Begin VB.PictureBox picHidden
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000001&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5535
Left = 13080
ScaleHeight = 369
ScaleMode = 3 'Pixel
ScaleWidth = 92
TabIndex = 0
Top = 1920
Visible = 0 'False
Width = 1380
End
Begin VB.PictureBox FuncCmd
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 615
Index = 4
Left = 1320
ScaleHeight = 555
ScaleWidth = 2475
TabIndex = 7
Top = 4920
Width = 2535
End
Begin VB.PictureBox FuncCmd
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 615
Index = 3
Left = 7320
ScaleHeight = 555
ScaleWidth = 2475
TabIndex = 5
Top = 4920
Width = 2535
End
Begin VB.PictureBox FuncCmd
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 615
Index = 2
Left = 4320
ScaleHeight = 555
ScaleWidth = 2475
TabIndex = 4
Top = 4920
Width = 2535
End
Begin VB.PictureBox FuncCmd
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007&
Height = 615
Index = 1
Left = 7320
ScaleHeight = 555
ScaleWidth = 2475
TabIndex = 3
Top = 3480
Width = 2535
End
Begin VB.PictureBox FuncCmd
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000007&
Height = 615
Index = 0
Left = 4320
ScaleHeight = 555
ScaleWidth = 2475
TabIndex = 2
Top = 3480
Width = 2535
End
Begin VB.Line Line3
BorderColor = &H8000000C&
X1 = -8
X2 = 704
Y1 = 1
Y2 = 1
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "System Status"
ForeColor = &H80000009&
Height = 375
Left = 480
TabIndex = 6
Top = 1920
Width = 1815
End
Begin VB.Line Line2
BorderColor = &H00E0E0E0&
BorderWidth = 3
Index = 5
X1 = 799
X2 = 799
Y1 = 0
Y2 = 600
End
Begin VB.Line Line2
BorderColor = &H80000000&
Index = 4
X1 = 798
X2 = 798
Y1 = 3
Y2 = 603
End
Begin VB.Label TitleLabel
AutoSize = -1 'True
BackColor = &H80000007&
BackStyle = 0 'Transparent
Caption = "The software is by Suzhou-Yidi Software Inc ,2000-10-01"
ForeColor = &H00C0C0C0&
Height = 240
Index = 5
Left = 4440
TabIndex = 1
Top = 8520
Width = 5415
End
Begin VB.Menu mnuTestFunc
Caption = "Main Func"
Begin VB.Menu FuncTestMenu
Caption = "Func Test(&F)"
End
Begin VB.Menu LineTestMenu
Caption = "Line Test(&L)"
End
Begin VB.Menu mnuFg6
Caption = "-"
End
Begin VB.Menu mnuTestSet
Caption = "Test Set(&T)"
End
Begin VB.Menu mnuTestProj
Caption = "Test Project"
End
Begin VB.Menu mnuFg10
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "Exit System"
End
End
Begin VB.Menu mnuReport
Caption = "Report View(&R)"
End
Begin VB.Menu mnuHelp
Caption = "Help(&H)"
Begin VB.Menu mnuOnlineHelp
Caption = "Online Help"
End
Begin VB.Menu mnuAbout
Caption = "About Me(&A)..."
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Set Me.Picture = LoadPicture(App.Path & "\images\backpic.gif")
End Sub
Private Sub FuncCmd_Click(Index As Integer)
On Error GoTo ClickErr
Select Case Index
Case 4
FrmReport.Show
Case 0
FrmFuncTest.Show
Case 1
Case 2
Case 3
mnuExit_Click
End Select
Exit Sub
ClickErr:
MsgBox Err.Description, vbExclamation
End Sub
Private Sub FuncCmd_MouseEnter(Index As Integer, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
FuncCmd(Index).ForeColor = &HFF00&
End Sub
Private Sub FuncCmd_MouseExit(Index As Integer, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
FuncCmd(Index).ForeColor = &H80000006
End Sub
Private Sub mnuExit_Click()
Unload Me
End
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?