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.

Private Sub Lead1_AnnChange(ByVal hObject As Long)
    Dim msgstr As String
    Dim nType As Integer
    Dim iParamCount As Integer
    Dim lRet As Long
    
    nType = Lead1.AnnGetHyperlinkType(hObject)
    If (nType = ANNLINK_ANNEVENT5) Then
        msgstr = "Params are: " & Chr(13)
        For iParamCount = 0 To 4
            lRet = Lead1.AnnGetHyperlinkParam(hObject, iParamCount)
            msgstr = msgstr & "   Param" & CStr(iParamCount + 1) & ": " & CStr(lRet) & Chr(13)
        Next
    Else
        msgstr = "Invalid Type"
    End If
    MsgBox msgstr
End Sub