《VB中如何使用扫描仪》由会员分享,可在线阅读,更多相关《VB中如何使用扫描仪(1页珍藏版)》请在金锄头文库上搜索。
1、主题: 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
2、.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图像扫描控
3、件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