frmmain.frm

来自「16 relay output channels and 16 isolated」· FRM 代码 · 共 647 行 · 第 1/2 页

FRM
647
字号
VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "USB-4761  interrupt events demo"
   ClientHeight    =   5040
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6510
   LinkTopic       =   "Form1"
   ScaleHeight     =   5040
   ScaleWidth      =   6510
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdCloseDevice 
      Caption         =   "Close Device"
      Height          =   375
      Left            =   3840
      TabIndex        =   42
      Top             =   720
      Width           =   1695
   End
   Begin VB.CommandButton cmdOpenDevice 
      Caption         =   "Open Device"
      Height          =   375
      Left            =   720
      TabIndex        =   41
      Top             =   720
      Width           =   1695
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   375
      Left            =   5040
      TabIndex        =   33
      Top             =   4440
      Width           =   1335
   End
   Begin VB.CommandButton cmdStop 
      Caption         =   "Sto&p"
      Enabled         =   0   'False
      Height          =   375
      Left            =   3720
      TabIndex        =   32
      Top             =   4440
      Width           =   1095
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "Sta&rt"
      Height          =   375
      Left            =   2520
      TabIndex        =   31
      Top             =   4440
      Width           =   1095
   End
   Begin VB.CommandButton cmdSelectDevice 
      Caption         =   "&Select Device..."
      Height          =   375
      Left            =   4920
      TabIndex        =   30
      Top             =   120
      Width           =   1455
   End
   Begin VB.TextBox txtDeviceName 
      Height          =   375
      Left            =   120
      TabIndex        =   29
      Top             =   120
      Width           =   4695
   End
   Begin VB.Frame frmDiInterrupt 
      Caption         =   "DI Interrupt Events"
      Height          =   2895
      Left            =   120
      TabIndex        =   0
      Top             =   1200
      Width           =   6255
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   7
         Left            =   4800
         Locked          =   -1  'True
         TabIndex        =   28
         Text            =   "4294836225"
         Top             =   2520
         Width           =   1215
      End
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   6
         Left            =   4800
         Locked          =   -1  'True
         TabIndex        =   27
         Text            =   "4294836225"
         Top             =   2160
         Width           =   1215
      End
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   5
         Left            =   4800
         Locked          =   -1  'True
         TabIndex        =   26
         Text            =   "4294836225"
         Top             =   1800
         Width           =   1215
      End
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   4
         Left            =   4800
         Locked          =   -1  'True
         TabIndex        =   25
         Text            =   "4294836225"
         Top             =   1440
         Width           =   1215
      End
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   3
         Left            =   1560
         Locked          =   -1  'True
         TabIndex        =   24
         Text            =   "4294836225"
         Top             =   2520
         Width           =   1215
      End
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   2
         Left            =   1560
         Locked          =   -1  'True
         TabIndex        =   23
         Text            =   "4294836225"
         Top             =   2160
         Width           =   1215
      End
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   1
         Left            =   1560
         Locked          =   -1  'True
         TabIndex        =   22
         Text            =   "4294836225"
         Top             =   1800
         Width           =   1215
      End
      Begin VB.TextBox txtDiInterrupt 
         Alignment       =   1  'Right Justify
         Height          =   285
         Index           =   0
         Left            =   1560
         Locked          =   -1  'True
         TabIndex        =   21
         Text            =   "4294836225"
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Frame Frame1 
         Caption         =   "DI interruipt signal condition "
         Height          =   1095
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Width           =   6015
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   7
            ItemData        =   "frmMain.frx":0000
            Left            =   960
            List            =   "frmMain.frx":000A
            TabIndex        =   40
            Top             =   480
            Width           =   615
         End
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   6
            ItemData        =   "frmMain.frx":001F
            Left            =   1560
            List            =   "frmMain.frx":0029
            TabIndex        =   39
            Top             =   480
            Width           =   615
         End
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   5
            ItemData        =   "frmMain.frx":003E
            Left            =   2160
            List            =   "frmMain.frx":0048
            TabIndex        =   38
            Top             =   480
            Width           =   615
         End
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   4
            ItemData        =   "frmMain.frx":005D
            Left            =   2760
            List            =   "frmMain.frx":0067
            TabIndex        =   37
            Top             =   480
            Width           =   615
         End
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   3
            ItemData        =   "frmMain.frx":007C
            Left            =   3360
            List            =   "frmMain.frx":0086
            TabIndex        =   36
            Top             =   480
            Width           =   615
         End
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   2
            ItemData        =   "frmMain.frx":009B
            Left            =   3960
            List            =   "frmMain.frx":00A5
            TabIndex        =   35
            Top             =   480
            Width           =   615
         End
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   1
            ItemData        =   "frmMain.frx":00BA
            Left            =   4560
            List            =   "frmMain.frx":00C4
            TabIndex        =   34
            Top             =   480
            Width           =   615
         End
         Begin VB.ListBox lstDiSignalCondition 
            Height          =   450
            Index           =   0
            ItemData        =   "frmMain.frx":00D9
            Left            =   5160
            List            =   "frmMain.frx":00E3
            TabIndex        =   11
            Top             =   480
            Width           =   615
         End
         Begin VB.Label Label6 
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Trigger edge"
            Height          =   450
            Left            =   240
            TabIndex        =   20
            Top             =   480
            Width           =   735
         End
         Begin VB.Label Label5 
            BorderStyle     =   1  'Fixed Single
            Caption         =   "Channel"
            Height          =   255
            Left            =   240
            TabIndex        =   19
            Top             =   240
            Width           =   735
         End
         Begin VB.Label Label4 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "&7"
            Height          =   255
            Index           =   7
            Left            =   960
            TabIndex        =   18
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label4 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "&6"
            Height          =   255
            Index           =   6
            Left            =   1560
            TabIndex        =   17
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label4 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "&5"
            Height          =   255
            Index           =   5
            Left            =   2160
            TabIndex        =   16
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label4 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "&4"
            Height          =   255
            Index           =   4
            Left            =   2760
            TabIndex        =   15
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label4 
            Alignment       =   2  'Center
            BorderStyle     =   1  'Fixed Single
            Caption         =   "&3"
            Height          =   255
            Index           =   3
            Left            =   3360
            TabIndex        =   14
            Top             =   240
            Width           =   615
         End
         Begin VB.Label Label4 
            Alignment       =   2  'Center

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?