VB中文本框text1中设计弹出菜单时，经常会出现系统的菜单，而不是设计的菜单，怎么办？
代码如下：
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu popformat
end sub
用text1.Mousedown（）也不行。

[此贴子已经被作者于2006-2-27 12:48:46编辑过]

因为文本框右键本身就能弹出一个 Windows 的下拉菜单(显示复制、粘贴等功能)，所以在你执行 MouseDown 事件的代码前，VB 已经弹出了那个 Windows 下拉菜单了。

ok

那应该怎么解决？

Option Explicit

Private Sub Text1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then Text1.Enabled = False: Text1.Enabled = True: PopupMenu popformat
End Sub

这个是偷懒的方法....比较正规的是拦截windows消息~过滤

i see .........了!