添加一个imgscan 和 一个imgecit控件
' this is a very small example of how you can
' scan a picture from the scanner and display
' it on a img control. you can create a scanning
' program, with a simle ocx. i took about 1minute
' out of my time to create this.
Private Sub Command1_Click()
' scanner available?
ImgScan1.ScannerAvailable
' open scanner port
ImgScan1.OpenScanner
' start scanning
ImgScan1.StartScan
End Sub
Private Sub ImgScan1_PageDone(ByVal PageNumber As Long)
Label1.Caption = "状态: 页 " & PageNumber & " 完成."
End Sub
Private Sub ImgScan1_ScanDone()
Label1.Caption = "状态: 完成扫描."
End Sub
Private Sub ImgScan1_ScanStarted()
Label1.Caption = "状态: 开始扫描."
End Sub