Follow 方法

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 参数可以是下列固有常量之一：

MsoExtraInfoMethod 可以是下列 MsoExtraInfoMethod 常量之一：
msoMethodGet 默认。extrainfo 参数将附加到超链接地址且只能是字符串。默认情况下将传递该值。
msoMethodPost。extrainfo 参数作为字符串或 Byte 数据类型的数组进行投递。
HeaderInfo     可选 String 型。用于指定页眉信息的字符串。默认情况下，headerinfo   参数是零长度字符串 (" ")。

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

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

Private Sub Form_Load()
    Dim ctl As CommandButton

    Set ctl = Me!Command0
    With ctl
        .Visible = False
        .HyperlinkAddress = "http://www.accessoft.com/"
        .Hyperlink.follow
    End With
End Sub