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
ありがとう。