VB中如何使用扫描仪

aqinag 2002-02-19 01:50:42

VB中如何使用扫描仪?????

...全文

163 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

aqinag 2002-02-19

打赏
举报

谢谢，各位

sonicdater 2002-02-19

打赏
举报

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

sonicdater 2002-02-19

打赏
举报

sonicdater 2002-02-19

打赏
举报

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.htm

2）参考 MSDN Platform SDK: Windows Image Acquisition 部分

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wia/ref-api_3ddf.asp

junglerover 2002-02-19

打赏
举报

放一个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

fuxc 2002-02-19