vba13-4.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

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