主题： VB中如何使用扫描仪工程-部件-Kodak 图像扫描控制放一个KODAK扫描控件在窗体上，取名ISNSCAN，设置其FILETYPE为BMP，再放一个按钮取名cmdScan，一个PICTUREBOX取名picTarget，然后用如下代码就完了const TempFileName=C:1.bmpPrivate Sub cmdScan_Click() Dim tSuc As BooleanOn Error GoTo Err_Process isnScan.Image = TempFileName isnScan.ShowSetupBeforeScan = True Call isnScan.StartScan Set picTarget.Picture = loadPicture(TempFileName)On Error GoTo 0 Exit SubErr_Process: Msg ERR.DescriptionEnd Sub1) 用 ImageScan 控件eg：ImgScan1.OpenScannerImgScan1.Image = name of the file that will be savedImgScan1.FileType = BMP_BitmapImgScan1.StartScanImgScan1.CloseScannerVB自己带有Kodak图像扫描控件Lets assume the controls name is ImgScan1If ImgScan1.ScannerAvailable Then ImgScan1.OpenScannerImgScan1.MultiPages=FalseImgScan1.ScanTo=1ImgScan1.Image=File Path You Wanna Save ToImgScan1.ShowSetupBeforeScan = TrueImgScan1.StartScanVB自己带有Kodak图像扫描控件Lets assume the controls name is ImgScan1If ImgScan1.ScannerAvailable Then ImgScan1.OpenScannerImgScan1.MultiPages=FalseImgScan1.ScanTo=1ImgScan1.Image=File Path You Wanna Save ToImgScan1.ShowSetupBeforeScan = TrueImgScan1.StartScan