ShowPNGWebTunerDlg Example for Visual Basic

Dim WithEvents  RasterWebDlg As LEADRasterDlgWeb
Dim RasterProc   As New LEADRasterProcess
Dim nRet As Integer

Private Sub PNGWebTuner_Click()
   RasterWebDlg.TransparentColor= RGB(255, 255, 255) 
   RasterWebDlg.PaletteType= CRP_FIXEDPALETTE
   RasterWebDlg.EnableWindowsColors= True
   RasterWebDlg.DitherType= CRD_FLOYDSTEINDITHERING
   RasterWebDlg.BitsPerPixel = 8
   RasterWebDlg.NumberOfColors = 256
   RasterWebDlg.TransparencyTolerance = 25
   RasterWebDlg.EnableTransparent = True

   RasterWebDlg.UIFlags= PNGWEBTUNER_SHOW_INFORMATION + _
                          PNGWEBTUNER_SHOW_PREVIEW + _
                          PNGWEBTUNER_SHOW_TOOL_ZOOMLEVEL + _
                          PNGWEBTUNER_SHOW_TOOL_COLORPICKER + _
                          PNGWEBTUNER_SHOW_TRANSPARENCY + _
                          PNGWEBTUNER_SHOW_ADDWINDOWCOLOR

   RasterWebDlg.Bitmap= LEADRasterView1.Raster
   RasterWebDlg.ShowHelpButton= True
   RasterWebDlg.EnableZoomToFit= False

   nRet = RasterWebDlg.ShowPNGWebTunerDlg(hWnd) 
   If (nRet = 0 And RasterWebDlg.DialogStatus = DLG_OK) Then
               RasterProc.ColorRes LEADRasterView1.Raster, _
                                 RasterWebDlg.BitsPerPixel, _
                                 RasterWebDlg.PaletteType, _
                                 RasterWebDlg.DitherType, _
                                 0
   End If
End Sub
'---------------------------------------------------------------------------

Private Sub RasterWebDlg_DlgHelp(ByVal DlgFrom As Long, ByVal CtlID As Long) 
   Select Case DlgFrom
      Case HELP_PNGWEBTUNER
         MsgBox " Help from PNG Web Tuner dialog "
      
      Case HELP_GIFWEBTUNER
         MsgBox " Help from GIF Web Tuner dialog "
   
      Case HELP_JPEGWEBTUNER
         MsgBox " Help from JPEG Web Tuner dialog "
   
      Case HELP_HTMLMAPPER
         MsgBox " Help from HTMLMapper dialog "
      End Select
End Sub