+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] سؤال عن أداة RichTextBox (/showthread.php?tid=1995)
سؤال عن أداة RichTextBox - النبراس12 - 22-02-14
كيف يمكنني أن أربط أداتان RichTextBox باللون
أي أني أريد إذا تم تحديد نص وتلوينه في RichTextBox1 يحدث نفس الشئ في RichTextBox2
مثال في TextBox
كود :
Text1.Forecolor = Text2.Forecolorلكن في أداة RichTextBox الكود يكون كالآتي ولا يعمل
كود :
RichTextBox1.SelColor = RichTextBox2.SelColorالرجاء إفادتنا
RE: سؤال عن أداة RichTextBox - o_zeyad - 23-02-14
أخي الكريم يمكنك وضع هذا الكود داخل زر أمر وتجريبه لكي تتعرف على كيفية ضبط خاصية اللون لأداة رتش تكست
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
RE: سؤال عن أداة RichTextBox - النبراس12 - 23-02-14
أخي بعد محاولات كثيرة توصلت لهذا الكود
ولكن المشكلة إذا حددت نص وتغير لونه وعدت من جديد وحددت نص آخر يتغير لون النص الجديد ويمسح النص الأول (أنا عارف إنكم مافهتم شي تابعوا المثال 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.SelColorRE: سؤال عن أداة RichTextBox - VB_Coder - 24-02-14
السلام عليكم
- عدل كود الفورم2 , أمسحه كله , وألصق هذا بدله :
كود :
Private Sub Form_Load()
On Error Resume Next
Form2.RichTextBox2.TextRTF = Form1.RichTextBox1.TextRTF
End Sub- تحياتي .
RE: سؤال عن أداة RichTextBox - النبراس12 - 24-02-14
جزاك الله خير أفتدني جدا