10-03-13, 04:32 PM
السلام عليكم عندي مشكله صغيره بالضبط وابي استفسار لها واذا لم يجد الحل اعطوني اي حل صغير اخر ...
اولا . انا اصنع 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
فـ هذا يلون جميع االنص بلون واحد
اولا . انا اصنع 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
فـ هذا يلون جميع االنص بلون واحد