ImageAreaBase Class

Public MustInherit Class ImageAreaBase
	Implements IImageArea

public ref class ImageAreaBase abstract : IImageArea

[<AbstractClassAttribute>]
type ImageAreaBase = 
    class
        interface IImageArea
    end

Imports EWSoftware.ImageMaps
Imports EWSoftware.ImageMaps.Windows.Forms

' Example code that creates an image map and adds some image areas
Dim WithEvents imMap As ImageMap = New ImageMap()

Dim ImageAreaRectangle1 As ImageAreaRectangle = New ImageAreaRectangle()
Dim ImageAreaCircle1 As ImageAreaCircle = New ImageAreaCircle()
Dim ImageAreaPolygon1 As ImageAreaPolygon = New ImageAreaPolygon()
Dim ImageAreaRectangle2 As ImageAreaRectangle = New ImageAreaRectangle()
Dim ImageAreaEllipse1 As New ImageAreaEllipse()

ImageAreaRectangle1.AccessKey = "R"
ImageAreaRectangle1.Rectangle = New System.Drawing.Rectangle(16, 16, 150, 94)
ImageAreaRectangle1.TabIndex = 3
ImageAreaRectangle1.ToolTip = "A rectangle area"

ImageAreaCircle1.AccessKey = "C"
ImageAreaCircle1.CenterPoint = New System.Drawing.Point(380, 88)
ImageAreaCircle1.Radius = 60
ImageAreaCircle1.TabIndex = 1
ImageAreaCircle1.ToolTip = "A circle area"

ImageAreaPolygon1.AccessKey = "P"
ImageAreaPolygon1.Points.AddRange( New System.Drawing.Point() {
    New System.Drawing.Point(42, 186),
    New System.Drawing.Point(110, 286),
    New System.Drawing.Point(144, 250),
    New System.Drawing.Point(138, 230),
    New System.Drawing.Point(160, 216),
    New System.Drawing.Point(190, 214),
    New System.Drawing.Point(152, 168),
    New System.Drawing.Point(112, 172),
    New System.Drawing.Point(70, 154)})

ImageAreaPolygon1.TabIndex = 2
ImageAreaPolygon1.ToolTip = "A polygon area"

ImageAreaRectangle2.Action = EWSoftware.ImageMaps.Windows.Forms.AreaClickAction.None
ImageAreaRectangle2.Rectangle = New System.Drawing.Rectangle(316, 176, 206, 118)
ImageAreaRectangle2.ToolTip = "A tool tip only area"

ImageAreaEllipse1.AccessKey = "E"
ImageAreaEllipse1.Ellipse = new System.Drawing.Rectangle(199, 88, 128, 58)
ImageAreaEllipse1.TabIndex = 4
ImageAreaEllipse1.ToolTip = "An ellipse area"

imMap.Areas.AddRange(New EWSoftware.ImageMaps.IImageArea() {
    ImageAreaRectangle1,
    ImageAreaCircle1,
    ImageAreaPolygon1,
    ImageAreaRectangle2
    ImageAreaEllipse1 })

imMap.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top _
    Or System.Windows.Forms.AnchorStyles.Bottom) _
    Or System.Windows.Forms.AnchorStyles.Left) _
    Or System.Windows.Forms.AnchorStyles.Right), _
    System.Windows.Forms.AnchorStyles)

imMap.Image = CType(resources.GetObject("imMap.Image"), System.Drawing.Image)
imMap.Location = New System.Drawing.Point(8, 8)
imMap.Name = "imMap"
imMap.Size = New System.Drawing.Size(552, 448)
imMap.TabIndex = 0
imMap.ToolTip = "A test image"

' A simple image area click event handler
Private Sub imMap_Click(ByVal sender As Object, _
  ByVal e As ImageMapClickEventArgs) Handles imMap.Click
    MessageBox.Show(String.Format( _
        "You clicked area #{0} ({1}) at point {2}, {3}", _
        e.AreaIndex + 1, imMap.Areas(e.AreaIndex).ToolTip, _
        e.XCoordinate, e.YCoordinate), "Image Map Clicked", _
        MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.