كيف يمكنني أن أربط أداتان RichTextBox باللون
أي أني أريد إذا تم تحديد نص وتلوينه في RichTextBox1 يحدث نفس الشئ في RichTextBox2
مثال في TextBox
كود :
Text1.Forecolor = Text2.Forecolor
لكن في أداة RichTextBox الكود يكون كالآتي ولا يعمل
كود :
RichTextBox1.SelColor = RichTextBox2.SelColor
الرجاء إفادتنا
أخي الكريم يمكنك وضع هذا الكود داخل زر أمر وتجريبه لكي تتعرف على كيفية ضبط خاصية اللون لأداة رتش تكست
Private Sub Command1_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = &HFF&
RichTextBox1.SelStart = 4
RichTextBox1.SelLength = 7
RichTextBox1.SelColor = &H00FF0000&
End Sub
أخي بعد محاولات كثيرة توصلت لهذا الكود
ولكن المشكلة إذا حددت نص وتغير لونه وعدت من جديد وحددت نص آخر يتغير لون النص الجديد ويمسح النص الأول (أنا عارف إنكم مافهتم شي تابعوا المثال xD
)
الكود الذي توصلت إليه
كود :
On Error Resume Next
Form2.RichTextBox2.Text = Form1.RichTextBox1.Text
RichTextBox2.SelStart = Form1.RichTextBox1.SelStart
RichTextBox2.Text = Form1.RichTextBox1.SelLength
RichTextBox2.SelColor = Form1.RichTextBox1.SelColor
السلام عليكم
- عدل كود الفورم2 , أمسحه كله , وألصق هذا بدله :
كود :
Private Sub Form_Load()
On Error Resume Next
Form2.RichTextBox2.TextRTF = Form1.RichTextBox1.TextRTF
End Sub
- تحياتي .