یک سوال در مورد RichTextBox

[سید حمید حق پرست]

سلام علیکم
یک سوال در مورد RichTextBox داشتم . ممنون میشم جواب بدهید
فرض کنید یک RichTextBox و یک تکست باکس و یک دکمه رو فرم داریم . حالا میخوایم با زدن دکمه متن تکست باکس به RichTextBox اضافه بشه در صورتی که این متن بولد شده باشه یا رنگی باشه (فقط متنی که بهش اضافه میکنیم میگم نه همه متنهارو)
ممنون میشم راهنمایی کنید

یا علی (ع)

[abolfazl-z]

سلام

کد زیر را بررسی کنید:

Private Sub Command1_Click()
Dim a As Integer
a = Len(RichTextBox1.Text)
RichTextBox1.Text = RichTextBox1.Text & Text1.Text
RichTextBox1.SelStart = a
RichTextBox1.SelLength = a + Len(Text1.Text)
RichTextBox1.SelColor = vbGreen
RichTextBox1.SelBold = True
End Sub


با تشکر:لبخندساده:

[محسن واژدی]

سلام علیکم
کد زیر را هم بررسی کنید:

RichTextBox1.TextRTF = "{\b\i\ In the Name of Allah}" موفق باشید

[سید حمید حق پرست]

سلام علیکم
از دوستان ممنون هستم

سلام

کد زیر را بررسی کنید:

Private Sub Command1_Click()
Dim a As Integer
a = Len(RichTextBox1.Text)
RichTextBox1.Text = RichTextBox1.Text & Text1.Text
RichTextBox1.SelStart = a
RichTextBox1.SelLength = a + Len(Text1.Text)
RichTextBox1.SelColor = vbGreen
RichTextBox1.SelBold = True
End Sub


با تشکر:لبخندساده:
این کد یه اشکال داره . اگر دوبار این عمل انجام بگیره نوشته رنگی قبلی که بهش اضافه کردیم رنگش میپره


سلام علیکم
کد زیر را هم بررسی کنید:

1
RichTextBox1.TextRTF = "{\b\i\ In the Name of Allah}"



موفق باشید
اقای واژدی این کد کد قبلی اگه وجود داشته باشه کار نمیکنه . فقط بولد هست و رنگ چکار کنم:متفکر:
دوستان ممنون میشم راهنمایی کنیدپ

یا علی (ع)

[محسن واژدی]

این کد قبلی اگه وجود داشته باشه کار نمیکنه . فقط بولد هست و رنگ چکار کنم سلام علیکم
این کد در واقع کدمارک های RTF هستند، میتوانید با TextRTF متن رنگی را گرفته و آنرا مطالعه کنید

موفق باشید