📄 test_dy.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form TEST_DY
BorderStyle = 1 'Fixed Single
Caption = "单元测试"
ClientHeight = 10875
ClientLeft = 1065
ClientTop = 210
ClientWidth = 13500
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 10875
ScaleWidth = 13500
Begin VB.TextBox Text7
Height = 4785
Left = 8160
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 80
Top = 6000
Width = 5325
End
Begin VB.Timer Timer3
Interval = 1000
Left = 11160
Top = 2400
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 1000
Left = 12600
Top = 1200
End
Begin VB.CommandButton Command6
Caption = "波特率确认"
Height = 405
Left = 9720
TabIndex = 56
Top = 5520
Width = 1515
End
Begin VB.ComboBox Combo4
Height = 360
ItemData = "test_dy.frx":0000
Left = 5880
List = "test_dy.frx":0010
TabIndex = 55
Text = "Combo4"
Top = 5550
Width = 3765
End
Begin VB.ListBox List1
Height = 1500
Left = 1200
TabIndex = 16
Top = 480
Width = 12375
End
Begin VB.ComboBox Combo3
Height = 360
ItemData = "test_dy.frx":0044
Left = 4380
List = "test_dy.frx":005A
Style = 2 'Dropdown List
TabIndex = 15
Top = 5220
Width = 1575
End
Begin VB.ComboBox Combo2
Height = 360
ItemData = "test_dy.frx":008B
Left = 2790
List = "test_dy.frx":00A1
TabIndex = 14
Text = "Combo2"
Top = 5220
Width = 1515
End
Begin MSComCtl2.UpDown UpDown2
Height = 375
Left = 6600
TabIndex = 11
Top = 4770
Width = 270
_ExtentX = 423
_ExtentY = 661
_Version = 393216
Value = 100
BuddyControl = "Label3"
BuddyDispid = 196677
OrigLeft = 7050
OrigTop = 4230
OrigRight = 7320
OrigBottom = 4635
Increment = 100
Max = 10000
Min = 100
SyncBuddy = -1 'True
BuddyProperty = 65537
Enabled = -1 'True
End
Begin VB.ComboBox Combo1
Height = 360
ItemData = "test_dy.frx":00BD
Left = 2790
List = "test_dy.frx":00DF
Style = 2 'Dropdown List
TabIndex = 9
Top = 5640
Width = 1515
End
Begin VB.CheckBox Check1
Caption = "累加显示"
Height = 315
Left = 3120
TabIndex = 8
Top = 60
Width = 1485
End
Begin MSComCtl2.UpDown UpDown1
Height = 375
Left = 3780
TabIndex = 7
Top = 4800
Width = 270
_ExtentX = 423
_ExtentY = 661
_Version = 393216
Value = 1
BuddyControl = "Text3"
BuddyDispid = 196619
OrigLeft = 10050
OrigTop = 3480
OrigRight = 10320
OrigBottom = 3855
Max = 255
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox Text3
Height = 345
Left = 2790
TabIndex = 1
Text = "1"
Top = 4800
Width = 975
End
Begin VB.TextBox Text2
Height = 2385
Left = 1200
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 2040
Width = 9645
End
Begin MSCommLib.MSComm MSComm1
Left = 0
Top = 2850
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InputMode = 1
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 30
Top = 3810
End
Begin MSComctlLib.ImageList ImageList1
Left = 60
Top = 4380
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "test_dy.frx":0120
Key = "save"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "test_dy.frx":0574
Key = "DY_DY"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "test_dy.frx":0890
Key = "FSSX"
Object.Tag = "FSSX"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "test_dy.frx":1A1C
Key = "dydy"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 13
Top = 0
Width = 13500
_ExtentX = 23813
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 2
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Save"
Object.ToolTipText = "保存"
ImageKey = "save"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "DYdy"
Object.ToolTipText = "单元类型定义"
ImageKey = "dydy"
EndProperty
EndProperty
End
Begin TabDlg.SSTab SSTab1
Height = 4875
Left = 30
TabIndex = 18
Top = 5970
Width = 8055
_ExtentX = 14208
_ExtentY = 8599
_Version = 393216
Tabs = 6
Tab = 4
TabsPerRow = 6
TabHeight = 520
TabCaption(0) = "定值"
TabPicture(0) = "test_dy.frx":1D38
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Command2"
Tab(0).Control(1)= "Text4"
Tab(0).Control(2)= "Text5"
Tab(0).Control(3)= "UpDown3"
Tab(0).Control(4)= "MSFlexGrid2"
Tab(0).Control(5)= "Label4"
Tab(0).Control(6)= "Label7"
Tab(0).Control(7)= "Label8"
Tab(0).Control(8)= "Label9"
Tab(0).Control(9)= "Label10(0)"
Tab(0).Control(10)= "Label5(0)"
Tab(0).Control(11)= "Label6"
Tab(0).Control(12)= "Label11"
Tab(0).Control(13)= "Label5(1)"
Tab(0).Control(14)= "Label12(0)"
Tab(0).Control(15)= "Label12(1)"
Tab(0).Control(16)= "Label12(2)"
Tab(0).ControlCount= 17
TabCaption(1) = "事故顺序记录"
TabPicture(1) = "test_dy.frx":1D54
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "MSFlexGrid1(1)"
Tab(1).ControlCount= 1
TabCaption(2) = "测量值"
TabPicture(2) = "test_dy.frx":1D70
Tab(2).ControlEnabled= 0 'False
Tab(2).ControlCount= 0
TabCaption(3) = "电度"
TabPicture(3) = "test_dy.frx":1D8C
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Command3"
Tab(3).Control(1)= "Text1"
Tab(3).Control(2)= "MSFlexGrid1(3)"
Tab(3).ControlCount= 3
TabCaption(4) = "ModBus命令"
TabPicture(4) = "test_dy.frx":1DA8
Tab(4).ControlEnabled= -1 'True
Tab(4).Control(0)= "Label15(0)"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).Control(1)= "Label14"
Tab(4).Control(1).Enabled= 0 'False
Tab(4).Control(2)= "Label13"
Tab(4).Control(2).Enabled= 0 'False
Tab(4).Control(3)= "Label1(4)"
Tab(4).Control(3).Enabled= 0 'False
Tab(4).Control(4)= "Label17"
Tab(4).Control(4).Enabled= 0 'False
Tab(4).Control(5)= "Label18"
Tab(4).Control(5).Enabled= 0 'False
Tab(4).Control(6)= "Label15(1)"
Tab(4).Control(6).Enabled= 0 'False
Tab(4).Control(7)= "Text10"
Tab(4).Control(7).Enabled= 0 'False
Tab(4).Control(8)= "Text9"
Tab(4).Control(8).Enabled= 0 'False
Tab(4).Control(9)= "Text8"
Tab(4).Control(9).Enabled= 0 'False
Tab(4).Control(10)= "Command10"
Tab(4).Control(10).Enabled= 0 'False
Tab(4).Control(11)= "Command9"
Tab(4).Control(11).Enabled= 0 'False
Tab(4).Control(12)= "Command1"
Tab(4).Control(12).Enabled= 0 'False
Tab(4).Control(13)= "Command14"
Tab(4).Control(13).Enabled= 0 'False
Tab(4).Control(14)= "Command15"
Tab(4).Control(14).Enabled= 0 'False
Tab(4).Control(15)= "Command4"
Tab(4).Control(15).Enabled= 0 'False
Tab(4).Control(16)= "Command5"
Tab(4).Control(16).Enabled= 0 'False
Tab(4).Control(17)= "Text6"
Tab(4).Control(17).Enabled= 0 'False
Tab(4).Control(18)= "Command7"
Tab(4).Control(18).Enabled= 0 'False
Tab(4).Control(19)= "Command11"
Tab(4).Control(19).Enabled= 0 'False
Tab(4).Control(20)= "Command12"
Tab(4).Control(20).Enabled= 0 'False
Tab(4).Control(21)= "Command16"
Tab(4).Control(21).Enabled= 0 'False
Tab(4).Control(22)= "Command17"
Tab(4).Control(22).Enabled= 0 'False
Tab(4).Control(23)= "Command18"
Tab(4).Control(23).Enabled= 0 'False
Tab(4).Control(24)= "Command19"
Tab(4).Control(24).Enabled= 0 'False
Tab(4).Control(25)= "Command20"
Tab(4).Control(25).Enabled= 0 'False
Tab(4).Control(26)= "UpDown4"
Tab(4).Control(26).Enabled= 0 'False
Tab(4).Control(27)= "Command8"
Tab(4).Control(27).Enabled= 0 'False
Tab(4).Control(28)= "Text11"
Tab(4).Control(28).Enabled= 0 'False
Tab(4).Control(29)= "Command13"
Tab(4).Control(29).Enabled= 0 'False
Tab(4).ControlCount= 30
TabCaption(5) = "天一"
TabPicture(5) = "test_dy.frx":1DC4
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Command30"
Tab(5).Control(1)= "Command29"
Tab(5).Control(2)= "Command28"
Tab(5).Control(3)= "Command25"
Tab(5).Control(4)= "Command27"
Tab(5).Control(5)= "Frame1(0)"
Tab(5).Control(6)= "Command22"
Tab(5).Control(7)= "Command21"
Tab(5).Control(8)= "MSFlexGrid3"
Tab(5).ControlCount= 9
Begin VB.CommandButton Command13
Caption = "CRC校验"
Height = 345
Left = 3480
TabIndex = 85
Top = 4020
Width = 1785
End
Begin VB.TextBox Text11
Height = 360
Left = 5040
TabIndex = 83
Text = "A000"
Top = 480
Width = 1035
End
Begin VB.CommandButton Command8
Caption = "Command8"
Height = 375
Left = 5880
TabIndex = 81
Top = 3360
Width = 1815
End
Begin MSComCtl2.UpDown UpDown4
Height = 360
Left = 3991
TabIndex = 78
Top = 960
Width = 255
_ExtentX = 423
_ExtentY = 635
_Version = 393216
BuddyControl = "Text9"
BuddyDispid = 196653
OrigLeft = 4320
OrigTop = 960
OrigRight = 4575
OrigBottom = 1335
Max = 100
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.CommandButton Command30
Caption = "对 时"
Height = 375
Left = -73800
TabIndex = 77
Top = 3840
Width = 1635
End
Begin VB.CommandButton Command29
Caption = "数据复归"
Height = 405
Left = -74520
TabIndex = 76
Top = 3360
Width = 1725
End
Begin VB.CommandButton Command28
Caption = "取事件"
Height = 375
Left = -72600
TabIndex = 75
Top = 3360
Width = 1695
End
Begin VB.CommandButton Command25
Caption = "复归"
Height = 375
Left = -72570
TabIndex = 74
Top = 1260
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -