السلام عليكم
عندي 2 تكست بوكس
اريد عند الضغط علي الزر يتم اضافة ما يوجد في تكست 1 الي الرتش تكست بوكس بمحاذاة اليسار
والتكست الاخر في سطر اخر بمحاذاة اليمين وهكذا
شكرا
وعليكم السلام ورحمة الله وبركاته
تفضل استخدم هذا الـ 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)
ممتاز بارك الله فيك
شكرا جزيلا