ListBox. Hyperlink-Eigenschaft (Access)ListBox.Hyperlink property (Access)

Sie können die Hyperlink -Eigenschaft verwenden, um einen Verweis auf ein Hyperlink -Objekt zurückzugeben und auf die Eigenschaften und Methoden des Hyperlinks eines Steuerelements zuzugreifen.You can use the Hyperlink property to return a reference to a Hyperlink object and to access the properties and methods of a control's hyperlink. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. Hyperlinkexpression.Hyperlink

Ausdruck Eine Variable, die ein ListBox -Objekt darstellt.expression A variable that represents a ListBox object.

BeispielExample

Mit **** der CreateHyperlink-Prozedur im folgenden Beispiel werden die Hyperlink-Eigenschaften für eine Befehlsschaltfläche, ein Label-oder ein Image-Steuerelement auf die an die Prozedur übergebenen Adress-und unter Adresswerte festgelegt.The CreateHyperlink procedure in the following example sets the hyperlink properties for a command button, label, or image control to the address and subaddress values passed to the procedure. Die Einstellung address ist ein optionales Argument, da ein Hyperlink zu einem Objekt in der aktuellen Datenbank nur die unter Adresseinstellung verwendet.The address setting is an optional argument, because a hyperlink to an object in the current database uses only the subaddress setting.

Um dieses Beispiel zu testen, erstellen Sie ein Formular mit zwei Textfeld-Steuerelementen (txtadresse und txtSubAddress) und einer Befehlsschaltfläche (cmdFollowLink), und fügen Sie Folgendes in den Deklarationsabschnitt des Formularmoduls ein.To try this example, create a form with two text box controls (txtAddress and txtSubAddress) and a command button (cmdFollowLink), and paste the following into the Declarations section of the form's module.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.