+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] دمج النصوص العربية Concate? (/showthread.php?tid=22128)
دمج النصوص العربية Concate? - khaled_35 - 16-10-17
السلام عليكم اخواني الكرام
عندي سؤال بحثت عنه ولم استطع العثور على اجابة فإن كان الموضوع مطروح من قبل فالمعذرة.
المشكلة تكمن في التعامل مع النصوص العربية حيث انها لاتظهر كما يتم ترتيبها في الكود حاولت مع 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
مع تحياتي
أخيكم علي
RE: دمج النصوص العربية Concate? - a.ahmed - 16-10-17
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)
RE: دمج النصوص العربية Concate? - khaled_35 - 16-10-17
(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)
فعلا عضو مبدع كما في عضويتك
