Hi,

Probably a stupid question...
I need to display more than one selection at the same time one the map
 with different colors )
I also do not want to use a thematics ( for some reason to long to
explain ).
Some I want to to do something like the code below. But when I execute the
following code
the colors are not modifyed... Why ????


Dim f As Feature
    Dim fn As Feature


    Dim li As New LayerInfo
    Dim l As Layer

    Map1.Layers

    li.Type = miLayerInfoTypeTab
    li.AddParameter "FileSpec", "C:\temp\B_PC4_mod.TAB"
    li.AddParameter "Name", "postal"



    Set l = Map1.Layers.Add(li)


    l.Editable = True


    l.KeyField = "Pc4_Code"
    l.OverrideStyle = True
    For Each f In l.AllFeatures
        If f.KeyValue = "5660" Then
            f.Style.PickRegion
            f.Update True
            Exit For
        End If
    Next f

Regards,

Michel Van Asten



---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 3193

Reply via email to