لدي هذا الكود
كود :
RichTextBox2.SelectionBackColor = Color.Red
وهذا طبعا قبل ارساله
كود :
streamw.Write(pcname & ": " & RichTextBox2.Text & vbNewLine & "________________________" & vbNewLine)
لكن الاحظ لا يتم حفظ التنسيق فكيف الحل الصحيح
ياليت تعدل المثال لاني ماقدرت استوعب شلون ..التنسيق rtf اليس تتم قراءته من ملف؟ فكيف نرسل ونستقبل بتنسيق الوان؟ اريد المستقبل لو رسالته غير المرسل
السلام عليكم ورحمة الله وبركاته
تفضل أخي الحبيب
هذا الكود بإذن الله يفي بالطلب
كود :
Dim PcName As String = "PcName"
Dim OldRtf As String = RichTextBox2.Rtf
RichTextBox2.Text = PcName & ": " & RichTextBox2.Text & vbNewLine & "________________________" & vbNewLine
streamw.Write(RichTextBox2.Rtf)
RichTextBox2.Rtf = OldRtf
بالتوفيق
اقترح انو مع الارسال بيتحط معلومات التنثسق مثلا
fontsize(14) fontcolor(red) هكذا مثلا والبرنامج الى هيستقبل الرسالة يعالج المعلومات دى وينفذها على الرتش تكست بوكس الى بيظهر فيها الرسايل
