VB6+Mo图层顺序的调整(MoveToTop、MoveTo、MoveToBottom )
VB6+Mo图层顺序的调整(MoveToTop、MoveTo)
object.MoveToTop 要移动图层的索引
移动图层顺序为第一层
object.MoveToBottom 要移动图层的索引
移动图层顺序为最后一层
object.MoveTo value1, value2
(value1是移动图层的索引,value2 是要移动的图层顺序)
示例:
代码:
'在窗体加载时时,给lstLayers列表添加选择集
Private Sub Form_Load()Dim lyr As MapObjects2.MapLayer'清空lstLayers选择集中的列表lstLayers.Clear'遍历当前地图中图层, 将图层名称添加至 lstLayers选择集合中For Each lyr In Map1.LayerslstLayers.AddItem lyr.NameNext lyr
End Sub
'置顶图层
Private Sub Command1_Click()'定义一个矢量图层Dim lyr As MapObjects2.MapLayerIf lstLayers.ListIndex <> -1 Then'移动当前选中图层至第一个Map1.Layers.MoveToTop lstLayers.ListIndexMap1.RefreshlstLayers.ClearFor Each lyr In Map1.LayerslstLayers.AddItem lyr.NameNext lyr'lstLayers列表默认选中第一个图层lstLayers.Selected(0) = TrueEnd If
End Sub'上移图层
Private Sub Command2_Click()Dim i As IntegerDim lyr As MapObjects2.MapLayerIf lstLayers.ListIndex <> -1 And lstLayers.ListIndex > 0 Theni = lstLayers.ListIndex - 1Map1.Layers.MoveTo lstLayers.ListIndex, iMap1.RefreshlstLayers.ClearFor Each lyr In Map1.LayerslstLayers.AddItem lyr.NameNext lyrlstLayers.Selected(i) = TrueEnd If
End Sub'下移图层
Private Sub Command3_Click()Dim i As IntegerDim lyr As MapObjects2.MapLayerIf lstLayers.ListIndex <> -1 And lstLayers.ListIndex < lstLayers.ListCount - 1 Theni = lstLayers.ListIndex + 1Map1.Layers.MoveTo lstLayers.ListIndex, iMap1.RefreshlstLayers.ClearFor Each lyr In Map1.LayerslstLayers.AddItem lyr.NameNext lyrlstLayers.Selected(i) = TrueEnd If
End Sub'置底图层
Private Sub Command4_Click()If lstLayers.ListIndex <> -1 ThenMap1.Layers.MoveTo lstLayers.ListIndex, Map1.Layers.Count - 1Map1.RefreshlstLayers.ClearFor Each lyr In Map1.LayerslstLayers.AddItem lyr.NameNext lyrlstLayers.Selected(Map1.Layers.Count - 1) = TrueEnd If
End Sub
VB6+Mo图层顺序的调整(MoveToTop、MoveTo、MoveToBottom )相关推荐
- Arcgis Javascript那些事儿(八)--图层获取与图层顺序
这两天写一些系统基本图层的时候要涉及到同一个map切换layer的功能,这里主要涉及到了图层获取与图层顺序的问题,单独拿出来总结了下. 一.图层layer获取 1.通过id获取 首先从map中获取la ...
- OL3中结合Jquery UI实现图层拖动并改变图层顺序
概述: 本文讲述OL3中结合Jquery UI实现图层的拖动以及拖动好图层顺序的改变. 效果: 代码: <html xmlns="http://www.w3.org/1999/xhtm ...
- ArcGIS API for JavaScript 图层顺序
1.默认图层顺序 1.1.arcgis把图层按空间分成两类 graphicsLayers(矢量图层) . featureLayers(特征图层) ,暂时标记为一类. basemapLayers(底层图 ...
- PDF页码顺序如何调整
有时候我们使用的文件是公司或者学校下发的,页码的设置会有失误的情况,这个时候我们就需要对页码进行重新调整,那么如何操作呢?操作方法是什么呢?今天小编就来跟各位分享一下,一起来看看如何调整页码顺序的吧! ...
- html图层透明度,ps图层透明度怎么调整?Photoshop中调整图层透明度的三种方法介绍...
Photoshop里面怎么调整图层的透明度?作为一个"切图仔",切图的时候,看到总有透明的图层估计是最头痛的事,不知道其他人怎么样,个人却是最怕做透明的样式..扯远了,但确实因为要 ...
- mapbox 图层顺序显示
mapbox 图层顺序显示 1. 第一种方式 创建图层的时候控制图层的层级 示例 将markerPoint放在图层之上 map.addLayer({'id': id,'type': 'line','s ...
- CAD图层的顺序的调整
一.打开图层控制面版,在图层名称前面加编号1.2.3--或a.b.c--,再点上面的名称,即可排序. 二.在图层面版中选择图层,右击置为当前,再点上面的状态,会跳到最前头和最后头. 三.在软件绘图过程 ...
- win7电脑右键菜单选项的顺序怎么调整
删除右键命令 右键菜单选项良莠不齐,一些没用的命令应毫不留情地删除.在上网时常会遇到IE首页或标题栏被更改的情况,对此大家已经见怪不怪了.可是最近又有一种新的源代码,在右键菜单把自己的网站名字加上,在 ...
- leaflet如何为geoJson图层设置zIndex图层顺序?
这个问题也是纠结了半天,两个geojson的面图层作为Layer,因所画的内容重要程度不同,总有主次之分,比如标记型的图标,即使被盖住了,也无伤大雅,但是一些监控或者告警的数据,如果被盖住了,就比较致 ...
- 2d游戏地图渲染图层顺序(1)
2d游戏里常见的45度角,建筑物之间相互覆盖渲染问题 但是难免会遇到覆盖不正确的情况 显然后面个建筑错误的覆盖了前面一个建筑. 在建筑物覆盖时不能简单粗暴的两个for循环去按从第一排到最后排,从左到右 ...
最新文章
- 刮刮乐html5效果擦除,利用HTML5的画布Canvas实现刮刮卡效果
- JBuilder中光标错位的解决办法
- 不要将时间浪费到编写完美代码上
- 新视角来了:《用户体验四维度》
- php下载文件压缩包已经损坏或未知格式,这个压缩文件格式未知或者数据已经被损坏解决方法...
- 连接mysql报错:Access denied for user ‘root’@‘localhost’(using password: YES)的解决方法
- pr剪辑打开多个项目_Pr入门之十一:基本图形面板
- BiNGO的GO分析
- “汽车人”眼中的网络安全-网络安全的5W1H
- feologit:固定效应有序Logit模型
- 使用OpenCV的OpenCL(ocl)模块
- webstorm2020背景和字体_怎么为WebStorm更换主题 修改字体样式
- 开学了,献给就读IT相关专业的本科新生们
- Laravel Excel(maatwebsite/excel )导入
- 量子力学在计算机上的应用论文,《浅谈量子力学的发展与利用》-毕业论文.docx...
- !-- --与%-- --%
- 判断一张图片是否是空白图
- 已开源!Flutter 基于分帧渲染的流畅度优化组件 Keframe
- 培训机构要不要去?适合谁去
- 【java】BMI:体重指数,又称身体质量指数,英文为Body Mass Index,简称BMI),是用体重公斤数除以身高米数平方得出的数字,是目前国际上常用的衡量人体胖瘦程度以及是否健康的一个标准。
热门文章
- matlab常用开头,在MATLAB编辑中,以“”开头的表示()。
- 11月最新脉聊社交网站源码类似微博的社交源码 模板UI非常漂亮自适应手机版 重点是有原生AP
- 工程制图计算机绘图实训总结感悟,工程制图心得体会.doc
- 电脑有必要安装杀毒软件吗?
- Hibernate基础知识整理(三)
- T检验、F检验、Z检验、卡方检验
- 如何将电脑图片缩小kb?图片怎么压缩大小?
- win7计算机打开显卡设置在哪里,显卡设置在哪里打开【如何设置】
- android 6 root权限,「经验」android手机怎么开启Root权限
- 分享大学生关于创新创业的想法,包括外卖私人订制化,网购衣服3D化远程试衣,睡眠耳机开发等等创新创业想法。