一个关于“右键弹出菜单”的问题。急！！！！！！！！

wbqc9912115 2004-04-30 08:51:11

我在运行时发现一个问题，就是每次都先弹出一个系统自己的“右键弹出菜单”
只有点击第二次才弹出自己做菜单（mnufile）.请问各位大哥怎么会这样啊。
急！！！！
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then '如果是鼠标右键按下时
popufrm.PopupMenu mnufile, 0, X, Y '弹出右键菜单
End If

End Sub

...全文

66 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

shortppsy 2004-04-30

打赏
举报

那应该是控件的问题
你重新添加一次

wbqc9912115 2004-04-30

打赏
举报

我方式过了cuizm(射天狼)的方法，但还是提示:“找不到方法或数据成员”

道素 2004-04-30

打赏
举报

你也可以顺顺试试sp6中带的richtextbox

flyingZFX 2004-04-30

打赏
举报

不会吧，

wbqc9912115 2004-04-30

打赏
举报

提示找不到 RichTextBox1.AutoVerbMenu 属性。。

射天狼 2004-04-30

打赏
举报

RichTextBox1.AutoVerbMenu = False
设置成FALSE就可以了!

shortppsy 2004-04-30

打赏
举报

查查richtextbox的帮助
里面有一个屏蔽菜单的属性
具体的我忘了
查查就知道了

walksnake 2004-04-30

打赏
举报

当然你还可以用API。

walksnake 2004-04-30

打赏
举报

嘿嘿，看看下面行不行：
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then '如果是鼠标右键按下时
RichTextBox1.Enable=False '这两行加进去一下看看。
RichTextBox1.Enable=True '
popufrm.PopupMenu mnufile, 0, X, Y '弹出右键菜单
End If

End Sub

ryuginka 2004-04-30