0x80004002 wia和vb.net异常

希望有人能帮助解决上述错误

我有下面的代码，可以很好地与windows xp和Kodak scanmate 1120配合使用

 Private Sub BtnScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnScan.Click
    Dim img As WIA.ImageFile = Nothing
    Dim wiaDialog As WIA.CommonDialog = New WIA.CommonDialog
    Dim wiaScanner As WIA.Device
    Dim root As String = "c:\myimages"
    Dim IFileName As String = TxtInvoiceNo.Text
    Dim WiaCommonDialog As New WIA.CommonDialog

    If TxtInvoiceNo.Text = "" Then
        'FrmPicDisplay.Show()
        MsgBox("Please enter a valid Invoice No." & vbNewLine _
           & "Then press scan button to continue.")
        TxtInvoiceNo.Select()

    ElseIf My.Computer.FileSystem.FileExists(root & IFileName & ".bmp") Then
        MsgBox("This filename already exists," & vbNewLine _
            & "Please enter a different filename")
        TxtInvoiceNo.Text = ""
    Else
        Ino = TxtInvoiceNo.Text
        wiaScanner = wiaDialog.ShowSelectDevice
        With wiaScanner.Items(1)
            .Properties("6146").Value = 4 '4 is Black-white,gray is 2, color 1 (Color Intent)
            .Properties("6147").Value = 200 'dots per inch/horizontal
            .Properties("6148").Value = 200 'dots per inch/vertical
            .Transfer(wiaFormatTIFF) '("{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}") 'BMP format - This prompts the scan
        End With


        img = wiaScanner
        Dim Item As WIA.Item = TryCast(wiaScanner.Items(1), WIA.Item)
        Dim imageBytes As [Byte]() = DirectCast(img.FileData.BinaryData, Byte())
        Dim ms As New MemoryStream(imageBytes)
        Dim image_1 As Image = Image.FromStream(ms)


        img.SaveFile("c:\myimages" & TxtInvoiceNo.Text & ".bmp")

我不得不把电脑换成Windows7，现在这个程序不工作了，在生产线上给了我上面的错误

 img = wiaScanner

从我通过搜索发现的情况来看，这听起来像是一个com例外，但我真的不知道从哪里开始寻找，所以非常感谢任何帮助

谢谢

---

Gareth

您正在尝试将设备转换为文件。这毫无意义，预计会出现E_NOINTERFACE错误。Transfer（）方法返回一个文件，您没有使用它。感谢Hans指出这一点（并感谢他没有因为我一开始没有注意到它而称我为傻瓜）