全部显示

Follow 方法

       

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

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

expression   必需。返回“Applies To”列表中的一个对象的表达式。

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

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

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

Method  可选 MsoExtraInfoMethodInteger 型值,用于指定 extrainfo 参数的附加方式。method 参数可以是下列固有常量之一:

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

说明

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

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

在使用 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