http://www.dapha.net/VB/list.asp?id=429
usb编程

解决方案 »

  1.   

    工程-->部件-->Kodak 图像扫描控制
    windows里装了映像程序就有的
      

  2.   

    放一个KODAK扫描控件在窗体上,取名ISNSCAN,设置其FILETYPE为BMP,
    再放一个按钮取名cmdScan,一个PICTUREBOX取名picTarget,
    然后用如下代码就完了const TempFileName="C:\1.bmp"
    Private Sub cmdScan_Click()
        Dim tSuc As Boolean
    On Error GoTo Err_Process
        isnScan.Image = TempFileName
        isnScan.ShowSetupBeforeScan = True
        Call isnScan.StartScan    Set picTarget.Picture = loadPicture(TempFileName)
    On Error GoTo 0
        Exit Sub
        
    Err_Process:
        Msg ERR.Description
    End Sub
      

  3.   

    1) 用 ImageScan 控件
    eg:
    ImgScan1.OpenScanner
    ImgScan1.Image = "name of the file that will be saved"
    ImgScan1.FileType = BMP_Bitmap
    ImgScan1.StartScan
    ImgScan1.CloseScanner下载:
    http://home.t-online.de/home/Holger.Heinemann/vbscan.htm2)参考 MSDN Platform SDK: Windows Image Acquisition 部分http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wia/ref-api_3ddf.asp
      

  4.   


      
    VB自己带有Kodak图像扫描控件 
    Let's assume the control's name is ImgScan1
    If ImgScan1.ScannerAvailable Then ImgScan1.OpenScanner 
    ImgScan1.MultiPages=False
    ImgScan1.ScanTo=1
    ImgScan1.Image=File Path You Wanna Save To
    ImgScan1.ShowSetupBeforeScan = True
    ImgScan1.StartScan
      

  5.   


      
    VB自己带有Kodak图像扫描控件 
    Let's assume the control's name is ImgScan1
    If ImgScan1.ScannerAvailable Then ImgScan1.OpenScanner 
    ImgScan1.MultiPages=False
    ImgScan1.ScanTo=1
    ImgScan1.Image=File Path You Wanna Save To
    ImgScan1.ShowSetupBeforeScan = True
    ImgScan1.StartScan