AnnLoadArray example for Visual Basic

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

Private Sub AnnLoadArray_Click()
Dim RasterVar As New LEADRasterVariant
RasterVar.Type = VALUE_STRING
Open "c:\test.ann" For Binary Access Read As #1
RasterVar.StringValue = Input(4000, #1) 
RasterAnn.AnnLoadArray RasterVar, 4000, 1
Close #1
End Sub