mainform.frm
来自「16 relay output channels and 16 isolated」· FRM 代码 · 共 966 行 · 第 1/3 页
FRM
966 行
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "6"
Height = 255
Index = 6
Left = 480
TabIndex = 11
Top = 600
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "5"
Height = 255
Index = 5
Left = 840
TabIndex = 10
Top = 600
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "4"
Height = 255
Index = 4
Left = 1200
TabIndex = 9
Top = 600
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "3"
Height = 255
Index = 3
Left = 1800
TabIndex = 8
Top = 600
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "2"
Height = 255
Index = 2
Left = 2160
TabIndex = 7
Top = 600
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "1"
Height = 255
Index = 1
Left = 2520
TabIndex = 6
Top = 600
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "0"
Height = 255
Index = 0
Left = 2880
TabIndex = 5
Top = 600
Width = 255
End
End
End
Begin VB.Frame Frame4
Caption = "Interrupt Event"
Height = 3495
Left = 3720
TabIndex = 3
Top = 720
Width = 4335
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI3"
Height = 225
Index = 3
Left = 3210
TabIndex = 51
Top = 975
Value = 1 'Checked
Width = 615
End
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI2"
Height = 225
Index = 2
Left = 2280
TabIndex = 50
Top = 975
Value = 1 'Checked
Width = 615
End
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI1"
Height = 225
Index = 1
Left = 1230
TabIndex = 49
Top = 975
Value = 1 'Checked
Width = 615
End
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI0"
Height = 225
Index = 0
Left = 300
TabIndex = 48
Top = 975
Value = 1 'Checked
Width = 615
End
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI7"
Height = 225
Index = 7
Left = 3210
TabIndex = 47
Top = 1320
Value = 1 'Checked
Width = 615
End
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI6"
Height = 225
Index = 6
Left = 2280
TabIndex = 46
Top = 1320
Value = 1 'Checked
Width = 615
End
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI5"
Height = 225
Index = 5
Left = 1230
TabIndex = 45
Top = 1320
Value = 1 'Checked
Width = 615
End
Begin VB.CheckBox DI
Alignment = 1 'Right Justify
Caption = "DI4"
Height = 225
Index = 4
Left = 300
TabIndex = 44
Top = 1320
Value = 1 'Checked
Width = 615
End
Begin VB.Timer ShowTimer
Enabled = 0 'False
Interval = 5
Left = 3870
Top = 3060
End
Begin VB.Frame Frame7
Height = 1455
Left = 210
TabIndex = 32
Top = 1650
Width = 2775
Begin VB.TextBox txtInterruptCount
Alignment = 1 'Right Justify
BackColor = &H00E0E0E0&
Height = 285
Left = 1680
TabIndex = 35
Text = "1"
Top = 240
Width = 615
End
Begin VB.TextBox txtIntData
Alignment = 1 'Right Justify
BackColor = &H8000000F&
ForeColor = &H80000002&
Height = 285
Left = 840
TabIndex = 34
Top = 960
Width = 1455
End
Begin VB.TextBox txtEventCount
Alignment = 1 'Right Justify
BackColor = &H8000000F&
ForeColor = &H80000002&
Height = 285
Left = 840
TabIndex = 33
Top = 600
Width = 1455
End
Begin VB.Label Label10
Caption = "Event:"
Height = 255
Left = 120
TabIndex = 41
Top = 600
Width = 495
End
Begin VB.Label Label5
Caption = "Interrupt Count :"
Height = 255
Left = 120
TabIndex = 39
Top = 240
Width = 1335
End
Begin VB.Label Label6
Caption = "Counts:"
Height = 255
Left = 120
TabIndex = 38
Top = 960
Width = 495
End
Begin VB.Label Label7
Caption = "I/S"
Height = 252
Left = 2400
TabIndex = 37
Top = 600
Width = 252
End
Begin VB.Label Label8
Caption = "T"
Height = 252
Left = 2400
TabIndex = 36
Top = 960
Width = 252
End
End
Begin VB.Frame Frame2
Caption = "Priority"
Height = 495
Left = 210
TabIndex = 29
Top = 240
Width = 3765
Begin VB.OptionButton NormalOption
Caption = "Normal"
Height = 255
Left = 480
TabIndex = 31
Top = 180
Value = -1 'True
Width = 1095
End
Begin VB.OptionButton CriticalOption
Caption = "Time Critical"
Height = 255
Left = 2160
TabIndex = 30
Top = 180
Width = 1335
End
End
Begin VB.CommandButton DisableButton
Caption = "Disable"
Enabled = 0 'False
Height = 375
Left = 3330
TabIndex = 14
Top = 2400
Width = 855
End
Begin VB.CommandButton EnableButton
Caption = "Enable"
Height = 375
Left = 3330
TabIndex = 13
Top = 1800
Width = 855
End
Begin VB.Frame Frame8
Caption = "Interrupt Source"
Height = 915
Left = 210
TabIndex = 52
Top = 750
Width = 3765
End
Begin VB.Label Label9
Caption = "Hints--> I/S: Interrupt Event count per Second"
Height = 255
Left = 210
TabIndex = 40
Top = 3180
Width = 3615
End
End
Begin VB.Label NOTE
BackStyle = 0 'Transparent
Caption = "Note: Please compile and run this sample using Visual Basic 5.0"
ForeColor = &H000000C0&
Height = 255
Left = 180
TabIndex = 42
Top = 4770
Visible = 0 'False
Width = 6135
End
End
Attribute VB_Name = "frmMain"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?