大家看到...MapInfo\MapX 5.0\CUSTSYM下的Bmp格式的图标了吗?怎么加载到地图上啊:)
见题。希望把这些图标加载到地图上进行显示,就向点、线、区域对象那样。我在Form_load里注册了一个工具 Map1.CreateCustomTool CreateSymbolTool, miToolTypePoint, miSizeAllCursor。使用这个工具(Tool_used)时,
If ToolNum = CreateSymbolTool Then
Dim Pnt As New MapXLib.Point
Dim FeaFac As New MapXLib.FeatureFactory
Dim lyr As New MapXLib.Layer
Dim ftr As New MapXLib.Feature
Dim NewStyle As New MapXLib.Style
'绑定
Set lyr = Map1.Layers.Item(1)
Set FeaFac = Map1.FeatureFactory
'设置点对象样式
With NewStyle
.SymbolType = miSymbolTypeBitmap
.SymbolBitmapSize = 24
.SymbolBitmapTransparent = True
.SymbolBitmapName = "F:\共享\实验标功能\TOWE1-32.BMP"
End With
Map1.AutoRedraw = False '禁止自动刷新
lyr.Editable = True '置当前图层为可写状态
'创建点对象
Pnt.Set X1, Y1
'添加进当前图层
Set ftr = FeaFac.CreateSymbol(Pnt, NewStyle) '创建符号
'Set Ftr=FeaFac. CreateSymbol (Pnt,MainMap.DefaultStyle)
'添加
lyr.AddFeature ftr
lyr.Refresh
Map1.AutoRedraw = True
lyr.Editable = False
'释放
Set Pnt = Nothing
Set FeaFac = Nothing
Set lyr = Nothing
Set ftr = Nothing
End If
可是拉到地图上去的是个大黑方块,不是需要的图标,郁闷!大家帮忙解决啊:(