'TextBox单击鼠标右键总是跟出来一个系统默认的关于文本操作的菜单,如何把它去掉?请看如下代码。
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Text1.Enabled = False '禁止出现系统菜单
MsgBox "显示自已的菜单或做其它的事" 'PopupMenu abc1
Text1.Enabled = True
End If
End Sub