Свойство WebBrowserControl.Hyperlink (Access)

Свойство Hyperlink используется для возврата ссылки на объект Hyperlink , а также для доступа к свойствам и методам гиперссылки элемента управления. Только для чтения.

Синтаксис

выражение. Гиперссылка

выражение Переменная, представляющая объект WebBrowserControl .

Пример

Процедура CreateHyperlink в следующем примере задает свойства гиперссылки для команды, метки или элемента управления изображения для значений адреса и субадреса, переданных процедуре. Параметр адреса является необязательным, так как гиперссылка на объект в текущей базе данных использует только параметр субадреса.

Чтобы проверить этот пример, создайте форму с двумя элементами управления текстовыми полями (txtAddress и txtSubAddress) и командной кнопкой (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 и обратная связь.