RasterOpenDialog Class

Imports Leadtools 
   Imports Leadtools.Codecs 
   Imports Leadtools.WinForms.CommonDialogs.File 
 
   Public Sub openDlg_Help(ByVal sender As Object, ByVal e As RasterDialogHelpEventArgs) Handles openDlg.Help 
      Select Case e.Dialog 
         Case RasterDialogHelpName.Open 
            MessageBox.Show("Open dialog Help") 
            Exit Select 
         Case RasterDialogHelpName.LoadOptions 
            MessageBox.Show("Load Options dialog Help") 
            Exit Select 
      End Select 
   End Sub 
 
   Public Sub openDlg_LoadProgress(ByVal sender As Object, ByVal e As RasterDialogLoadProgressEventArgs) Handles openDlg.LoadProgress 
      Dim displayText As String 
 
      displayText = "(" & e.FilePercent.ToString() & "%) of" & e.LoadRasterFileData.Name & "file is loaded" 
      MessageBox.Show(displayText) 
 
      displayText = "(" & e.TotalPercent.ToString() & "%) of all file(s) loading process is completed" 
      MessageBox.Show(displayText) 
   End Sub 
 
   WithEvents openDlg As RasterOpenDialog 
 
   <TestMethod()> _ 
   Public Sub RasterOpenDialogExample() 
      Dim rasterCodecs As RasterCodecs = New RasterCodecs() 
 
      openDlg = New RasterOpenDialog(rasterCodecs) 
 
      openDlg.Filter = New RasterOpenDialogLoadFormat() {New RasterOpenDialogLoadFormat("All Files", "*.*"), New RasterOpenDialogLoadFormat("LEAD", "*.cmp")} 
 
      openDlg.CheckFileExists = True 
      openDlg.CheckPathExists = True 
      openDlg.DefaultExt = "cmp" 
      openDlg.DereferenceLinks = True 
      openDlg.EnableSizing = True 
      openDlg.FileName = "Image.cmp" 
      openDlg.FilterIndex = 2 
      openDlg.GenerateThumbnail = False 
      openDlg.InitialDirectory = LEAD_VARS.ImagesDir 
      openDlg.InitialView = FileDialogInitialView.List 
      openDlg.LoadCompressed = True 
      openDlg.LoadFileImage = False 
      openDlg.LoadOptions = False 
      openDlg.LoadRotated = False 
      openDlg.Multiselect = True 
      openDlg.PreviewWindowVisible = True 
      openDlg.ShowDeletePage = True 
      openDlg.ShowFileInformation = True 
      openDlg.ShowGeneralOptions = True 
      openDlg.ShowHelp = True 
      openDlg.ShowLoadCompressed = True 
      openDlg.ShowLoadOptions = True 
      openDlg.ShowLoadRotated = True 
      openDlg.ShowMultipage = True 
      openDlg.ShowPdfOptions = True 
      openDlg.ShowXpsOptions = True 
      openDlg.ShowXlsOptions = True 
      openDlg.ShowVffOptions = True 
      openDlg.ShowAnzOptions = True 
      openDlg.ShowVectorOptions = True 
      openDlg.ShowPreview = True 
      openDlg.ShowProgressive = True 
      openDlg.ShowRasterOptions = True 
      openDlg.ShowTotalPages = True 
      openDlg.Title = "Open Dialog" 
      openDlg.UseFileStamptoPreview = True 
      openDlg.LoadCorrupted = True 
 
      If DialogResult.OK = openDlg.ShowDialog(Nothing) Then 
         Dim i As Integer = 0 
         Do While i < openDlg.OpenedFileData.Count 
            Dim fileDataItem As RasterDialogFileData = CType(openDlg.OpenedFileData(i), RasterDialogFileData) 
 
            ' this is not an image file. 
            If fileDataItem.Options Is Nothing Then 
               GoTo Continue1 
            End If 
 
            rasterCodecs.Options.RasterizeDocument.Load.PageWidth = fileDataItem.Options.RasterizeDocumentOptions.PageWidth 
            rasterCodecs.Options.RasterizeDocument.Load.PageHeight = fileDataItem.Options.RasterizeDocumentOptions.PageHeight 
            rasterCodecs.Options.RasterizeDocument.Load.LeftMargin = fileDataItem.Options.RasterizeDocumentOptions.LeftMargin 
            rasterCodecs.Options.RasterizeDocument.Load.TopMargin = fileDataItem.Options.RasterizeDocumentOptions.TopMargin 
            rasterCodecs.Options.RasterizeDocument.Load.RightMargin = fileDataItem.Options.RasterizeDocumentOptions.RightMargin 
            rasterCodecs.Options.RasterizeDocument.Load.BottomMargin = fileDataItem.Options.RasterizeDocumentOptions.BottomMargin 
            rasterCodecs.Options.RasterizeDocument.Load.Unit = fileDataItem.Options.RasterizeDocumentOptions.Unit 
            rasterCodecs.Options.RasterizeDocument.Load.XResolution = fileDataItem.Options.RasterizeDocumentOptions.XResolution 
            rasterCodecs.Options.RasterizeDocument.Load.YResolution = fileDataItem.Options.RasterizeDocumentOptions.YResolution 
            rasterCodecs.Options.RasterizeDocument.Load.SizeMode = fileDataItem.Options.RasterizeDocumentOptions.SizeMode 
 
            Select Case fileDataItem.Options.FileType 
               Case RasterDialogFileOptionsType.Meta 
                  If Not Nothing Is fileDataItem.Options.MetaOptions Then 
                     rasterCodecs.Options.Wmf.Load.XResolution = fileDataItem.Options.MetaOptions.XResolution 
                     rasterCodecs.Options.Wmf.Load.YResolution = fileDataItem.Options.MetaOptions.XResolution 
                  End If 
                  Exit Select 
 
               Case RasterDialogFileOptionsType.Pdf 
                  If (Not Nothing Is fileDataItem.Options.PdfOptions) AndAlso rasterCodecs.Options.Pdf.IsEngineInstalled Then 
                     rasterCodecs.Options.Pdf.Load.DisplayDepth = fileDataItem.Options.PdfOptions.DisplayDepth 
                     rasterCodecs.Options.Pdf.Load.GraphicsAlpha = fileDataItem.Options.PdfOptions.GraphicsAlpha 
 
                     If Not fileDataItem.Options.PdfOptions.Password Is Nothing Then 
                        rasterCodecs.Options.Pdf.Load.Password = fileDataItem.Options.PdfOptions.Password 
                     End If 
 
                     rasterCodecs.Options.Pdf.Load.TextAlpha = fileDataItem.Options.PdfOptions.TextAlpha 
                     rasterCodecs.Options.Pdf.Load.UseLibFonts = fileDataItem.Options.PdfOptions.UseLibFonts 
                  End If 
                  Exit Select 
 
               Case RasterDialogFileOptionsType.Misc 
                  If Nothing Is fileDataItem.Options.MiscOptions Then 
                     GoTo Continue1 
                  End If 
 
                  Select Case fileDataItem.FileInfo.Format 
                     Case RasterImageFormat.Jbig 
                        rasterCodecs.Options.Jbig.Load.Resolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _ 
                                                                                 fileDataItem.Options.MiscOptions.YResolution) 
                        Exit Select 
 
                     Case RasterImageFormat.Cmw 
                        rasterCodecs.Options.Jpeg2000.Load.CmwResolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _ 
                                                                                        fileDataItem.Options.MiscOptions.YResolution) 
                        Exit Select 
 
                     Case RasterImageFormat.Jp2 
                        rasterCodecs.Options.Jpeg2000.Load.Jp2Resolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _ 
                                                                                        fileDataItem.Options.MiscOptions.YResolution) 
                        Exit Select 
 
                     Case RasterImageFormat.J2k 
                        rasterCodecs.Options.Jpeg2000.Load.J2kResolution = New LeadSize(fileDataItem.Options.MiscOptions.XResolution, _ 
                                                                                        fileDataItem.Options.MiscOptions.YResolution) 
                        Exit Select 
                  End Select 
                  Exit Select 
               Case RasterDialogFileOptionsType.Xls 
                  rasterCodecs.Options.Xls.Load.MultiPageSheet = fileDataItem.Options.XlsOptions.MultiPageSheet 
                  Exit Select 
               Case RasterDialogFileOptionsType.Vff 
                  rasterCodecs.Options.Vff.Load.View = fileDataItem.Options.VffOptions.View 
                  Exit Select 
               Case RasterDialogFileOptionsType.Anz 
                  rasterCodecs.Options.Anz.Load.View = fileDataItem.Options.AnzOptions.View 
                  Exit Select 
               Case RasterDialogFileOptionsType.Vector 
                  rasterCodecs.Options.Vector.Load.BackgroundColor = fileDataItem.Options.VectorOptions.Options.BackgroundColor 
                  rasterCodecs.Options.Vector.Load.BitsPerPixel = fileDataItem.Options.VectorOptions.Options.BitsPerPixel 
                  rasterCodecs.Options.Vector.Load.ForceBackgroundColor = fileDataItem.Options.VectorOptions.Options.ForceBackgroundColor 
                  rasterCodecs.Options.Vector.Load.ViewHeight = fileDataItem.Options.VectorOptions.Options.ViewHeight 
                  rasterCodecs.Options.Vector.Load.ViewMode = fileDataItem.Options.VectorOptions.Options.ViewMode 
                  rasterCodecs.Options.Vector.Load.ViewWidth = fileDataItem.Options.VectorOptions.Options.ViewWidth 
                  Exit Select 
            End Select 
 
            rasterCodecs.Options.Load.Passes = fileDataItem.Passes 
            rasterCodecs.Options.Load.Rotated = fileDataItem.LoadRotated 
            rasterCodecs.Options.Load.Compressed = fileDataItem.LoadCompressed 
 
            Dim loadedImage As RasterImage = rasterCodecs.Load(fileDataItem.Name, 0, CodecsLoadByteOrder.BgrOrGray, fileDataItem.PageNumber, fileDataItem.PageNumber) 
 
            ' COPY THE 'loadedImage' IMAGE. 
 
            loadedImage.Dispose() 
Continue1: 
            i += 1 
         Loop 
      End If 
   End Sub 
 
   Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
   End Class