English 中文(简体)
WIA, Vista, and VB6. Does this code work?
原标题:

Basically the constraints here are that i must use WIA because i am trying to get my scanner software to work in Windows 7 and Vista. It would be preferable (like really preferable) if i could do this in VB6. Now this code i have compiles and everything, however when i run it i get the error "No WIA device of the selected type is available." I m beginning to suspect that my scanner is not WIA compatible.

Could anyone confirm that this code should work? (needs to work with any WIA device not just scanners)

Dim WIADia As WIA.CommonDialog
Dim Scan As WIA.DeviceManager


Set WIADia = New WIA.CommonDialog
Set Scan = WIADia.ShowSelectDevice(WIA.WiaDeviceType.UnspecifiedDeviceType, True, False)
WIADia.ShowAcquisitionWizard (Scan)

Thanks!

问题回答
        WIA.CommonDialog WIADia;
        Device Scan;

        WIADia = new WIA.CommonDialog();
        Scan = WIADia.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, true, false);
        WIADia.ShowAcquisitionWizard(Scan);




相关问题
Prevent windows from queuing shellexecute requests

Win.ShellExecute 0, "open", "C:dirprogram.exe", "arguments", vbNullString, SW_SHOWNORMAL Win.ShellExecute 0, "open", "http://www.google.com", vbNullString, vbNullString, SW_SHOWNORMAL I want google....

Why is My Loop Only Deleting One File?

Using VB6 In a folder, i have n number of files, i want to delete a 0 kb files code Dim filename5 As String filename5 = Dir$(txtsourcedatabasefile & "*_*", vbDirectory) MsgBox filename5 Do ...

How to check the filesize?

Using VB6 I have the text file with different sizes, so i want to delete the file where filesize = 0 kb. How to make a vb6 code for deleting the 0 kb files. Need vb6 code Help

File Rename problem?

I m using VB6 and I have a folder where I have n number of files. I want to change the file extension to .txt. I used the code below to change the extension of all .fin files to .txt. Dim filename1 ...

Error 20728-F while in using Crystal Reports in VB6

I m using Crystal Reports in my VB6 project, but I m facing error while loading the report in crystalreport1.action=1; Please give me some solution for this problem. It is showing the error as Error ...

DllRegisterServer entry point was not found

When running my vb6 application I am getting error like, runtime error 53 : file not found: rscomclNoMsg.dll then i tried to register that dll from cmd line using regsvr32. Then I am getting ...

SQL Server 2000, ADO 2.8, VB6

How to determine if a Transaction is active i.e. before issuing Begin Transaction I want to ensure that no previous transaction are open.. the platform is VB6, MS-SQL Server 2000 and ADO 2.8

热门标签