求助：基于VB+MAPX如何实现通过代码在地图上新建图层

'd出对话框确定图层保存的路径 CommonDialog1.DefaultExt = "tab" CommonDialog1.DialogTitle = "Pick a location for your layer" CommonDialog1.Filter = "MapInfo Tables (*.tab)|*.tab" CommonDialog1.ShowSave If Len(CommonDialog1.Filename) = 0 Then Exit Sub End If Dim lyr As Layer Dim friendlyName As String '从文件名中删除.tab扩展名 friendlyName = Left$(CommonDialog1.FileTitle, _ Len(CommonDialog1.FileTitle) - 4) On Error GoTo CreateErr '创建新图层 Set lyr = Map1.Layers.CreateLayer(friendlyName, _ CommonDialog1.Filename) lyr.Editable = True 'UpdateControls True Exit SubCreateErr: MsgBox "无法创建图层: """ &friendlyName &""" 于： """ &_ CommonDialog1.Filename &""": " &Error

有三种方法：

1、添加一个picturebox或imagebox，在属性窗口中选择picture属性，然后就可以添加图片了，这是最简单的一种；

2、第二种是代码加入:

Option Explicit

Private Sub Form_Load()

Me.Picture = LoadPicture("c:\text.bmp") 'c:\text.bmp为图片路径

End Sub

3、第三种是通过剪贴板加入，这种比较复杂,如：

Option Explicit

Private Sub Form_Load()

Clipboard.SetData Picture1.Image

End Sub

你把你的几个图层生成一个gst文件，用mapx调用gst文件就能显示地图了。我只有C#的调用方式，axMap1.GeoSet = Application.StartupPath + "//Map//map.gst"

我也是做mapx开发的，有空到我的百度空间交流一下。

---