如何去掉MAPX属性对话框？
大家好，我用VB+MAPX开发了一个系统，在窗体界面上单击鼠标右键，会弹出MAPX属性对话框，想把这个去掉，该怎么写代码？谢谢大家！！！--------------------编程问答-------------------- 在mapx的click事件中，可以自定义操作 --------------------编程问答-------------------- Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
？？？？？？？？
End If
End Sub
这个函数能实现吗？中间那行怎么写？ --------------------编程问答-------------------- 弹出你定义的菜单…… --------------------编程问答-------------------- 我没有自定义的菜单，现在需要直接把右键事件禁止了，该怎么样写？ --------------------编程问答-------------------- 好吧，为了这100分，我决定安装个mapx --------------------编程问答-------------------- 把弹出的属性框抓个图看看
mapx版本多少？ --------------------编程问答-------------------- Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Map1.Layers.LayersDlg '显示 "图层控制" 对话框
End If
End Sub
这样就可以只显示 "图层控制" 对话框，如果不想要什么代码都不写就不会出问题了。
--------------------编程问答-------------------- 就是这个对话框
--------------------编程问答--------------------
这方法好像还不行，虽然属性对话框不出现了，但是还是出现图层控制对话框，我想直接禁止右键菜单的出现 --------------------编程问答-------------------- 你应该把图片上传到某个服务器上，比如csdn的相册，再在帖子里引用
还有，看起来貌似你代码中定义了右键菜单弹出 --------------------编程问答-------------------- 是你代码里自己填进去了吧
代码贴出来看看 --------------------编程问答-------------------- 你是不是从其它地方拷的代码啊．
正常原始状态下应该是没有的．
你把代码帖出来看看． --------------------编程问答-------------------- 原来是没有写关于鼠标操作的这段代码，后来看VB书才写了，看能不能把属性对话框禁止了，但是一直不知道中间那行代码怎么写，yangbin999288 仁兄的方法还是没有成功，但是启发了我这样写：
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 2 Then
Dim str As String
str = Map1.Version
MsgBox "MapX的版本为：" + str, vbOKOnly + vbExclamation, "版本信息"
End If
End Sub
这样弹出来的就用版本消息框代替了属性对话框。虽然勉强可以，但是还想更完美一些。
第一次在这发帖，好多功能还不是很熟悉，请谅解，呵呵！！！ --------------------编程问答-------------------- 肯定是你自己的问题，工程里面有右键的响应代码。
我新建了个mapX的vb工程，不会出现你说的问题。
你的代码是从别的地方搞来的吧 --------------------编程问答-------------------- 收藏。 --------------------编程问答-------------------- 感觉大家说得都很有道路，好好学习先！ --------------------编程问答-------------------- 这么复杂？捕获鼠标事件就可以了啊？
实在不行，用API做钩子拦截
可看上去回了这么多帖子都没搞定？ --------------------编程问答-------------------- Private Sub Map1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
' If Button = 2 Then Map1.PropertyPage
End Sub
补充：企业软件 , 地理信息系统
