VB 中的后期绑定和类型问题答案

【问题标题】：Late Binding & Type Issues In VBVB 中的后期绑定和类型问题
【发布时间】：2017-11-16 00:39:40
【问题描述】：

我正在尝试通过另一个应用程序运行最初使用 Visual Studio 创建的代码，该应用程序不允许后期绑定，并且很遗憾无法更改此选项。我对一般的编程非常陌生，并且努力解决这个问题。这是我在调用代码阶段使用的代码：

Dim objIEShell As Object = CreateObject("Shell.Application")
Dim objIEShellWindows As Object = objIEShell.Windows
Dim objIEWin As Object
For Each objIEWin In objIEShellWindows
    If InStr(objIEWin.LocationURL,"google")>0 Then
        objIEWin.Quit
        objIEWin = Nothing
    End If
Next

该代码只是关闭 URL 中带有“google”的所有 Internet Explorer 实例。这是我在尝试编译时收到的错误消息：

Message: Error compiling code
error BC30574: Option Strict On disallows late binding. At line 2
error BC32023: Expression is of type 'Object', which is not a collection type. At line 4

根据我目前所做的研究，我意识到第 2 行的第一条错误消息与 objIEShell 和 Windows 方法之间的类型差异有关。我想我必须像这样转换objIEShell，CType(objIEShell,?)，但我不知道 .Windows 方法的类型或如何找出它。此外，任何有关如何修复第二个错误的见解都将不胜感激，因为我也不确定从哪里开始。

【问题讨论】：

你可以关闭每个模块的Option Strict，只需在代码文件顶部输入Option Strict Off
我使用的程序不允许这样做。我想知道如何在不更改此设置的情况下解决此问题。谢谢

标签： vb.net types casting compiler-errors late-binding

【解决方案1】：

这可以追溯到微软仍然计划让 Explorer 像网络浏览器一样运行的不稳定时期。很难得出正确的代码，它是两个独立的 COM 组件的组合，彼此之间没有太大关系。

您需要首先添加对这些组件的两个引用，以便编译器理解名称。使用 Project > Add Reference > COM 选项卡并勾选“Microsoft Internet Controls”和“Microsoft Shell Controls and Automation”。这会添加 Shell32 和 SHDocVw 命名空间。

现在您可以像这样编写早期绑定的代码：

    Dim objIEShell = New Shell32.Shell
    Dim objIEShellWindows = CType(objIEShell.Windows, SHDocVw.IShellWindows)
    Dim objIEWin As SHDocVw.WebBrowser
    For Each objIEWin In objIEShellWindows
        If InStr(objIEWin.LocationURL, "google") > 0 Then
            objIEWin.Quit()
        End If
    Next

CType() 表达式可能是最不直观的表达式，Shell.Windows 属性是 Object 类型，以打破这两个组件之间的依赖关系。演员表是让编译器满意的必要巫术。

【讨论】：