0

RichTextBox の背景が透明に見えるようにするカスタム コントロールを作成することができました。これはほぼ完全に機能しますが、唯一のことは、Rich Text ボックスを更新するとすべてが点滅/点滅することです。文字を入力するたびに、すべてのフォームが更新され、テキストとフォームの背景画像が点滅します。

使用する以外にテキストを更新/更新する他の方法はありますか

MyBase.Parent.Refresh()

これは私のコードです:

Class TransparentRichTextBox
Inherits RichTextBox
Public Sub New()
    MyBase.ScrollBars = RichTextBoxScrollBars.None
End Sub
Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
    Get
        Dim cp As CreateParams = MyBase.CreateParams
        cp.ExStyle = cp.ExStyle Or &H20
        Return cp
    End Get
End Property
Protected Overloads Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
End Sub
Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
    MyBase.OnTextChanged(e)
    MyBase.Parent.Refresh()
    End Sub
End Class

ありがとう。

4

0 に答える 0