AnnDeletePage Example for Visual Basic

'This sample saves the annotations as the first page of a multipage annotation file
'The format is specified by the 'uFormat' parameter (either ANN_FMT_NATIVE or ANN_FMT_ENCODED)
'The annotations are flipped, and saved as the second page
'The annotations are rotated, and saved as the third page
'Information is displayed about the annotation file
'The second page is deleted, and information is again displayed about the annotation file
Private Sub SampleAnnSave(strFileName As String, uFormat As AnnFMTConstants)
   Dim nRet As Integer
   Dim strFormat As String
   Dim strMsg As String

   'Save as the first page of the annotation file
   RasterAnn.AnnSave strFileName, uFormat, False, SAVE_OVERWRITE, 0

   'Flip the container, and save as the second page (insert before page 2)
   RasterAnn.AnnFlip True, LEADRasterView1.Raster.BitmapHeight / 2, False
   RasterAnn.AnnSave strFileName, uFormat, False, SAVE_INSERT, 2

   'Rotate the container, and save as the third page
   'Here we could pass the SAVE_INSERT flag and 3 for nPage,
   'but instead we will use the SAVE_APPEND flag
   RasterAnn.AnnRotate False, LEADRasterView1.Raster.BitmapWidth / 2, LEADRasterView1.Raster.BitmapHeight / 2, 45, False
   RasterAnn.AnnSave strFileName, uFormat, False, SAVE_APPEND, 0

   'Verify contents of file
   nRet = RasterAnn.AnnFileInfo (strFileName)
    If (nRet = 0) Then
        Select Case RasterAnn.AnnInfoFormat
           Case ANN_FMT_NATIVE             strFormat = "ANN_FMT_NATIVE"
           Case ANN_FMT_WMF
             strFormat = "ANN_FMT_WMF"
           Case ANN_FMT_ENCODED
             strFormat = "ANN_FMT_ENCODED"
           Case Else
             strFormat = "Unknown"
        End Select

        strMsg = "File: " + strFileName + Chr(13)
        strMsg = strMsg + "Format: " + strFormat + Chr(13)
        strMsg = strMsg + "Version: " + Str(RasterAnn.AnnInfoVersion) + Chr(13)
        strMsg = strMsg + "Total Pages: " + Str(RasterAnn.AnnInfoTotalPages) + Chr(13)

        MsgBox strMsg
    Else
        MsgBox "Invalid Annotation File: " + strFileName
    End If

   'Now delete the second page, and display information
   RasterAnn.AnnDeletePage strFileName, 2

   'Verify contents of file
   nRet = RasterAnn.AnnFileInfo (strFileName)
    If (nRet = 0) Then
        Select Case RasterAnn.AnnInfoFormat
           Case ANN_FMT_NATIVE                  ' Cut command.
             strFormat = "ANN_FMT_NATIVE"
           Case ANN_FMT_WMF                ' Copy command.
             strFormat = "ANN_FMT_WMF"
           Case ANN_FMT_ENCODED                 ' Clear command.
             strFormat = "ANN_FMT_ENCODED"
           Case Else
             strFormat = "Unknown"
        End Select

        strMsg = "File: " + strFileName + Chr(13)
        strMsg = strMsg + "Format: " + strFormat + Chr(13)
        strMsg = strMsg + "Version: " + Str(RasterAnn.AnnInfoVersion) + Chr(13)
        strMsg = strMsg + "Total Pages: " + Str(RasterAnn.AnnInfoTotalPages) + Chr(13)

        MsgBox strMsg
    Else
        MsgBox "Invalid Annotation File: " + strFileName
    End If
End Sub