عمل صورة لخلفية Richtext Box

شكرا لك أخي على سرعة تجاوبك

لكني من يومين وأنا أحاول افهم هذا الكود أو انفذة ما قدرت

وفي بعد هذا الكود شبة واضح و ما تنفذ معي

Class TransparentControl

Inherits Control

Public Sub New()

MyBase.SetStyle(ControlStyles.UserPaint, True)

MyBase.SetStyle(ControlStyles.DoubleBuffer, True)

MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True)

End Sub

Private Sub InitializeComponent()

Me.SuspendLayout()

Me.ResumeLayout(False)

End Sub

End Class

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

End Class

يار يت إذا قدرت تنفذه او تسوي لي مثال عليه وترسلي ياه

أو توضحي لي كيف استخدم السورس كود

اكون شاكرلك ومقدر

أعمل Import ل AlphaBlendTextBox.dll وأعطي الخاصية MultiLine = true لكي تبدو مثل RichTextBox

اخى سويت add reference لل AlphaBlendTextBox.dl

وجيت اسوي لها Import ما ظهرت معي

يا ريت تسوي لي مثال على ويندوز فورم وترسلي ياه اكون شاكر لك ومقدر

ومعليش تعبت معي احتسب الاجر

Go to ToolBox -> Choose Elements -> Browse -> OK -> OK -> then Drag Drop over your form