creattable.bas

来自「一个交通专用的gis-T系统」· BAS 代码 · 共 24 行

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