'扫描图片 内部函数
''无参数
''返回值:输出图片
Dim imageFile As WIA.imageFile
Dim Img As Bitmap
Dim cdc As New WIA.CommonDialogClass()
Try
imageFile = cdc.ShowAcquireImage(WIA.WiaDeviceType.ScannerDeviceType, WIA.WiaImageIntent.TextIntent, WIA.WiaImageBias.MaximizeQuality, "{00000000-0000-0000-0000-000000000000}", True, True,False)
If imageFile IsNot Nothing Then
img = imageFile
Return img
End If
Catch generatedExceptionName As System.Runtime.InteropServices.COMException
MessageBox.Show("您的扫描仪尚未准备好!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return Nothing
End Try
报错
此主题相关图片如下：qq截图20150227154337.png
加好友 
发短信
Post By：2015/2/27 15:42:00 [只看该作者]
