Tạo nút lệnh ZoomOut trên ArcMap

Thảo luận trong 'Giải đáp thắc mắc các phần mềm của ESRI' bắt đầu bởi Nhơn_QL32_NLU, 28/10/11.

  1. Nhơn_QL32_NLU

    Nhơn_QL32_NLU Member

    Tham gia ngày:
    21/10/11
    Bài viết:
    153
    Đã được thích:
    1
    Điểm thành tích:
    18


    [TD="colspan: 3"]Tạo nút lệnh ZoomOut trên ArcMap
    [/TD]

    [TD="colspan: 3"] [/TD]

    [TD="colspan: 3"] Ví dụ tạo nút lệnh ZoomOut trên ArcMap
    Trước tiên ta thêm mới một Button vào giao diện của ArcMap - Mở hộp thoại Customize - Thêm mới một Button - Trong sự kiện Click của Button này ta thêm vào đoạn chương trình sau ‘ Khai báo biến pDoc là một tài liệu ArcMap
    Dim pDoc As ImXDocument

    ‘ Khai báo báo biến pEnv, biến này dùng lưu trữ vùng bản đồ
    Dim pEnv As Ienvelope

    ‘ pDoc là tại liệu ArcMap hiện thời mà ta đang làm việc
    Set pDoc = ThisDocument

    ‘ pEnv là vùng hiển thị dữ liệu hiện tại của bản đồ
    Set pEnv = pDoc.ActiveView.Extent

    ‘ Mở rộng vùng hiển thị mỗi chiều lên 0.5 lần (điều này có nghĩa là thực hiện ZoomOut bản đồ
    pEnv.Expand 0.5, 0.5, True
    pDoc.ActiveView.Extent = pEnv

    ‘ Làm tươi lại vùng hiển thị
    pDoc.ActiveView.Refresh
    [/TD]
    nguồn. Đăng kí hoặc đăng nhập để xem link
     
    Tags:

Chia sẻ trang này

Share
Đang tải...