02-24-2015, 10:37 AM
|
عضو مميز
|
|
تاريخ التسجيل: Aug 2014
المشاركات: 5,969
|
|
طلب مساعدة من خبراء الفيجوال بيسك 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
هنا لا مشكلة مع القوس المربع لأنه مسبوق بنص عربي، والمشكلة مع القوس الأخير ويظهر في أيمن السطر بمقاس مختلف
المطلوب عرض النصوص الثلاثة بشكل صحيح من اليمين إلى اليسار
وقد تعمدت تنويع الأقواس لإظهار المطلوب
وجربت عدة خطوط بلا فائدة
وهذه المشكلة غير موجودة في صندوق النصوص العادي وإنما في صندوق النص الغني
أفيدونا الله يحفظكم, ساعد في نشر والارتقاء بنا عبر مشاركة رأيك في الفيس بوك
|