急需,谁用过VB6中的IMGSCAN 控件跟扫描仪连接并能保存文档资料?

[jinke]

我用IMGSCAN中的一些属性(OPENSCANNER)可调用并使扫描仪工作后,便停下了.
各位好友告知用这个控件调用扫描仪的过程,希望您能给代码.
或者用别的什么方法主要是要扫描一些文件并要归档.
急需,先谢谢了.

[ExitWnidows]

up

[outer2000]

gz

[一川烟草123]

下面的代碼不知道是不是妳想要的
Private Sub Command1_Click()
' scanner available?
ImgScan1.ScannerAvailable
' open scanner port
ImgScan1.OpenScanner
' start scanning

End Sub

Private Sub ImgScan1_PageDone(ByVal PageNumber As Long)
debug.print= "status: page " & PageNumber & " done."
End Sub
Private Sub ImgScan1_ScanDone()
debug.print= "status: scan done."
End Sub
Private Sub ImgScan1_ScanStarted()
debug.print= "status: scan started."
End Sub

[一川烟草123]

下面的代碼不知道是不是妳想要的
Private Sub Command1_Click()
' scanner available?
ImgScan1.ScannerAvailable
' open scanner port
ImgScan1.OpenScanner
' start scanning

End Sub

Private Sub ImgScan1_PageDone(ByVal PageNumber As Long)
debug.print= "status: page " & PageNumber & " done."
End Sub
Private Sub ImgScan1_ScanDone()
debug.print= "status: scan done."
End Sub
Private Sub ImgScan1_ScanStarted()
debug.print= "status: scan started."
End Sub