Question

好的，所以我在stackoverflow上找到了这个代码，并将其实现到我项目中的新类文件中。

    Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Namespace WindowsFormsApplication1

    Public Class MyRichTextBox
        Inherits RichTextBox
        <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
        Public Shared Function GetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer
        End Function

        <DllImport("user32.dll")> _
        Private Shared Function SetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer
        End Function

        Private Const SB_HORZ As Integer = &H0
        Private Const SB_VERT As Integer = &H1

        ''' <summary>
        ''' Gets and Sets the Horizontal Scroll position of the control.
        ''' </summary>
        Public Property HScrollPos() As Integer
            Get
                Return GetScrollPos(DirectCast(Me.Handle, IntPtr), SB_HORZ)
            End Get
            Set(ByVal value As Integer)
                SetScrollPos(DirectCast(Me.Handle, IntPtr), SB_HORZ, value, True)
            End Set
        End Property

        ''' <summary>
        ''' Gets and Sets the Vertical Scroll position of the control.
        ''' </summary>
        Public Property VScrollPos() As Integer
            Get
                Return GetScrollPos(DirectCast(Me.Handle, IntPtr), SB_VERT)
            End Get
            Set(ByVal value As Integer)
                SetScrollPos(DirectCast(Me.Handle, IntPtr), SB_VERT, value, True)
            End Set
        End Property
    End Class
End Namespace

在我将代码实现到我的项目后，我意识到要替换我的RichTextBox，我将不得不改变我的大部分代码。为了更快地执行此操作，我将以下代码放在我的form1_Load事件中。

 RichTextBox1 = New MyRichTextBox

所以现在RichTextBox1是MyRichTextBox

因为MyRichTextBox实现了RichTextBox，所以它应该具有相同的事件。

但是我的RichTextbox.TextChanged事件不起作用。现在，如果我从form1_load中删除上面的那行，它就可以了。怎么了？

修改

所以我发现MyRichTextBox没有与RichTextBox相同的事件......我将如何添加这些事件？

Answer 1

试试这段代码。

在类

的旁边添加textchanged事件

示例

    Imports System
    Imports System.Collections.Generic
    Imports System.Text
    Imports System.Runtime.InteropServices
    Imports System.Windows.Forms
    Namespace WindowsFormsApplication1

        Public Class MyRichTextBox
            Inherits RichTextBox
            <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
            Public Shared Function GetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer) As Integer
            End Function

            <DllImport("user32.dll")> _
            Private Shared Function SetScrollPos(ByVal hWnd As IntPtr, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Boolean) As Integer
            End Function

            Private Const SB_HORZ As Integer = &H0
            Private Const SB_VERT As Integer = &H1

......
.........
..........
........
......


''' Add the Event



            Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)

                MsgBox(Me.Text)
                MyBase.OnTextChanged(e)
            End Sub

        End Class

    End Namespace

加载事件

 Dim RichTextBox1 As New WindowsFormsApplication1.MyRichTextBox
    Me.Controls.Add(RichTextBox1)

为什么我的RichTextBox没有激活它的事件vb.net

1 个答案: