全部显示

Follow 方法可以打开由窗体或报表上控件的相关超链接地址所指定的文档或网页。

expression.Follow(NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)

expression     必需。返回“应用于”列表中的一个对象的表达式。

NewWindow     可选 Boolean 型。Boolean 型值，为 True (–1) 时在新窗口打开文档；为 False (0) 时，在当前窗口打开文档。默认值为 False。

AddHistory     可选 Boolean 型。Boolean 型值，为 True 时向“历史”文件夹添加超链接；为 False 时，不向“历史”文件夹添加超链接。默认值是 True。

ExtraInfo     可选 Variant 型。字符串或 Byte 数据的数组，该数据指定定位到超链接的附加信息。例如，该参数可能用来为 .ASP 或 .IDC 文件指定搜索参数。在 Web 浏览器中，extrainfo   参数有可能出现在超链接地址后面，并用问号 (?) 与地址隔开。指定 extrainfo 参数时不必包括问号。

Method   可选 MsoExtraInfoMethod。Integer 值，用于指定 extrainfo   参数的附加方式。method 参数可以是下列固有常量之一：

HeaderInfo     可选 String 型。用于指定页眉信息的字符串。默认情况下，headerinfo   参数是零长度字符串 (" ")。

说明

Follow 方法与单击超链接有相同的效果。

如果要打开一个超链接来响应用户的操作，可以在事件过程中包含 Follow 方法。例如，在用户打开指定的窗体时，可能要打开含有引用信息的网页。

在使用 Follow 方法时，不需要知道控件的 HyperlinkAddress 属性所指定的地址，只需要知道包含该超链接的控件的名称。与此相反，当使用 FollowHyperlink 方法时，需要指定将访问的特定超链接的地址。

示例

下面的示例设置命令按钮的 HyperlinkAddress 属性，然后在加载窗体时打开超链接。

若要试用该示例，请创建一个窗体并添加命令按钮 Command0。将下列代码粘贴到窗体的模块并切换到“窗体”视图：

Private Sub Form_Load()

    Dim ctl As CommandButton

    Set ctl = Me!Command0

    With ctl

        .Visible = False

        .HyperlinkAddress = "http://www.microsoft.com/"

        .Hyperlink.Follow

    End With

End Sub