我用的是MapObject,我原先是这样编的 Dim sym As New MapObjects2.SymbolDim p As PointDim pts As PointsPrivate Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Set pts = New Points Set p = Map1.ToMapPoint(1000, 1000) pts.Add p'是Points对象中的一个函数,功能是增加一个Point成员到Points对象内。 Set p = Map1.ToMapPoint(3000, 2000) pts.Add p sym.Color = moRed sym.SymbolType = moPointSymbol sym.Size = 3 Map1.DrawShape pts, symEnd Sub但是那个点是我规定的,我不知道怎么根据我接收的数据改变而改变
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货