|
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
Tài liệu tham khảo: Giáo trình ArcObject cơ bản - Lê Đức Trị
|
Lập trình ArcObjects cơ bản (lập trình VBA trên ArcGIS)
