📄 sampleform.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form SAMPLEForm
ClientHeight = 4470
ClientLeft = 5145
ClientTop = 2685
ClientWidth = 7350
LinkTopic = "Form1"
ScaleHeight = 4470
ScaleWidth = 7350
Begin VB.Frame Frame1
Caption = "置位、复位操作"
Height = 960
Index = 1
Left = 270
TabIndex = 19
Top = 3330
Width = 6855
Begin VB.ComboBox Combo1
Height = 315
Index = 2
Left = 1830
TabIndex = 24
Text = "Y"
Top = 330
Width = 855
End
Begin VB.CommandButton Command2
Caption = "复 位"
Height = 315
Left = 5610
TabIndex = 23
Top = 330
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "置 位"
Height = 315
Left = 300
TabIndex = 22
Top = 330
Width = 1095
End
Begin VB.TextBox Text4
Height = 315
Left = 3390
TabIndex = 21
Text = "0000"
Top = 330
Width = 1545
End
End
Begin VB.Frame Frame1
Caption = "写数据"
Height = 1545
Index = 0
Left = 240
TabIndex = 8
Top = 1680
Width = 6885
Begin VB.CommandButton Command4
Caption = "写数据"
Height = 315
Left = 5820
TabIndex = 13
Top = 180
Width = 915
End
Begin VB.TextBox Text1
Height = 675
Index = 2
Left = 450
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Text = "SAMPLEForm.frx":0000
Top = 660
Width = 6285
End
Begin VB.TextBox Text1
Height = 330
Index = 1
Left = 4860
TabIndex = 11
Text = "06"
Top = 150
Width = 435
End
Begin VB.TextBox Text1
Height = 330
Index = 0
Left = 3150
TabIndex = 10
Text = "000"
Top = 150
Width = 645
End
Begin VB.ComboBox Combo1
Height = 315
Index = 1
Left = 1260
TabIndex = 9
Text = "D"
Top = 180
Width = 855
End
Begin VB.Shape Shape1
FillColor = &H000000FF&
FillStyle = 0 'Solid
Height = 345
Index = 1
Left = 5310
Shape = 3 'Circle
Top = 150
Visible = 0 'False
Width = 465
End
Begin VB.Shape Shape1
FillColor = &H0000FF00&
FillStyle = 0 'Solid
Height = 345
Index = 0
Left = 5310
Shape = 3 'Circle
Top = 150
Visible = 0 'False
Width = 465
End
Begin VB.Label Label1
Caption = "数据区"
Height = 345
Index = 5
Left = 660
TabIndex = 17
Top = 210
Width = 615
End
Begin VB.Label Label1
Caption = "写数据"
Height = 645
Index = 2
Left = 180
TabIndex = 16
Top = 690
Width = 195
End
Begin VB.Label Label1
Caption = "写字节数"
Height = 225
Index = 1
Left = 3930
TabIndex = 15
Top = 210
Width = 795
End
Begin VB.Label Label1
Caption = "起始地址"
Height = 345
Index = 0
Left = 2220
TabIndex = 14
Top = 210
Width = 795
End
End
Begin VB.Frame Frame1
Caption = "读数据"
Height = 1365
Index = 2
Left = 240
TabIndex = 0
Top = 180
Width = 6915
Begin VB.CommandButton Command5
Caption = "读数据"
Height = 315
Left = 5490
TabIndex = 18
Top = 210
Width = 1095
End
Begin VB.TextBox Text1
Height = 330
Index = 4
Left = 4770
TabIndex = 4
Text = "06"
Top = 210
Width = 435
End
Begin VB.TextBox Text1
Height = 330
Index = 3
Left = 3060
TabIndex = 3
Text = "000"
Top = 210
Width = 645
End
Begin VB.TextBox Text3
Height = 540
Left = 480
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top = 600
Width = 6195
End
Begin VB.ComboBox Combo1
Height = 315
Index = 0
Left = 1260
TabIndex = 1
Text = "D"
Top = 210
Width = 855
End
Begin VB.Label Label1
Caption = "读数据"
Height = 645
Index = 6
Left = 180
TabIndex = 20
Top = 570
Width = 195
End
Begin VB.Label Label1
Caption = "数据区"
Height = 345
Index = 7
Left = 630
TabIndex = 7
Top = 270
Width = 615
End
Begin VB.Label Label1
Caption = "读字节数"
Height = 225
Index = 4
Left = 3855
TabIndex = 6
Top = 270
Width = 795
End
Begin VB.Label Label1
Caption = "起始地址"
Height = 345
Index = 3
Left = 2145
TabIndex = 5
Top = 270
Width = 795
End
End
Begin MSCommLib.MSComm MSComm1
Left = 30
Top = 3780
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
ParitySetting = 2
DataBits = 7
StopBits = 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -