有关MAPX中全层显示的代码

最新推荐文章于 2019-10-13 23:46:05 发布

netnok

最新推荐文章于 2019-10-13 23:46:05 发布

阅读量614

点赞数

分类专栏： MapX 文章标签： command each

本文链接：https://blog.csdn.net/netnok/article/details/3379500

版权

MapX 专栏收录该内容

23 篇文章 0 订阅

订阅专栏

全层显示代码

Private Sub combo1_Click()
     Dim rect As MapXLib.Rectangle

     If Combo1.Text <> "All Layers" Then
         Set rect = Formmain.Map1.Layers(Combo1.Text).Bounds
         xmaxvalue = str(rect.XMAX)
         ymaxvalue = str(rect.YMAX)
         xminvalue = str(rect.XMIN)
         yminvalue = str(rect.YMIN)
     End If
     Set rect = Nothing

End Sub

Private Sub Command1_Click()

     Dim lyr As MapXLib.Layer

     On Error GoTo error1

     Formmain.Map1.NumericCoordSys = Formmain.Map1.DisplayCoordSys

     If Combo1.Text = "All Layers" Then
         Set Formmain.Map1.Bounds = Formmain.Map1.Layers.Bounds
     Else
        Set lyr = Formmain.Map1.Layers(Combo1.Text)
        Set Formmain.Map1.Bounds = lyr.Bounds
     End If

     Unload Me

error1:
     Select Case Err.Number
        Case 1074
          MsgBox "在图层中没有发现对象", , "警告"
          Unload Me
     End Select


End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
     Dim lyr As MapXLib.Layer

     For Each lyr In Formmain.Map1.Layers
        Combo1.AddItem lyr.Name
     Next
      Combo1.AddItem "All Layers"

      Combo1.ListIndex = 0

End Sub

控件解释：
combo1 tab表的列表
command2 取消
command1 全层显示确定
在窗体上还有8个label控件，分别为：
xmaxvalue
ymaxvalue
xminvalue
yminvalue
xmax
ymax
xmin
ymin