waterblue:<P>Private Sub PageLayout1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal pageX As Dou...(2005-03-23 13:22)
waterblue:<P> Set pElement = GetLocateElement(pPoint, pGraphicsContainer)'自定义函数,LocateElement函数实现
If pElement Is Nothing Then Exit S...(2005-03-21 12:35)