mapx 使用layerinfo 添加shape 文件層.(VB)

/**//*
MapInfo Products Knowledge Base
Product: MapX
Version: 4.5.1
Platform: Windows NT/2000
Category: Code Samples
Summary:
Opening Shape files through MapX?
Question:
Below is a code sample showing how to add a Shape file through LayerInfo in MapX.
Answer:
*/

Dim LayerInfoObject As New LayerInfo
Dim ds As Dataset
Dim lyr as layer
Dim li as New LayerInfo

Map1.NumericCoordSys.Set 3, 62, 8, -105.5, 39.3333333333, 39.7166666667, 40.7833333333, , , 2000000, 0

LayerInfoObject.Type = 3
LayerInfoObject.AddParameter "name", "cancaps"
LayerInfoObject.AddParameter "filespec", "c: empstates.shp"
LayerInfoObject.AddParameter "Coordsys", Map1.NumericCoordSys

set lyr=Map1.Layers.Add (LayerInfoObject)
Set ds = Map1.Datasets.Add(miDataSetLayer, lyr)

Then, create a new tab file through LayerInfo like:

li.Type = miLayerInfoTypeNewTable
li.AddParameter "FileSpec", "c: emp est.tab"
li.AddParameter "Name", "test1"
li.AddParameter "Fields", ds.fields
li.AddParameter "Features", lyr.Allfeatures

Map1.Layers.Add li, 1

//Last Modified: 2001-10-05 12:20:17