منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال بخصوص رتش تكست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
عندي 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)
ممتاز بارك الله فيك
شكرا جزيلا