AnnGetHyperlinkString example for Visual Basic
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