118.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

隐藏文本框控件的环境菜单 

各位vb高手：
本人想实现在文本框上单级击MOUSE右键弹出菜单，但总是
先出现windows的缺省的用于编辑文本的弹出式菜单，不知如何将其去掉？

回答
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 mnuHelp
End If
End Sub