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

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:
    0
    Điểm thành tích:
    16
    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

    nguồn: Đăng kí hoặc đăng nhập để xem link
     
    Tags:

Chia sẻ trang này

Share
Đang tải...