DocumentViewerAnnotations Class

Imports Leadtools 
Imports Leadtools.Controls 
Imports Leadtools.Document 
Imports Leadtools.Document.Viewer 
Imports Leadtools.Document.Converter 
Imports Leadtools.Codecs 
Imports Leadtools.Caching 
Imports Leadtools.Annotations.Engine 
Imports Leadtools.Annotations.Automation 
Imports Leadtools.Annotations.WinForms 
Imports Leadtools.Annotations.Designers 
Imports Leadtools.Document.Writer 
Imports Leadtools.Ocr 
 
Public Sub DocumentViewerWithAnnotations_Example() 
   ' New Form to be used as our application 
   Dim form As New MyForm() 
   form.ShowDialog() 
End Sub 
 
Class MyForm 
   Inherits Form 
   Public Sub New() 
      Me.Size = New Size(800, 800) 
      Me.Text = "LEADTOOLS Document Viewer Example" 
   End Sub 
 
   Protected Overrides Sub OnLoad(e As EventArgs) 
      If Not DesignMode Then 
         Init() 
      End If 
 
      MyBase.OnLoad(e) 
   End Sub 
 
   ' Our document viewer instance 
   Private _documentViewer As DocumentViewer 
 
   Private Sub Init() 
      ' Initialize the user interface 
      InitUI() 
 
      ' Init the cache. This is optional, but it can speed up viewing of large documents 
      ' if not needed, remove this section 
      DocumentFactory.Cache = New FileCache() 
 
      ' Init the document viewer, pass along the panels 
      Dim createOptions As New DocumentViewerCreateOptions() 
      ' The middle panel for the view 
      createOptions.ViewContainer = Me.Controls.Find("middlePanel", False)(0) 
      ' The left panel for the thumbnails 
      createOptions.ThumbnailsContainer = Me.Controls.Find("leftPanel", False)(0) 
      ' Using annotations in this example 
      createOptions.UseAnnotations = True 
 
      ' Create the document viewer 
      _documentViewer = DocumentViewerFactory.CreateDocumentViewer(createOptions) 
 
      ' We prefer SVG viewing 
      _documentViewer.View.PreferredItemType = DocumentViewerItemType.Svg 
 
      ' Initialize the annotations 
      InitAnnotations() 
 
      ' Load a document 
      Dim fileName As String = "C:\Users\Public\Documents\LEADTOOLS Images\Leadtools.pdf" 
      Dim loadOptoins As New LoadDocumentOptions() 
      loadOptoins.UseCache = Not IsNothing(DocumentFactory.Cache) 
      Dim Document As LEADDocument = DocumentFactory.LoadFromFile(fileName, loadOptoins) 
 
      ' Set it in the viewer 
      _documentViewer.SetDocument(Document) 
 
      ' Run pan/zoom 
      Dim interactiveComboBox As ComboBox = CType(Me.Controls.Find("interactiveComboBox", True)(0), ComboBox) 
      interactiveComboBox.SelectedItem = DocumentViewerCommands.InteractivePanZoom 
   End Sub 
 
   Private Sub InitAnnotations() 
      ' The annotations toolbar will be added here 
      Dim rightPanel As Control = Me.Controls.Find("rightPanel", True)(0) 
 
      ' Get the automation manager from the document viewer 
      Dim automationManager As AnnAutomationManager = _documentViewer.Annotations.AutomationManager 
      ' Create the manager helper. This sets the rendering engine 
      Dim automationManagerHelper As New AutomationManagerHelper(automationManager) 
      ' Tell the document viewer that automation manager helper is created 
      _documentViewer.Annotations.Initialize() 
 
      ' Create the toolbar 
      automationManagerHelper.ModifyToolBarParentVisiblity = True 
      automationManagerHelper.CreateToolBar() 
      Dim toolBar As ToolBar = automationManagerHelper.ToolBar 
      toolBar.Dock = DockStyle.Fill 
      toolBar.AutoSize = True 
      toolBar.BorderStyle = BorderStyle.None 
      toolBar.Appearance = ToolBarAppearance.Flat 
      rightPanel.Controls.Add(toolBar) 
      toolBar.BringToFront() 
 
      ' Handler for showing the context menu when the user right clicks on an annotation object 
      Dim onShowContextMenu As EventHandler(Of AnnAutomationEventArgs) = 
         Sub(sender, e) 
            ' Get the object type 
            Dim automationObject As AnnAutomationObject = e.Object 
            If automationObject Is Nothing Then Return 
 
            ' Convert the point to client coordinates 
            Dim imageViewer As ImageViewer = _documentViewer.View.ImageViewer 
            Dim position As Point = imageViewer.PointToClient(Cursor.Position) 
            Dim automation As AnnAutomation = _documentViewer.Annotations.Automation 
 
            ' Show its context menu 
            Dim contextMenu As ObjectContextMenu = CType(automationObject.ContextMenu, ObjectContextMenu) 
            If Not IsNothing(contextMenu) Then 
               contextMenu.Automation = automation 
               contextMenu.Show(imageViewer, position) 
            End If 
         End Sub 
 
      ' Handler for show the object properties dialog 
      Dim onShowObjectProperties As EventHandler(Of AnnAutomationEventArgs) = 
         Sub(sender, e) 
            ' Get the automation object from the document viewer 
            Using dlg As New AutomationUpdateObjectDialog() 
               dlg.UserName = _documentViewer.UserName 
               dlg.Automation = CType(sender, AnnAutomation) 
               dlg.ShowDialog(Me) 
               e.Cancel = Not dlg.IsModified 
            End Using 
         End Sub 
 
      ' Handle extra annotations using the Operation event 
      AddHandler _documentViewer.Operation, 
         Sub(sender, e) 
            Select Case e.Operation 
               Case DocumentViewerOperation.LoadingAnnotations 
                  ' Disable the panel where we put the toolbar when we are loading, enable when we are done 
                  rightPanel.Enabled = e.IsPostOperation 
 
               Case DocumentViewerOperation.CreateAutomation 
                  If e.IsPostOperation Then 
                     ' Automation object has been created, use it to perform any extra task not handled by the 
                     ' document viewer by default 
                     ' We will handle showing the context menu when the user right clicks on an object and when they 
                     ' select properties 
                     AddHandler _documentViewer.Annotations.Automation.OnShowContextMenu, onShowContextMenu 
                     AddHandler _documentViewer.Annotations.Automation.OnShowObjectProperties, onShowObjectProperties 
                  End If 
 
               Case DocumentViewerOperation.DestroyAutomation 
                  If Not e.IsPostOperation Then 
                     ' Automation is about to be destroyed, remove any events we used 
                     RemoveHandler _documentViewer.Annotations.Automation.OnShowContextMenu, onShowContextMenu 
                     RemoveHandler _documentViewer.Annotations.Automation.OnShowObjectProperties, onShowObjectProperties 
                  End If 
            End Select 
         End Sub 
   End Sub 
 
   Private Sub InitUI() 
      ' Add a panel on the left for the document viewer thumbnails part 
      Dim leftPanel As New Panel() 
      leftPanel.Name = "leftPanel" 
      leftPanel.Width = 200 
      leftPanel.Dock = DockStyle.Left 
      leftPanel.BackColor = Color.Gray 
      leftPanel.BorderStyle = BorderStyle.FixedSingle 
      Me.Controls.Add(leftPanel) 
 
      ' Add a panel to the right, this will work for the bookmarks or annotations part 
      Dim rightPanel As New Panel() 
      rightPanel.Name = "rightPanel" 
      rightPanel.Width = 200 
      rightPanel.Dock = DockStyle.Right 
      rightPanel.BackColor = Color.LightBlue 
      rightPanel.BorderStyle = BorderStyle.FixedSingle 
      Me.Controls.Add(rightPanel) 
 
      ' Add a panel to fill the rest, for the document viewer 
      Dim middlePanel As New Panel() 
      middlePanel.Name = "middlePanel" 
      middlePanel.BackColor = Color.DarkGray 
      middlePanel.BorderStyle = BorderStyle.None 
      middlePanel.Dock = DockStyle.Fill 
      Me.Controls.Add(middlePanel) 
 
      ' Add a top panel to host our application controls 
      Dim topPanel As New Panel() 
      topPanel.Name = "topPanel" 
      topPanel.Height = 100 
      topPanel.Dock = DockStyle.Top 
      topPanel.BorderStyle = BorderStyle.FixedSingle 
      Me.Controls.Add(topPanel) 
 
      middlePanel.BringToFront() 
 
      ' Add buttons for the UI 
 
      ' Combo box for interactive modes 
      Dim interactiveComboBox As New ComboBox() 
      interactiveComboBox.Name = "interactiveComboBox" 
      interactiveComboBox.DropDownStyle = ComboBoxStyle.DropDownList 
      ' The command names for the items so we can just run them 
      interactiveComboBox.Items.Add(DocumentViewerCommands.InteractivePanZoom) 
      interactiveComboBox.Items.Add(DocumentViewerCommands.InteractiveSelectText) 
      AddHandler interactiveComboBox.SelectedIndexChanged, 
         Sub(sender, e) 
            Dim commandName As String = CType(interactiveComboBox.SelectedItem, String) 
            _documentViewer.Commands.Run(commandName) 
         End Sub 
      topPanel.Controls.Add(interactiveComboBox) 
 
      ' Generic label for information used by the examples 
      Dim infoLabel As New Label() 
      infoLabel.Name = "infoLabel" 
      infoLabel.Text = "Info..." 
      infoLabel.AutoSize = False 
      infoLabel.Width = 400 
      infoLabel.Left = interactiveComboBox.Right + 20 
      topPanel.Controls.Add(infoLabel) 
 
      Dim exampleButton As New Button() 
      exampleButton.Top = interactiveComboBox.Bottom + 2 
      exampleButton.Name = "exampleButton" 
      exampleButton.Text = "&Example" 
      AddHandler exampleButton.Click, Sub(sender, e) Example(exampleButton) 
      topPanel.Controls.Add(exampleButton) 
   End Sub 
 
   Private Sub Example(exampleButton As Button) 
      ' Add the example code here 
      MessageBox.Show(Me, "Ready") 
   End Sub