NavigationControl.Hyperlink 属性 (Access)

使用 Hyperlink 属性可返回对 Hyperlink 对象的引用,以及访问控件超链接的属性和方法。 此为只读属性。

语法

表达式链接

表达 一个代表 NavigationControl 对象的变量。

示例

以下示例中的 CreateHyperlink 过程将命令按钮、标签或图像控件的超链接属性设置为传递给该过程的地址和子地址值。 地址设置是可选参数,因为指向当前数据库中对象的超链接仅使用子地址设置。

若要尝试此示例,请创建一个窗体,其中包含两个文本框控件 (txtAddresstxtSubAddress) ,以及一个命令按钮 (cmdFollowLink) ,并将以下内容粘贴到窗体模块的“声明”部分。

Private Sub cmdFollowLink_Click() 
 CreateHyperlink Me!cmdFollowLink, Me!txtSubAddress, _ 
 Me!txtAddress 
End Sub 
 
Sub CreateHyperlink(ctlSelected As Control, _ 
 strSubAddress As String, Optional strAddress As String) 
 Dim hlk As Hyperlink 
 Select Case ctlSelected.ControlType 
 Case acLabel, acImage, acCommandButton 
 Set hlk = ctlSelected.Hyperlink 
 With hlk 
 If Not IsMissing(strAddress) Then 
 .Address = strAddress 
 Else 
 .Address = "" 
 End If 
 .SubAddress = strSubAddress 
 .Follow 
 .Address = "" 
 .SubAddress = "" 
 End With 
 Case Else 
 MsgBox "The control '" & ctlSelected.Name _ 
 & "' does not support hyperlinks." 
 End Select 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。