Hyperlink 屬性

全部顯示

使用 Hyperlink 屬性可以返回對 Hyperlink 對象的引用。Hyperlink 屬性可用來訪問與命令按鈕、圖像、標簽控件關聯(lián)的 Hyperlink 對象的屬性和方法。只讀。

expression.Hyperlink

expression    必需。返回“應用于”列表中的一個對象的表達式。

說明

Hyperlink 屬性僅在使用 Visual Basic 時才可用。

示例

在下面的示例中，CreateHyperlink 過程將命令按鈕、標簽或圖像控件的超鏈接屬性設置為傳遞到過程的地址和子地址值。地址設置是可選參數(shù)，因為鏈接到當前數(shù)據(jù)庫中對象的超鏈接只使用子地址設置。若要測試此示例，請創(chuàng)建一個含有兩個文本框控件（txtAddress 和 txtSubAddress）和一個命令按鈕 (cmdFollowLink) 的窗體，并將下列代碼粘貼到窗體模塊的“聲明”節(jié)。

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