子类化任何对象

最新推荐文章于 2021-02-19 09:59:45 发布

jinta2001

最新推荐文章于 2021-02-19 09:59:45 发布

阅读量841

点赞数

分类专栏： VB.Net 文章标签： textbox class

本文链接：https://blog.csdn.net/jinta2001/article/details/397882

版权

VB.Net 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

'Subclass Any HWND
'ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.2052/enu_kbvbnetkb/en-us/vbnetkb/Q311317.htm
Public Class SubclassHWND
    Inherits NativeWindow
    Const WM_RBUTTONDOWN = &H204
    Const WM_RBUTTONUP = &H205
    Protected Overloads Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_RBUTTONDOWN, WM_RBUTTONUP
                '
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class
'在另一个类当中加入下面代码，则TextBox1不会出现右键菜单了
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim clsSubclassHWND As New SubclassHWND
    clsSubclassHWND.AssignHandle(Me.TextBox1.Handle)
End Sub