VB放大、缩小

更新时间:2023-05-17 22:27:38 阅读: 评论:0

Dim flag As String
全品作业本答案Private Sub Command1_Click()
flag = "fangda"
zoomin
End Sub
Private Sub Command2_Click()
flag = "suoxiao"mauritius
Zoomout
End Sub
Private Sub Command3_Click()
flag = "pingyi"
sherry是什么意思
Pan
End Sub
gis是什么Private Sub Command4_Click()
flag = "quantu"
full
Map1.Extent = Map1.FullExtent
End Sub
Private Sub Map1_MouDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Ca flag
      Ca "fangda": zoomin
黄鹤楼翻译      Ca "suoxiao": Zoomout
      Ca "pingyi": Pan
rnti
      Ca "quantu": full
      End Select
End Sub
Sub zoomin()
Dim r As MapObjects2.Rectangle
Set r = Map1.Extent
r.ScaleRectangle 0.5
Map1.Extent = r心理学考研科目
End Sub
Sub Zoomout()
    Dim r As MapObjects2.Rectangle
  Set r = Map1.Extent
  r.ScaleRectangle 1.5
滑雪板英文    Map1.Extent = r
End Sub
death noteSub Pan()
    Map1.Pan
End Sub
Sub full()
peace of mind    Map1.Extent = Map1.FullExtent
End Sub

本文发布于:2023-05-17 22:27:38,感谢您对本站的认可!

本文链接:https://www.wtabcd.cn/fanwen/fan/90/112484.html

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。

标签:答案   考研   全品   科目   作业本   心理学
相关文章
留言与评论(共有 0 条评论)
   
验证码:
Copyright ©2019-2022 Comsenz Inc.Powered by © 专利检索| 网站地图