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

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
...全文
40 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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
up
回复
PasswordError 2004-04-30
建议利用子类处理 (SubClass) 屏蔽掉控件的右键菜单。

这样的例子很多,你自己去找找吧。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7517

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-04-30 08:51
社区公告
暂无公告