[burkan]

السلام عليكم عندي مشكله صغيره بالضبط وابي استفسار لها واذا لم يجد الحل اعطوني اي حل صغير اخر ...

اولا . انا اصنع RichTextBox عن طريق البرمجه وليس عن طريق اخذ الاداه ولصقه على فورم والكود هو

Dim txt2 As New System.Windows.Forms.RichTextBox


الكود لا بأس به شغال .... وبالطبع يوجد هناك ميزات لـ RichTextBox مثل AppendText او selectioncolor

من بعد صنع الـ richextbox راح اركبه في تاب كنترول Tabcontrol كذا

Me.TabControl1.TabPages(0).Controls.Add(txt1)

.... اذا بغيت احط نص في richtextbox يلي صنعته حطها هكذا

Me.TabControl1.TabPages(0).Controls("1").Text = "نص هنا"

والمشكلة هنا ... اريد اعمل appendtext و selectioncolor للـ richtextbox يلي صنعتو

احط :

Me.TabControl1.TabPages(0).Controls("1").AppendText("نص هنا")

لاينفع ولا ينفع selectioncolor

بليز ابي حل اهم اهم اهم شي هو selectioncolor

واذا مش ممكن .. ممكن اصنع سترنج واحط لونها مثلا احمر .. واروح احطها في رج تكست بوكس واروح اعمل سترنج اخر بلون اخر وحطها في رج تكست بوكس وكذا بيكون ملون رج تكست بوكس


ملاحظة : لا اريد هكذا :

Me.TabControl1.TabPages(0).Controls("1").ForeColor

فـ هذا يلون جميع االنص بلون واحد

[ربيع]

نحمده ونصلي على رسوله الكريم

هنالك خياران وانت حل بينها...

الأول: ضع المتغير txt2 الذي يمثل أداة RichTextBox، خارج الإجراءاة تماما، اجعله متغير عام للنموذج، ثم استخدمه مباشرة:

كود :

[align=left]txt2.Text = "نص هنا"
txt2.AppendTex("نص هنا")
[/align]

الخ....

الثاني: عند كل عملية على الأداة اكتب هذا الكود:

كود :

[align=left]CType(MainForm.TabControl1.TabPages(0).Controls("1"), RichTextBox).SelectionColor = Color.Red
[/align]

[burkan]

الف شكر ليك اخوي