继承基类文本框,重写一个就可以了。代码如下:
Public Class TextBoxEx
Inherits System.Windows.Forms.TextBox
Public Sub New()
MyBase.New()
End Sub
'拦截右键消息
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg <> &H7B Then
MyBase.WndProc(m)
End If
End Sub
End Class