vba13-4.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 14 行

Private Sub UIToolPermit_MouseDown(ByVal button As Long, _
ByVal shift As Long, ByVal x As Long, ByVal y As Long)
    ' The process of selction begins in this 
    ' procedure by pressing the mouse button down
    ' on the map. It ends in the MouseUp event procedure.
    Dim pMxDocument As IMxDocument
    Dim pActiveView As IActiveView
    m_blnMouseDown = True
    Set pMxDocument = Application.Document
    Set pActiveView = pMxDocument.FocusMap
    Set m_pPoint = pActiveView.ScreenDisplay. _
		DisplayTransformation.ToMapPoint(x, y)
End Sub