[khaled_35]

السلام عليكم اخواني الكرام

عندي سؤال بحثت عنه ولم استطع العثور على اجابة فإن كان الموضوع مطروح من قبل فالمعذرة.

المشكلة تكمن في التعامل مع النصوص العربية حيث انها لاتظهر كما يتم ترتيبها في الكود حاولت مع RSet  Lset Text.Alignment ولم تفلح جميع المحاولات

من اعدادات الفورم تم اختيار المحاذاة لليمين وكذلك مربع RichTextBox

عندي نص كما يلي :

كود :

Dim rules_b As String = "محيط الدائرة بحساب نصف القطر = "
           Dim rules_c As String = "2 نق ط  = "
           Dim roules_d As String = " X 2 "
           Dim roules_e As String = " 2 "
           RichTextBox1.Text = اريد النص العربي ان يظهر هنا
           

بالشكل التالي :
محيط الدائرة بحساب نصف القطر =
2 نق ط = 2 x نصف قطر الدائرة X  ط (3.14)
2 نق ط = cdbl(vlaue1) X textbox1.text X 2

مع تحياتي
أخيكم علي

[a.ahmed]

PHP كود :

RichTextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
Dim rules_b As String = "محيط الدائرة بحساب نصف القطر = "
Dim rules_c As String = "2 ط نق = "
Dim roules_d As String = "2 × 3.14 × " & Val(TextBox1.Text) & " = "
Dim roules_e As String = 2 * Val(TextBox1.Text) * 3.14
RichTextBox1.Text = String.Concat(rules_b, rules_c, roules_d, roules_e) 


[khaled_35]

(16-10-17, 02:15 AM)a.ahmed كتب :

PHP كود :

RichTextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
Dim rules_b As String = "محيط الدائرة بحساب نصف القطر = "
Dim rules_c As String = "2 ط نق = "
Dim roules_d As String = "2 × 3.14 × " & Val(TextBox1.Text) & " = "
Dim roules_e As String = 2 * Val(TextBox1.Text) * 3.14
RichTextBox1.Text = String.Concat(rules_b, rules_c, roules_d, roules_e) 


تسلم ياغالي ولا عدمناك

فعلا عضو مبدع كما في عضويتك