تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار بسيط عن RichTextBox
#1
السلام عليكم عندي مشكله صغيره بالضبط وابي استفسار لها واذا لم يجد الحل اعطوني اي حل صغير اخر ...

اولا . انا اصنع 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 يلي صنعتو Sad

احط :

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

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

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

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


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

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

فـ هذا يلون جميع االنص بلون واحد Smile
الرد }}}
تم الشكر بواسطة:
#2
نحمده ونصلي على رسوله الكريم

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

الأول: ضع المتغير txt2 الذي يمثل أداة RichTextBox، خارج الإجراءاة تماما، اجعله متغير عام للنموذج، ثم استخدمه مباشرة:
كود :
[align=left]txt2.Text = "نص هنا"
txt2.AppendTex("نص هنا")
[/align]
الخ....

الثاني: عند كل عملية على الأداة اكتب هذا الكود:
كود :
[align=left]CType(MainForm.TabControl1.TabPages(0).Controls("1"), RichTextBox).SelectionColor = Color.Red
[/align]
الرد }}}
تم الشكر بواسطة:
#3
الف شكر ليك اخوي Smile Smile
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم