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