form1.frm
来自「16 relay output channels and 16 isolated」· FRM 代码 · 共 697 行 · 第 1/2 页
FRM
697 行
VERSION 5.00
Begin VB.Form mainfrm
BorderStyle = 1 'Fixed Single
Caption = "Advantech Driver Demo: Digital Input with Interrupt Event"
ClientHeight = 4665
ClientLeft = 45
ClientTop = 330
ClientWidth = 7155
LinkTopic = "mainfrm"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4665
ScaleWidth = 7155
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton AboutButton
Caption = "&About"
Height = 375
Left = 5760
TabIndex = 23
Top = 240
Width = 1215
End
Begin VB.CommandButton CloseButton
Caption = "&Close"
Height = 375
Left = 5760
TabIndex = 22
Top = 720
Width = 1215
End
Begin VB.CommandButton SelDevButton
Caption = "Select &Device..."
Height = 375
Left = 4080
TabIndex = 21
Top = 240
Width = 1455
End
Begin VB.Frame Frame3
Caption = "Interrupt Event"
Height = 3015
Left = 3720
TabIndex = 8
Top = 1200
Width = 3255
Begin VB.CommandButton DisableCommand
Caption = "&Disable"
Height = 375
Left = 1920
TabIndex = 18
Top = 2520
Width = 975
End
Begin VB.CommandButton EnableCommand
Caption = "&Enable"
Height = 375
Left = 600
TabIndex = 17
Top = 2520
Width = 975
End
Begin VB.TextBox txtEventCount
BackColor = &H80000004&
Height = 285
Left = 840
TabIndex = 15
Top = 1920
Width = 1215
End
Begin VB.TextBox IntrptCountText
Height = 285
Left = 1560
TabIndex = 14
Text = "1"
Top = 1200
Width = 1215
End
Begin VB.OptionButton TimeCriticalOption
Caption = "Time Critical Priority"
Height = 255
Left = 360
TabIndex = 10
Top = 840
Width = 1695
End
Begin VB.OptionButton NormalOption
Caption = "Normal Priority"
Height = 255
Left = 360
TabIndex = 9
Top = 480
Width = 1695
End
Begin VB.Label Label7
Caption = "I/S"
Height = 255
Left = 2280
TabIndex = 16
Top = 1920
Width = 375
End
Begin VB.Label Label5
Caption = "Interrupt Count"
Height = 375
Left = 240
TabIndex = 13
Top = 1200
Width = 1215
End
End
Begin VB.Frame Frame2
Caption = "Digital Input Scan"
Height = 3015
Left = 240
TabIndex = 1
Top = 1200
Width = 3375
Begin VB.Frame Frame5
Caption = "Port Status"
Height = 855
Left = 120
TabIndex = 26
Top = 1560
Width = 3135
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "0"
Height = 255
Index = 0
Left = 2760
TabIndex = 34
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "1"
Height = 255
Index = 1
Left = 2400
TabIndex = 33
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "2"
Height = 255
Index = 2
Left = 2040
TabIndex = 32
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "3"
Height = 255
Index = 3
Left = 1680
TabIndex = 31
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "4"
Height = 255
Index = 4
Left = 1200
TabIndex = 30
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "5"
Height = 255
Index = 5
Left = 840
TabIndex = 29
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "6"
Height = 255
Index = 6
Left = 480
TabIndex = 28
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "7"
Height = 255
Index = 7
Left = 120
TabIndex = 27
Top = 480
Width = 255
End
Begin VB.Image Red_LED
Height = 225
Index = 0
Left = 2760
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 1
Left = 2400
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 2
Left = 2040
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 3
Left = 1680
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 4
Left = 1200
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 5
Left = 840
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 6
Left = 480
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 7
Left = 120
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 0
Left = 2760
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 1
Left = 2400
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 2
Left = 2040
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 3
Left = 1680
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 4
Left = 1200
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 5
Left = 840
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 6
Left = 480
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 7
Left = 120
Top = 240
Width = 225
End
End
Begin VB.ComboBox cmbDIPort
Height = 315
Left = 1200
Style = 2 'Dropdown List
TabIndex = 25
Top = 840
Width = 975
End
Begin VB.Timer ScanTimer
Left = 2760
Top = 240
End
Begin VB.CommandButton StopCommand
Cancel = -1 'True
Caption = "&Stop"
Enabled = 0 'False
Height = 375
Left = 1800
TabIndex = 7
Top = 2520
Width = 975
End
Begin VB.CommandButton StartCommand
Caption = "&Start"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?