طلب مساعدة من خبراء الفيجوال بيسك 6

[منتدى اهل الحديث]

هناك مشكلة في صندوق النصوص الغنية (Rich Text Box)
وهي أن السطر العربي لا يعرض بشكل صحيح إلا إذا كان يبدأ وينتهي بنص عربي

اقتباس:

Dim sTxt As String
rtfBox1.Text = vbNullString
rtfBox1.SelAlignment = rtfRight

sText = "أولا [ثانيا] ثالثا"
rtfBox1.SelText = sText & vbNewLine
(هنا لا مشكلة لأن السطر يبدأ وينتهي بنص عربي

sText = "[ثانيا] ثالثا"
rtfBox1.SelText = sText & vbNewLine
هنا مشكلة لأن النص يبدأ بالقوس المربع ولذلك يأتي القوس على اليسار بمقاس مختلف ثم يعرض النص العربي بما فيه القوس المدور بشكل صحيح

sText = "أولا [ثانيا]"
rtfBox1.SelText = sText & vbNewLine
هنا لا مشكلة مع القوس المربع لأنه مسبوق بنص عربي، والمشكلة مع القوس الأخير ويظهر في أيمن السطر بمقاس مختلف

المطلوب عرض النصوص الثلاثة بشكل صحيح من اليمين إلى اليسار
وقد تعمدت تنويع الأقواس لإظهار المطلوب
وجربت عدة خطوط بلا فائدة
وهذه المشكلة غير موجودة في صندوق النصوص العادي وإنما في صندوق النص الغني
أفيدونا الله يحفظكم,
ساعد في نشر والارتقاء بنا عبر مشاركة رأيك في الفيس بوك