MapGis对图层显示的控制另一方法

最新推荐文章于 2024-07-13 15:33:02 发布

zl198183

最新推荐文章于 2024-07-13 15:33:02 发布

阅读量2k

点赞数

文章标签： layer integer basic

本文链接：https://blog.csdn.net/zl198183/article/details/574102

版权

Layer对象的方法可控制某一图层的开关，如下：

TurnOnOffLayer 方法
描述开或关某一层。
Visual Basic rtl = Layer.TurnOnOffLayer(layer, onoff)

在MapGis中，MapLayer对象的某些属性也可以控制某一图层的开关，方法如下：

Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim layer As MapLayer
Dim layertype
Dim no As Long
Dim str
Dim intx As Integer
If prjmap Is Nothing Then
Exit Sub
End If

no = 0
Set layer = prjmap.FindFirst(gisFINDTYPE_NOGROUP)
If TreeView1.Nodes(1).Checked Then
    While no < 3
        no = no + 1
       layer.Visible = True
       Set layer = prjmap.FindNext
    Wend

Else
    While no < 3
        no = no + 1
       layer.Visible = False
       Set layer = prjmap.FindNext
    Wend

End If
If TreeView1.Nodes(2).Checked Then
        While no < 6
            no = no + 1
           layer.Visible = True
           Set layer = prjmap.FindNext
        Wend

Else
    While no < 6
            no = no + 1
           layer.Visible = False
           Set layer = prjmap.FindNext
        Wend

End If
If TreeView1.Nodes(3).Checked Then
            While no < 9
                no = no + 1
               layer.Visible = True
               Set layer = prjmap.FindNext
            Wend

Else
            While no < 9
                no = no + 1
               layer.Visible = False
               Set layer = prjmap.FindNext
            Wend

End If
If TreeView1.Nodes(4).Checked Then
                While no < 12
                    no = no + 1
                   layer.Visible = True
                   Set layer = prjmap.FindNext
                Wend

Else
            While no < 12
                    no = no + 1
                   layer.Visible = False
                   Set layer = prjmap.FindNext
                Wend

End If
If TreeView1.Nodes(5).Checked Then
                    While no < 15
                        no = no + 1
                       layer.Visible = True
                       Set layer = prjmap.FindNext
                    Wend

Else
                While no < 15
                        no = no + 1
                       layer.Visible = False
                       Set layer = prjmap.FindNext
                    Wend

End If
EditView1.updateWindow

Set layer = Nothing
End Sub