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

أسئلة حول Rich text box

مغلق
بدأه computeach في 2 أبريل 2007 · 3 رد · 864 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

س1: كيف يمكن تغير لون الخط في rich text box من خلال الكود؟

س2: عند تحميل نص من قاعدة البيانات إلى rich text box وفي نهاية النص يحتوي على نقطة.

تظهر النقطة في بداية السطر بالرغم عاملة المحاذاه للـ rich text boc جهة اليمين.

ماذا أفعل لأجعل النقطة نهاية الجملة تظهر في نهاية السطر في rich text box?

#2

لتغيير اللون للنص المحدد أستعمل

RichTextBox1.SelColor = vbRed

بالنسبة للسؤال التانى , انا جربت نص عربى و فى آخره نقطة و ظهرت بشكل صحيح

يمكن دى مشكلة كانت بالأصدارات السابقة من الأداة و أتحلت بالـ SP6 ؟؟؟!!!!!!!!!!!!

تم تعديل هذه المشاركة بواسطة msayed2004 في 2 أبريل 2007 في 18:53

#3

لضبط الكتابة في Rich box

ضع هذا الكود في موديول :

Option Explicit

Sub Adjust(Rt As RichTextBox)
Dim Pos&, Lngth&
Pos = Rt.SelStart
Lngth = Rt.SelLength
With Rt
.TextRTF = Replace(.TextRTF, "\ltrpar", "\rtlpar")
.TextRTF = Replace(.TextRTF, "\ltrch", "\rtlch")
.SelStart = 0: .SelLength = Len(.Text)
.SelAlignment = 1
.TextRTF = Replace(.TextRTF, "\ltrch", "\rtlch")
.SelStart = 0: .SelLength = Len(.Text)
.SelStart = Pos
.SelLength = Lngth
End With
End Sub

ثم ضع هذا الكود في حدث تحميل الفورم :

Private Sub Form_Load()
Adjust RichTextBox1
End Sub

تم تعديل هذه المشاركة بواسطة Visual Studio في 2 أبريل 2007 في 21:08

#4

جربت كود الأخ viusal studo

وفعلا أنحت مشكلة السؤال الثاني

واستخدمت هذا الكود لتغير لون الخط في rich text box

richText box1.selstart=0
richTextBox1.selLength=len(richtextBox1.text)
richtextBox1.selColor=vbRed

وشكرا للجميع

هذا الموضوع مغلق.

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