تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال بخصوص رتش تكست بوكس
#1
السلام عليكم
عندي 2 تكست بوكس
اريد عند الضغط علي الزر يتم اضافة ما يوجد في تكست 1 الي الرتش تكست بوكس بمحاذاة اليسار
والتكست الاخر في سطر اخر بمحاذاة اليمين وهكذا
شكرا
الرد
تم الشكر بواسطة:
#2
ارجو المساعدة
الرد
تم الشكر بواسطة:
#3
ايه الحل من فضلكم ؟
الرد
تم الشكر بواسطة:
#4
مش ليها حل؟
الرد
تم الشكر بواسطة:
#5
وعليكم السلام ورحمة الله وبركاته
تفضل استخدم هذا الـ 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
#6
ممتاز بارك الله فيك
شكرا جزيلا
الرد
تم الشكر بواسطة: kiki



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم