AnnGetHyperlinkString example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

The following example places calls to both the AnnSetHyperlinkString method and the AnnGetHyperlinkString method.

Private Sub Lead1_AnnHyperlinkMenu(ByVal aObjects As Variant, ByVal uCount As Integer)
Dim x As Integer
Dim linkstr As String

    'Set AnnHyperLink to a URL
    For x = 0 To uCount - 1
        Lead1.AnnSetHyperlinkString aObjects(x), ANNLINK_WEBPAGE, "http://www.leadtools.com"
        'get the string to see what got set
        linkstr = Lead1.AnnGetHyperlinkString(aObjects(x))
        MsgBox linkstr
    Next
End Sub