Chủ nhật, 20 / 09 / 2020
Trang chủ
Giới thiệu
Tin tức
Đào tạo
Dịch vụ
Liên hệ
 





Khách online: 1
Lượt truy cập: 100541


  Tạo nút lệnh ZoomOut trên ArcMap
 
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ị


  Các Tin khác
 Lập trình ArcObjects cơ bản (lập trình VBA trên ArcGIS) (26/02/2012)
 Lập trình GIS với Avenue (03/11/2011)
 Tạo giao diện khởi động cho project ArcView GIS (30/10/2010)
 Chọn các đối tượng trên bản đồ bằng chuột (27/06/2010)
 Lấy về tọa độ của vị trí nhấn chuột trên bản đồ (20/06/2010)
 Chia sẻ sourcecode (18/06/2010)
 Tạo nút lệnh ZoomOut trên ArcMap (17/06/2010)
 Lấy về lớp dữ liệu trên bản đồ và xóa lớp dữ liệu khỏi bản đồ (17/06/2010)
 Thêm lớp dữ liệu vào bản đồ (17/06/2010)

Lập trình WebGIS với công nghệ mới nhất
Lịch khai giảng lớp ArcGIS cơ bản
Lịch khai giảng lớp ArcGIS nâng cao
Đào tạo GIS tại các địa phương
Lập trình WebGIS với công nghệ mới nhất
Các phần mềm GIS do TT GIS Ứng Dụng Mới triển khai
Kết hợp ArcGIS và Google Maps hỗ trợ số hóa, tham khảo dữ liệu
Chương trình đào tạo GIS của trung tâm
Đào tạo GIS tại Long An
Chuyển từ VN2000 sang WGS84 và ngược lại


TRUNG TÂM GIS ỨNG DỤNG MỚI

Trụ sở: 72/8K Nhiêu Tứ, P7, Q. Phú Nhuận; VP: 120A Trần Kế Xương, P. 7, Q.  Phú Nhuận;

Điện thoại: 028. 62943959 – Fax: 028. 62943959; Email: ungdunggis@gmail.com; Hotline: 0908569935

mua bán iphone cũ | iphone 4 | iphone 4s | iphone 5 | sua chua dien thoai | miếng dán cường lực | hoc sua chua dien thoai | pin dien thoai | sửa chữa iphone | samsung galaxy s3 | Tìm gia sư với http://giasu24h.com | sửa nhà | Đơn vị cung cấp dịch vụ thue cau xe cau | xây nhà | xây nhà đẹp |cung cấp dịch vụ ep coc be tong | Công ty cung cấp dịch vụ son nha | tao web mien phi , web gia re | tai nghe |