修改Mouse事件中的代码显示右键菜单-基于VB的mapobject地图控件的引用和开发技术

修改Mouse事件中的代码,显示右键菜单Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Set Map1.Extent = Map1.TrackRectangle Else: Button = vbRightButton PopupMenu pop1 End If End Sub
ppt 文件大小:2.03MB