mapx实现热点效果

        当鼠标移动到图元上方时,标注改变样式(变色,加下划线等),移开后还原。通过vb+mapx基本实现这个效果,但由于mapx在label进行变化时的刷新很明显,达不到希望的效果。把代码留下。

Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
     'StatusBar1.Panels(1).Text = X & "," & Y
     Dim Lon As Double
     Dim lat As Double
     Dim fs As Features
     Dim pnt As New Point
     Dim lb As MapXLib.Label  '±ê×¢¶ÔÏó
     Map1.ConvertCoord x, y, Lon, lat, miScreenToMap
     pnt.Set Lon, lat
     Set fs = Map1.Layers(PLayer).SearchAtPoint(pnt)
     If fs.Count > 0 Then     '¶¨Î»¶ÔÏó
       If Not curftr Is Nothing Then If curftr = fs.Item(1) Then Exit Sub  '·ÀÖ¹Öظ´ÉèÖÃ
       Set lb = GetLabel(fs.Item(1).FeatureKey, Map1.Layers(PLayer).Labels)
       If Not lb Is Nothing Then             'Ϊ±ê×¢¼ÓÏ»®ÏßЧ¹û
         lb.Style.TextFont.Underline = True
         Set curftr = fs.Item(1)
         'fs.Item(1).Update
       End If
       Map1.MousePointer = miCustomCursor    'Êó±êÑùʽ
     Else
       If Not curftr Is Nothing Then  '»¹Ô­Ï»®Ïß״̬
         Set lb = GetLabel(curftr.FeatureKey, Map1.Layers(PLayer).Labels)
         lb.Style.TextFont.Underline = False
         'curftr.Update
         Set curftr = Nothing
         Frame1.Visible = False   'Òþ²Øµ¯³ö²Ëµ¥
       End If
       Map1.MousePointer = miArrowCursor
     End If
 End Sub

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏GIS讲堂

Arcgis for JS之Cluster聚类分析的实现

在做项目的时候,碰见了这样一个问题:给地图上标注点对象,数据是从数据库来的,包含XY坐标信息的,通过graphic和graphiclayer 的方式添加到地图上...

1913
来自专栏前端知识分享

第152天:表单短标题的两端对齐

在做前端界面的时候,比如一些文字的列表或者一些表单的标题,经常是2个字,3个字,4个字的类型。

1522
来自专栏向治洪

android动画之interpolator和typeEvaluator用法详解

Interpolator (插值器) 我们在写动画的时候为了达到某种效果往往需要设置插值器,用来真实的模拟生活中的场景。  Interpolator (插值器)...

2189
来自专栏Flutter&Dart

Flutter之通过AnimationController源码分析学习使用Animation

他实际上就是一个抽象类,在dart里面抽象类可继承可实现,看源码知道,他主要的一个方法就是dispose,用于规定释放资源的方法

3802
来自专栏web编程技术分享

【H5 音乐播放实例】第五节 音轨制作

1353
来自专栏HTML5学堂

2016.05 第1周 群问题分享

HTML+CSS a标签href属性的作用 2016.05.02~2016.05.06 核心概念 a标签href属性 参考答案 a标签定义超链接,用于从一个页面...

3168
来自专栏Coco的专栏

谈谈一些有趣的CSS题目(四)-- 从倒影说起,谈谈 CSS 继承 inherit

952
来自专栏程序你好

CSharp代码示例每日一讲: 在GDI+中使用填充Fill方法

752
来自专栏码洞

人生苦短我用Python?No!学习Python的真正理由其实是

作者:gashero 链接:https://www.zhihu.com/question/282875062/answer/441546530

701
来自专栏菩提树下的杨过

sliverlight:按点击移动的连续跑马灯

演示效果如下: 鼠标点击一次,所有方块向左移动一格 ? 思路: 1.利用StoryBoard产生移动,每次点击时,该动画播放一次(即移动一格) 2.关键:动画播...

2036

扫码关注云+社区

领取腾讯云代金券