ShowHTMLMapperDlg Example for Visual Basic

Private Sub HTMLMapper_Click()
   RasterWebDlg.UIFlags = 0
   RasterWebDlg.Bitmap = LEADRasterView1.Raster
   RasterWebDlg.URLMaxLength = 35
   RasterWebDlg.ALTMaxLength = 35
   RasterWebDlg.TargetMaxLength= 10
   RasterWebDlg.RolloverMaxLength= 255

   RasterWebDlg.URLEntryCount = 5
   RasterWebDlg.ALTEntryCount = 5
   RasterWebDlg.TargetEntryCount = 5
   RasterWebDlg.RolloverEntryCount = 5

   RasterWebDlg.URLValidEntryCount = 2
   RasterWebDlg.ALTValidEntryCount = 1
   RasterWebDlg.TargetValidEntryCount = 1
   RasterWebDlg.RolloverValidEntryCount = 3

   RasterWebDlg.URL(0) = "http://www.medicorimaging.com/"
   RasterWebDlg.URL(1) = "http://www.leadtools.com/"

   RasterWebDlg.ALT(0) = "LEADTOOLS Online!" 

   RasterWebDlg.Target(0) = "_parent"

   RasterWebDlg.Rollover(0) = "e:\images\image3.jpg"
   RasterWebDlg.Rollover(1) = "e:\images\image2.jpg"
   RasterWebDlg.Rollover(2) = "e:\images\image1.jpg"

   RasterWebDlg.ShowHTMLMapperDlg hWnd

End Sub