mdiform1.frm

此为用vb编写的usb高速数据采集实例 如果没有相应的驱动

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "USB2013测控系统"
   ClientHeight    =   6660
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8010
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   7560
      Top             =   6240
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu file 
      Caption         =   "文件操作(F)"
      Index           =   0
      Begin VB.Menu Open 
         Caption         =   "打开新建文件"
         HelpContextID   =   2
         Index           =   2
      End
      Begin VB.Menu check 
         Caption         =   "检测开关量I/O"
         Index           =   4
      End
      Begin VB.Menu Open_SC 
         Caption         =   "打开数据采集系统"
      End
      Begin VB.Menu exit 
         Caption         =   "退出应用程序"
         HelpContextID   =   6
         Index           =   6
      End
   End
   Begin VB.Menu xb 
      Caption         =   "系统帮助(H)"
      HelpContextID   =   5
      Index           =   5
      Begin VB.Menu sys 
         Caption         =   "关于sys(A)"
         HelpContextID   =   6
         Index           =   6
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub check_Click(Index As Integer)
DIO_Form.Show
End Sub
'
Private Sub Open_Click(Index As Integer)
  CommonDialog1.FileName = "f:\art"
  CommonDialog1.ShowOpen
  FileName = CommonDialog1.FileName
End Sub

Private Sub exit_Click(Index As Integer)
 Call TerminateProcess(GetCurrentProcess, ByVal 0&)
  End
End Sub

Private Sub Open_SC_Click()
  AD_Form.Show
End Sub


Private Sub sys_Click(Index As Integer)
  关于sys.Show
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Call TerminateProcess(GetCurrentProcess, ByVal 0&)
End Sub