frmfunctest.frm
来自「电梯检测系统是对电梯性能进行检测的系统。是一个用来学习的程序。」· FRM 代码 · 共 1,940 行 · 第 1/5 页
FRM
1,940 行
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form FrmFuncTest
BackColor = &H00A3766D&
Caption = "Elevator Function Testing "
ClientHeight = 8460
ClientLeft = 165
ClientTop = 450
ClientWidth = 11880
ClipControls = 0 'False
ControlBox = 0 'False
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmFuncTest.frx":0000
MDIChild = -1 'True
PaletteMode = 1 'UseZOrder
ScaleHeight = 564
ScaleMode = 3 'Pixel
ScaleWidth = 792
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList2
Left = 6720
Top = 3840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmFuncTest.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmFuncTest.frx":0415
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmFuncTest.frx":0663
Key = ""
EndProperty
EndProperty
End
Begin VB.Frame Frame4
BackColor = &H00A3766D&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 6
Left = 5280
TabIndex = 82
Top = 7080
Width = 615
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00A3766D&
Caption = "2KSKB"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 5
Left = 0
TabIndex = 83
Top = 285
Width = 585
End
Begin VB.Image Image8
Height = 300
Index = 6
Left = 120
Picture = "FrmFuncTest.frx":0A7E
Top = 0
Width = 300
End
End
Begin VB.Frame Frame4
BackColor = &H00A3766D&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 5
Left = 2580
TabIndex = 77
Top = 7080
Width = 615
Begin VB.Image Image8
Height = 300
Index = 5
Left = 120
Picture = "FrmFuncTest.frx":0B90
Top = 0
Width = 300
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00A3766D&
Caption = "KSKB"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 6
Left = 60
TabIndex = 78
Top = 285
Width = 480
End
End
Begin VB.PictureBox PicCov
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
ClipControls = 0 'False
DrawStyle = 5 'Transparent
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
HasDC = 0 'False
Height = 540
Left = 12240
ScaleHeight = 36
ScaleMode = 3 'Pixel
ScaleWidth = 21
TabIndex = 76
Top = 840
Visible = 0 'False
Width = 315
End
Begin VB.Frame Frame2
BackColor = &H00A3766D&
BorderStyle = 0 'None
Height = 720
Index = 0
Left = 3615
TabIndex = 63
Top = 4590
Width = 2580
Begin VB.Image ButtonImg
Appearance = 0 'Flat
Height = 420
Index = 4
Left = 780
MouseIcon = "FrmFuncTest.frx":0CA2
MousePointer = 99 'Custom
Picture = "FrmFuncTest.frx":0DF4
Top = 45
Width = 420
End
Begin VB.Image ButtonImg
Appearance = 0 'Flat
Height = 450
Index = 1
Left = 1965
Picture = "FrmFuncTest.frx":1469
Top = 45
Width = 450
End
Begin VB.Image ButtonImg
Appearance = 0 'Flat
Height = 420
Index = 11
Left = 1410
MouseIcon = "FrmFuncTest.frx":1A7B
MousePointer = 99 'Custom
Picture = "FrmFuncTest.frx":1BCD
Top = 45
Width = 420
End
Begin VB.Image ButtonImg
Appearance = 0 'Flat
Height = 420
Index = 0
Left = 135
MouseIcon = "FrmFuncTest.frx":218A
MousePointer = 99 'Custom
Picture = "FrmFuncTest.frx":22DC
Top = 45
Width = 420
End
Begin VB.Label TitleLabel
AutoSize = -1 'True
BackColor = &H80000007&
BackStyle = 0 'Transparent
Caption = "JRH"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000000&
Height = 225
Index = 3
Left = 2040
TabIndex = 67
Top = 480
Width = 345
End
Begin VB.Label TitleLabel
AutoSize = -1 'True
BackColor = &H80000007&
BackStyle = 0 'Transparent
Caption = "DRH-U"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000000&
Height = 225
Index = 2
Left = 120
TabIndex = 66
Top = 480
Width = 540
End
Begin VB.Label TitleLabel
AutoSize = -1 'True
BackColor = &H80000007&
BackStyle = 0 'Transparent
Caption = "JHM"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000000&
Height = 225
Index = 17
Left = 1425
TabIndex = 65
Top = 480
Width = 375
End
Begin VB.Label TitleLabel
AutoSize = -1 'True
BackColor = &H80000007&
BackStyle = 0 'Transparent
Caption = "DRH-D"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000000&
Height = 225
Index = 1
Left = 720
TabIndex = 64
Top = 480
Width = 540
End
End
Begin VB.PictureBox picCanvas
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000001&
ClipControls = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 5490
Left = 10005
ScaleHeight = 364
ScaleMode = 3 'Pixel
ScaleWidth = 44
TabIndex = 59
Top = 1965
Width = 690
Begin VB.PictureBox picR
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000008&
BorderStyle = 0 'None
FillStyle = 0 'Solid
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 0
Picture = "FrmFuncTest.frx":28C0
ScaleHeight = 36
ScaleMode = 3 'Pixel
ScaleWidth = 23
TabIndex = 61
Top = 4920
Visible = 0 'False
Width = 345
End
Begin VB.PictureBox picL
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000006&
BorderStyle = 0 'None
DrawStyle = 5 'Transparent
FillStyle = 0 'Solid
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
HasDC = 0 'False
Height = 540
Left = 360
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?