为什么我在程序中控制扫描仪时总是出现如下的错误提示？？

Question

你把源程序贴出来看一看，我一直都是用windows自带的imgscan.ocx和imgedit.ocx实现扫描，没有出现过你所说的问题。另外，如果你的image工作正常，可以扫描的话，控件和twain32接口应该都没有问题。

Answer 1

to fishzone(阿愚):
     能不能把你的源程序给我发一份儿让我参考参考啊？
    我的e:[email protected]
                        先谢谢你了。

Answer 2

'pop133() ：
'因为我的扫描程序是一个大程序里的一个部分，所以在这里只给出了扫描的那部分。
'三个控件：
'ImageSacn 名字叫：kdsScan
'ImageEdit 名字叫：kdiPaper
'Image     名字叫：imgPaperPrivate Sub ScanImage(strFile As String)
    Dim Ret As Long
    On Error GoTo ScanErr
    If Dir(App.Path & "\Bills\" & strFile & ".tif") <> "" Then
        Kill App.Path & "\Bills\" & strFile & ".tif"
    End If
    
    kdiPaper.Visible = False
    kdsScan.ScanTo = FileOnly
    kdsScan.OpenScanner
    kdsScan.ShowSetupBeforeScan = True
    kdsScan.FileType = TIFF
    kdsScan.Image = App.Path & "\Bills\" & strFile & ".tif"
    kdsScan.StartScan
    kdsScan.CloseScanner
    
    Dim R As String
    kdiPaper.ClearDisplay
    R = Dir(App.Path & "\Bills\" & strFile & ".tif")
    If R <> "" Then
        ReadImage (App.Path & "\Bills\" & strFile & ".tif")
    Else
        MsgBox "Error when Sanning", vbCritical, "Error"
    End If
    
    Exit Sub
    
ScanErr:
        MsgBox Err.Description, vbCritical, "岿粇"
        Err.Clear
        Resume Next
End Sub'这里转了一个小小的弯，先用imagescan将图片扫描成文件，再用imageedit读入该文件。
'最后用剪贴板将图片贴到image控件上显示，而imageedit控件始终都是不可见的。
Private Sub ReadImage(strFileName As String)
    On Error GoTo MyErr
    imgPaper.Stretch = False
    kdiPaper.Image = strFileName
    kdiPaper.Display
    kdiPaper.ClipboardCopy 0, 0, kdiPaper.ImageWidth, kdiPaper.ImageHeight
    imgPaper.Picture = Clipboard.GetData
    kdiPaper.ClearDisplay
    Clipboard.Clear
    Exit SubMyErr:
    MsgBox "Error When Reading image From File, " & Err.Description, vbCritical, "Error"
End Sub'在win98,2000下编译通过
'祝编程快乐
'另外，如果你是win98,在它的帮助文件（不是msdn）里可以找到这几个控件详细资料。