creattable.bas

一个交通专用的gis-T系统

Attribute VB_Name = "CreatTable"
Public Node_Layer As Layer
Public Node_Fea As MapXLib.Feature
Public Link_Layer As Layer
Public Link_Fea As MapXLib.Feature

Public Sub CreatLayers()

'清除原来图层
    Main.Mapshow.Datasets.RemoveAll
    Main.Mapshow.Layers.RemoveAll
    Main.Mapshow.Refresh
        


'创建2个图层

Set Node_Layer = Main.Mapshow.Layers.CreateLayer("Nodes")
Set Link_Layer = Main.Mapshow.Layers.CreateLayer("Links")


End Sub