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 
 
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 
      For i As Integer = 0 To openDlg.OpenedFileData.Count 
         Dim fileDataItem As RasterDialogFileData = CType(openDlg.OpenedFileData(i), RasterDialogFileData) 
 
         ' this is not an image file. 
         If fileDataItem.Options Is Nothing Then 
            Continue For 
         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 
                  Continue For 
               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 
               rasterCodecs.Options.Xls.Load.MultiPageEnableMargins = fileDataItem.Options.XlsOptions.MultiPageEnableMargins 
               rasterCodecs.Options.Xls.Load.MultiPageUseSheetWidth = fileDataItem.Options.XlsOptions.MultiPageUseSheetWidth 
               rasterCodecs.Options.Xls.Load.PageOrderDownThenOver = fileDataItem.Options.XlsOptions.PageOrderDownThenOver 
               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() 
      Next 
   End If 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\LEADTOOLS21\Resources\Images" 
End Class