⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 usbio.frm

📁 6个用VB和DELPHI编写的FOR USB驱动程序
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form USBIOCOMForm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "USBIOCOM Visual Basic Application"
   ClientHeight    =   6015
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9150
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6015
   ScaleWidth      =   9150
   Begin VB.Frame Frame1 
      Height          =   5295
      Index           =   5
      Left            =   240
      TabIndex        =   146
      Top             =   480
      Visible         =   0   'False
      Width           =   8655
      Begin VB.CheckBox WriteIsoCheck 
         Caption         =   "ISO"
         Height          =   255
         Left            =   1680
         TabIndex        =   25
         Top             =   1080
         Width           =   1095
      End
      Begin VB.CheckBox WriteStatusCheck 
         Caption         =   "Write Status"
         Height          =   255
         Left            =   1680
         TabIndex        =   29
         Top             =   2520
         Width           =   1215
      End
      Begin VB.CheckBox StartWriteCheck 
         Caption         =   "Use File"
         Height          =   255
         Left            =   5640
         TabIndex        =   32
         Top             =   1080
         Width           =   1455
      End
      Begin VB.TextBox SendFileField 
         Height          =   285
         Left            =   6000
         TabIndex        =   31
         Text            =   "dump.bin"
         Top             =   1440
         Width           =   1575
      End
      Begin VB.TextBox DefinedBuffersField 
         Height          =   285
         Left            =   4200
         TabIndex        =   30
         Text            =   "0"
         Top             =   1440
         Width           =   735
      End
      Begin VB.TextBox StartWritingMaxErrorCountField 
         Height          =   285
         Left            =   1680
         TabIndex        =   28
         Text            =   "5"
         Top             =   2160
         Width           =   1095
      End
      Begin VB.TextBox StartWritingNumberOfBuffersField 
         Height          =   285
         Left            =   1680
         TabIndex        =   27
         Text            =   "5"
         Top             =   1800
         Width           =   1095
      End
      Begin VB.TextBox StartWritingBufferSizeField 
         Height          =   285
         Left            =   1680
         TabIndex        =   26
         Text            =   "64"
         Top             =   1440
         Width           =   1095
      End
      Begin VB.CommandButton StartWriting 
         Caption         =   "Start Writing"
         Height          =   495
         Left            =   240
         TabIndex        =   33
         Top             =   360
         Width           =   2295
      End
      Begin VB.CommandButton StopWriting 
         Caption         =   "Stop Writing"
         Height          =   495
         Left            =   2760
         TabIndex        =   34
         Top             =   360
         Width           =   2295
      End
      Begin VB.Label FilledWithLabel 
         Caption         =   "Value"
         Height          =   255
         Left            =   3360
         TabIndex        =   156
         Top             =   1440
         Width           =   735
      End
      Begin VB.Label SendFilenameLabel 
         Caption         =   "File"
         Height          =   255
         Left            =   5640
         TabIndex        =   158
         Top             =   1440
         Width           =   375
      End
      Begin VB.Label DefinedBuffersLabel 
         Caption         =   "Send Test Pattern"
         Height          =   255
         Left            =   3360
         TabIndex        =   157
         Top             =   1080
         Width           =   1575
      End
      Begin VB.Label StartWritingMaxErrorCountLabel 
         Caption         =   "Max Error Count"
         Height          =   255
         Left            =   120
         TabIndex        =   149
         Top             =   2160
         Width           =   1335
      End
      Begin VB.Label StartWritingNumerOfBuffersLabel 
         Caption         =   "Number of Buffers"
         Height          =   255
         Left            =   120
         TabIndex        =   148
         Top             =   1800
         Width           =   1335
      End
      Begin VB.Label StartWritingBufferSizeLabel 
         Caption         =   "Buffer Size"
         Height          =   255
         Left            =   120
         TabIndex        =   147
         Top             =   1440
         Width           =   1575
      End
   End
   Begin VB.Frame Frame1 
      Height          =   5295
      Index           =   6
      Left            =   240
      TabIndex        =   87
      Top             =   480
      Visible         =   0   'False
      Width           =   8655
      Begin VB.CommandButton ClearFeature 
         Caption         =   "Clear Feature"
         Height          =   375
         Left            =   3600
         TabIndex        =   24
         Top             =   2640
         Width           =   2055
      End
      Begin VB.CommandButton SetFeature 
         Caption         =   "Set Feature"
         Height          =   375
         Left            =   720
         TabIndex        =   23
         Top             =   2640
         Width           =   2055
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         Left            =   2520
         TabIndex        =   20
         Top             =   840
         Width           =   1695
      End
      Begin VB.TextBox FeatureIndexField 
         Height          =   285
         Left            =   2520
         TabIndex        =   22
         Text            =   "0"
         Top             =   1680
         Width           =   1695
      End
      Begin VB.TextBox FeatureField 
         Height          =   285
         Left            =   2520
         TabIndex        =   21
         Text            =   "0"
         Top             =   1320
         Width           =   1695
      End
      Begin VB.Label FeatureRecipientLabel 
         Caption         =   "Recipient"
         Height          =   255
         Left            =   1320
         TabIndex        =   128
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label FeatureIndexLabel 
         Caption         =   "Index"
         Height          =   255
         Left            =   1320
         TabIndex        =   89
         Top             =   1680
         Width           =   975
      End
      Begin VB.Label FeatureLabel 
         Caption         =   "Feature"
         Height          =   255
         Left            =   1320
         TabIndex        =   88
         Top             =   1320
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Height          =   5295
      Index           =   8
      Left            =   240
      TabIndex        =   90
      Top             =   480
      Visible         =   0   'False
      Width           =   8655
      Begin VB.TextBox FrameNumberField 
         Height          =   285
         Left            =   6600
         Locked          =   -1  'True
         TabIndex        =   91
         TabStop         =   0   'False
         Top             =   2400
         Width           =   1575
      End
      Begin VB.CommandButton GetCurrentFrameNumber 
         Caption         =   "Get Frame Number"
         Height          =   375
         Left            =   5760
         TabIndex        =   7
         Top             =   1800
         Width           =   1575
      End
      Begin VB.CommandButton CyclePort 
         Caption         =   "Cycle Port"
         Height          =   375
         Left            =   5760
         TabIndex        =   5
         Top             =   600
         Width           =   1575
      End
      Begin VB.CommandButton ResetDevice 
         Caption         =   "Reset Device"
         Height          =   375
         Left            =   5760
         TabIndex        =   6
         Top             =   1200
         Width           =   1575
      End
      Begin VB.Frame ResetFrame 
         Height          =   2535
         Left            =   5040
         TabIndex        =   141
         Top             =   360
         Width           =   3375
         Begin VB.Label FrameNumberLabel 
            Caption         =   "Frame Number"
            Height          =   255
            Left            =   120
            TabIndex        =   142
            Top             =   2040
            Width           =   1215
         End
      End
      Begin VB.Frame GetStatusFrame 
         Caption         =   "Status"
         Height          =   1215
         Left            =   240
         TabIndex        =   96
         Top             =   360
         Width           =   4575
         Begin VB.ComboBox GetStatusRecipientCombo 
            Height          =   315
            Left            =   3120
            TabIndex        =   2
            Text            =   "Combo5"
            Top             =   240
            Width           =   1335
         End
         Begin VB.TextBox GetStatusField 
            Height          =   285
            Left            =   360
            Locked          =   -1  'True
            TabIndex        =   97
            TabStop         =   0   'False
            Top             =   720
            Width           =   1095
         End
         Begin VB.TextBox GetStatusIndexField 
            Height          =   285
            Left            =   3120
            TabIndex        =   3
            Text            =   "0"
            Top             =   720
            Width           =   855
         End
         Begin VB.CommandButton GetStatus 
            Caption         =   "Get Status"
            Height          =   375
            Left            =   360
            TabIndex        =   4
            Top             =   240
            Width           =   1095
         End
         Begin VB.Label GetStatusIndexLabel 
            Caption         =   "Index"
            Height          =   255
            Left            =   1800
            TabIndex        =   99
            Top             =   720
            Width           =   1215
         End
         Begin VB.Label GetStatusRecipientLabel 
            Caption         =   "Recipient"
            Height          =   255
            Left            =   1800
            TabIndex        =   98
            Top             =   240
            Width           =   1215
         End
      End
      Begin VB.Frame DriverPathNameFrame 
         Caption         =   "Driver Path Name"
         Height          =   855
         Left            =   240
         TabIndex        =   94
         Top             =   3000
         Width           =   8175
         Begin VB.TextBox PathField 
            Height          =   285
            Left            =   1920
            Locked          =   -1  'True
            TabIndex        =   95
            TabStop         =   0   'False
            Top             =   360
            Width           =   6015
         End
         Begin VB.CommandButton GetDevicePathName 
            Caption         =   "Get Path"
            Height          =   375
            Left            =   240
            TabIndex        =   11
            Top             =   360
            Width           =   1335
         End
      End
      Begin VB.Frame PowerStateFrame 
         Caption         =   "Power State"
         Height          =   1215
         Left            =   240
         TabIndex        =   92
         Top             =   1680
         Width           =   4575
         Begin VB.ComboBox SetPowerStateCombo 
            Height          =   315
            Left            =   240
            TabIndex        =   8
            Text            =   "Combo6"
            Top             =   720
            Width           =   1695
         End
         Begin VB.TextBox PowerStateField 
            Height          =   285

⌨️ 快捷键说明

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