AnnGetHyperlinkParam example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

This example retrieves parameters using AnnGetHyperlinkParam.

'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

Private Sub AnnGetHyperlinkParam_Click()
Dim nParam0 As Long
Dim nParam1 As Long
Dim nParam2 As Long
Dim nParam3 As Long
Dim nParam4 As Long

RasterAnn.AnnSetHyperlinkMsg hGlobalAnn, ANN_LINK_ANNEVENT5, 1, 2, 3, 4, 5

RasterAnn.AnnGetHyperlinkParam hGlobalAnn, 0
 nParam0 = RasterAnn.AnnHyperlinkParam
RasterAnn.AnnGetHyperlinkParam hGlobalAnn, 1
 nParam1 = RasterAnn.AnnHyperlinkParam
RasterAnn.AnnGetHyperlinkParam hGlobalAnn, 2
 nParam2= RasterAnn.AnnHyperlinkParam
RasterAnn.AnnGetHyperlinkParam hGlobalAnn, 3
nParam3 = RasterAnn.AnnHyperlinkParam
RasterAnn.AnnGetHyperlinkParam hGlobalAnn, 4
 nParam4 = RasterAnn.AnnHyperlinkParam

MsgBox "HyperlinkParams: " & nParam0 & "," & nParam1 & "," & nParam2 & "," & nParam3 & "," & nParam4
End Sub