我用的是网上下载的kodak扫描控件:imageSCAN,先加了个imgscan1,然后加了个命令按钮,控件已经注册了
另外用picture1显示扫描图片
然后扫描,主要代码如下:
istring = App.Path + "\temp1.bmp"
ImgScan1.ScanTo = 2
ImgScan1.Image = istring
ImgScan1.ShowSetupBeforeScan = True
Call ImgScan1.StartScan
ImgScan1.CloseScanner
Picture1.Picture = LoadPicture(istring)
Me.Picture1.PaintPicture Me.Picture1.Picture, 0, 0, Me.Picture1.ScaleWidth, Me.Picture1.ScaleHeight 它这时出现了错误,说是无效图片,然后查看路径下的文件,是有temp1.bmp文件的,再有ACDSee看,是可以看到扫描后的照片的,但
加载时出错,说是无效图片,如果有扫描仪自带的软件扫描简历后,它是可以加载的,可以看到,
但不知为何VB控制扫描时图片不正确?
请高手帮忙分析下原因,!谢谢
另外用picture1显示扫描图片
然后扫描,主要代码如下:
istring = App.Path + "\temp1.bmp"
ImgScan1.ScanTo = 2
ImgScan1.Image = istring
ImgScan1.ShowSetupBeforeScan = True
Call ImgScan1.StartScan
ImgScan1.CloseScanner
Picture1.Picture = LoadPicture(istring)
Me.Picture1.PaintPicture Me.Picture1.Picture, 0, 0, Me.Picture1.ScaleWidth, Me.Picture1.ScaleHeight 它这时出现了错误,说是无效图片,然后查看路径下的文件,是有temp1.bmp文件的,再有ACDSee看,是可以看到扫描后的照片的,但
加载时出错,说是无效图片,如果有扫描仪自带的软件扫描简历后,它是可以加载的,可以看到,
但不知为何VB控制扫描时图片不正确?
请高手帮忙分析下原因,!谢谢
还有,你最后一行程序是什么意思,我没看明白?
最后一行就是想将图片显示的与picturebox控件一样大小
1.VB程序扫描的照片不能显示
2.如果将istring改成别的照片路径是可以显示的
3.如果将扫描仪自带软件扫描的照片存好,再将istring改成那个路径,是可以显示的
http://www.cnblogs.com/wangminbai/archive/2008/03/23/1118638.html
位深度是8
分辨率两个方向都是148DPI
扫描时我选的是灰度,不是彩色的