vb6 - WIA、Vista 和 VB6。这段代码有效吗？

Question

基本上这里的限制是我必须使用 WIA，因为我试图让我的扫描仪软件在 Windows 7 和 Vista 中工作。如果我能在 VB6 中做到这一点，那将是更可取的（就像真的更可取）。现在我已经编译了这段代码和所有内容，但是当我运行它时，我收到错误“没有可用的所选类型的 WIA 设备”。我开始怀疑我的扫描仪不兼容 WIA。

任何人都可以确认此代码应该有效吗？（需要使用任何 WIA 设备，而不仅仅是扫描仪）

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)

谢谢！

Answer 1

        WIA.CommonDialog WIADia;
        Device Scan;

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