الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية جعل الكتابة للراسل بلون مختلف عن الكتابة الخاصة بالراسل الاخر في برنامج شات

بدأه زهرة الزنبق في 11 يوليو 2012 · 3 رد · 490 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اضع هذا الكود في تايمر لاظهار الكلام المستقبل من قاعدة البيانات في textbox3 ;

Me.TextBox3.Text = Me.TextBox3.Text & Chr(13) & Chr(10) & user21 & " : " & s1a.Tables(0).Rows(0)(0)

TextBox3.SelectionStart = TextBox3.TextLength - 1

TextBox3.ScrollToCaret()

واضع هذا الكود في زر الارسال لظهار الكلام المرسل الى قاعدة البيانات في textbox3

If TextBox3.Text <> "" Then

TextBox3.Text = TextBox3.Text & Chr(13) & Chr(10) & username & " : " & TextBox1.Text

TextBox3.SelectionStart = TextBox3.TextLength - 1

TextBox3.ScrollToCaret()

Else

TextBox3.Text = username & " : " & TextBox1.Text

End If

وبالتالي يكون لدي كلامين

1- كلام مستقبل

2-كلام مرسل

والاثنان يظهران في textbox3

واريد كل كلام بلون منهم بلون مختلف

#2

ارجو افادتي

#3

السلام عليكم ورحمة الله وبركاته

إن ذلك غير ممكن في الأداة TextBox العادية ولكنه ممكن في الأداة RichTextBox

إليك مثال كامل عن كيفية تلوين جزء من النص عن طريق الأداة RichTextBox :

RichTextBox1.SelectionStart = 0 بداية التحديد
RichTextBox1.SelectionLength = 5 طول النص المراد تحديده
RichTextBox1.HideSelection = True من أجل أن لا يظهر التحديد أمام المستخدم
RichTextBox1.SelectionColor = Color.CadetBlue تلوين النص المحدد
RichTextBox1.SelectionStart = RichTextBox1.TextLength من أجل نقل المؤشر إلى النهاية بعد الإنتهاء من تنسيق النص

السلام عليكم ورحمة الله وبركاته

تم تعديل هذه المشاركة بواسطة DOWNLOADER في 11 يوليو 2012 في 18:43

#4

أعتقد أن هذا الكود سيكون أبسط وأسهل ...

Dim TextColor As String = Textbox1.Text
        RichTextBox1.SelectionColor = Color.Red
        RichTextBox1.SelectedText = TextColor

تحياتي :blush:

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…