Le portail francophone de la géomatique

Private Sub form_load()
    Dim X, Y As Integer
    Dim pt As New Point
    Dim ftrCircle As Feature
    Dim li As New MapXLib.LayerInfo
    Dim ftrs As MapXLib.Features
    Dim ds As MapXLib.Dataset
    
    'création d'un layer
    Set ds = Map1.DataSets.Add(miDataSetLayer, Map1.Layers("World Countries"))
    Set ftrs = Map1.Layers.Item("World Countries").Selection.Clone
    
    li.Type = miLayerInfoTypeNewTable
    li.AddParameter "Name", "alertes"
    li.AddParameter "FileSpec", App.Path & "\test.tab"
    li.AddParameter "Features", ftrs
    li.AddParameter "OverWriteFile", True
    'le layer est créé quand on le rajoute à la collection
    Map1.Layers.Add li
    
    X = Map1.CenterX
    Y = Map1.CenterY
    pt.Set X, Y
    Set ftrCircle = Map1.FeatureFactory.CreateCircularRegion(miCircleTypeScreen, pt, 222)
    Map1.Layers.Item("test").AddFeature ftrCircle
    Map1.Layers.Item("test").Visible = True
End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim pnt As New MapXLib.Point
    Dim ftr As New MapXLib.Feature
    Dim mx As Double
    Dim my As Double
    
    Map1.ConvertCoord X, Y, mx, my, miScreenToMap
    pnt.Set mx, my
    Set ftr = Map1.FeatureFactory.CreateCircularRegion(miCircleTypeScreen, pnt, 222, Map1.MapUnit)
    Map1.Layers.Item("test").AddFeature ftr
End Sub