[abdou]

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

[abdou]

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

[abdou]

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

[abdou]

مش ليها حل؟

[kiki]

وعليكم السلام ورحمة الله وبركاته
تفضل استخدم هذا الـ 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)

[abdou]

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