Thứ tư, 26 / 02 / 2020
Trang chủ
Giới thiệu
Tin tức
Đào tạo
Dịch vụ
Liên hệ
 





Khách online: 2
Lượt truy cập: 87597


  Lấy về tọa độ của vị trí nhấn chuột trên bản đồ
 
Ví dụ lấy về tọa độ của vị trí nhấn chuột trên bản đồ

Trước tiên ta  thêm mới một Tool vào giao diện của ArcMap

-         Mở hộp thoại Customize

-         Thêm mới một Tool


 ‘ Trong sự kiện Mouse Down của Tool cài đặt đoạn code sau

Private Sub ITool_OnMouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
  Dim pMxDoc As IMxDocument
  Dim pActiveView As IActiveView
  Dim m_pPoint As IPoint
  Set pMxDoc = ThisDocument
  Set pActiveView = pMxDoc.FocusMap
  ‘ Biến m_pPoint trả về tọa độ của vị trí nhấn chuột trên bản đồ
   ‘ Chú ý X, Y là vị trí nhấn chuột lên bản đồ không phải tọa độ địa lý
   Set m_pPoint =    pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(X, Y)
    ‘ Thử hiển thị tọa độ địa l ý X, Y của vị trí nhấn chuột
   Msgbox   m_pPoint.X  & “    “ & m_pPoint.Y
  End Sub

 

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ịch khai giảng lớp ArcGIS nâng cao
Lịch khai giảng lớp ArcGIS cơ bản
Đà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
Một số câu hỏi về kỹ năng GIS


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 |