Access VBA教程:FollowHyperlink方法

FollowHyperlink方法可打开由超链接地址指定的文档或 Web 页。

expression.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)

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

Address  必需,String 型。确定有效超链接地址的字符串表达式。

SubAddress  可选,String 型。字符串表达式,用于确定由 address参数指定的文档中的命名位置。默认值为空字符串 (" ")。

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 default。extrainfo 参数将附加到超链接地址且只能是字符串。在默认情况下将传递该值。
msoMethodPost。extrainfo参数作为字符串或 Byte 数据类型的数组传递。

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

说明

通过使用 FollowHyperlink方法,可以跟随一个不存在于控件中的超链接。该超链接可以由您或其他用户提供。例如,可以提示用户在对话框中输入超链接地址,然后使用 FollowHyperlink方法来跟随该超链接。

浏览到某个超链接时,可以使用 extrainfo 和 method参数来提供其他信息。例如,可以为搜索引擎提供参数。

可以使用Follow方法来跟随与控件相关联的超链接。

VBA示例

下列函数提示用户输入一个超链接地址,然后跟随该超链接:


Function GetUserAddress() As Boolean
    Dim strInput As String
    On Error GoTo Error_GetUserAddress
    strInput = InputBox("Enter a valid address")
    Application.FollowHyperlink strInput, , True
    GetUserAddress = True
Exit_GetUserAddress:
    Exit Function
Error_GetUserAddress:
    MsgBox Err & ": " & Err.Description
    GetUserAddress = False
    Resume Exit_GetUserAddress
End Function

可以用以下的过程来调用该函数:


Sub CallGetUserAddress()
    If GetUserAddress = True Then
        MsgBox "Successfully followed hyperlink."
    Else
        MsgBox "Could not follow hyperlink."
    End If
End Sub

上页:Access VBA教程:Follow方法 下页:Access VBA教程:GetHiddenAttribute方法

Access VBA教程:FollowHyperlink方法

Access VBA教程:GetHiddenAttribute方法 Access VBA教程:GetOption方法
Access VBA教程:GoToPage方法 Access VBA教程:GUIDFromString方法
Access VBA教程:HyperlinkPart方法 Access VBA教程:ImportXML方法
Access VBA教程:InsertLines方法 Access VBA教程:InsertText方法
Access VBA教程:Item方法 Access VBA教程:Line方法
Access VBA教程:Modify方法 Access VBA教程:Move方法
Access VBA教程:NewAccessProject方法 Access VBA教程:NewCurrentDatabase方法
Access VBA教程:Nz函数 Access VBA教程:OfflineConflict方法
Access VBA教程:OpenAccessProject方法 Access VBA教程:OpenConnection方法
Access VBA教程:OpenCurrentDatabase方法 Access VBA教程:OpenFunction方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号