netnok的博客开发环境:VB6+mapx4.5+win2000 代码: 附注:必须miDatasetLayer绑定;字段可以无索引;图层可以不注册。 Private Sub Command2_Click() Dim lyr As MapXLib.Layer Dim ds As MapXLib.Dataset Dim ftrs...
thomas0yang的博客
'1创建图层
Dim lyr As Layer
Set lyr = Map1.Layers.CreateLayer("Car")
Set Map1.Layers.AnimationLayer = lyr '定义为动态图层
'2新建图元
Dim newobj As New MapXLib.Feature '...
netnok的博客开发环境:VB + MapX代码:1.如何实现测距 a.//创建测距工具 global const calculatedistance=1 Private Sub Form_Load() map1.CreateCustomTool(calcilatedistance,miToolTypepoly ,microsscursor) End
googlegis的博客vb+mapx5 沿线标注的简单实现方法,请教高手:如何任意控制字符间距? Private Sub Map1_MapViewChanged() Dim A As Layer Dim B As Dataset Set A = Map1.Layers.Item("图层名称") Set B = Map1.DataSets....
googlegis的博客两种方法在VB+MAPX中在指定坐标处添加符号 第一种方法 Private Sub Command1_Click() Dim X As Double, Y As Double X = Text1.Text Y = Text2.Text Map1.Annotations.addsymbol X, Y End Sub 第二...