AnnGetHyperlinkString example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

'Please note the following:
'LEADRasterView1 refers to a LEADRasterView control
'Global declarations
Private WithEvents RasterAnn As LEADRasterAnnotation
Private RasterAnnToolbar As LEADRasterAnnToolBar

'In the Form_Load method:
Set RasterAnn = New LEADRasterAnnotation
Set RasterAnnToolbar = New LEADRasterAnnToolBar
RasterAnn.AnnParentRasterView = LEADRasterView1

'This examples assumes that hGlobalAnn is a handle to a button annotation.
'A hyperlink string is set and retrieved
Private Sub AnnGetHyperlinkString_Click()
Dim szString As String
RasterAnn.AnnSetHyperlinkString hGlobalAnn, ANN_LINK_WEBPAGE, "http://www.leadtools.com"
RasterAnn.AnnGetHyperlinkString hGlobalAnn
szString = RasterAnn.AnnHyperlinkString
MsgBox szString
End Sub