منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال بخصوص رتش تكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال بخصوص رتش تكست بوكس (/showthread.php?tid=36579)

سؤال بخصوص رتش تكست بوكس - abdou - 01-10-20

السلام عليكم
عندي 2 تكست بوكس
اريد عند الضغط علي الزر يتم اضافة ما يوجد في تكست 1 الي الرتش تكست بوكس بمحاذاة اليسار
والتكست الاخر في سطر اخر بمحاذاة اليمين وهكذا
شكرا

RE: سؤال بخصوص رتش تكست بوكس - abdou - 01-10-20

ارجو المساعدة

RE: سؤال بخصوص رتش تكست بوكس - abdou - 02-10-20

ايه الحل من فضلكم ؟

RE: سؤال بخصوص رتش تكست بوكس - abdou - 04-10-20

مش ليها حل؟

RE: سؤال بخصوص رتش تكست بوكس - kiki - 04-10-20

وعليكم السلام ورحمة الله وبركاته
تفضل استخدم هذا الـ Sub
كود :
   Sub Line(Rtb As RichTextBox, Text As String, alignment As HorizontalAlignment)
       Dim Index, start, length As Integer
       Index = Rtb.Lines.Length
       Rtb.AppendText(IIf(Rtb.TextLength > 0, vbNewLine, Nothing) + Text)
       start = Rtb.GetFirstCharIndexFromLine(Index)
       length = Rtb.Text.Length
       Rtb.Select(start, length - Index)
       Rtb.SelectionAlignment = alignment
       Rtb.DeselectAll()
   End Sub

وتعال عند حدث التنفيذ لكل من textbox الاول او الثاني واستخدم الامر بهذا الشكل
كود :
Line(RichTextBox1, TextBox1.Text, HorizontalAlignment.Left)

كود :
Line(RichTextBox1, TextBox2.Text, HorizontalAlignment.Right)


RE: سؤال بخصوص رتش تكست بوكس - abdou - 04-10-20

ممتاز بارك الله فيك
شكرا جزيلا