تغییر فونت قسمتی از متن Textbox

[hossein71]

سلام
دوستان عزیز
به طور فرض من در یک تکست باکس 5 تا کلمه دارم که می خوام از این 5 تا تحت شرط خاصی2 تا شو Bold کنم.چطوری می تونم این کارو انجام بدم.

[hossein71]

تو رو خدا یکی جوابمو بده!!!:ناراحت:

[xxxxx_xxxxx]

با TextBox نمیشه این کارو کرد. باید از RichTextBox استفاده کنید.

[hossein71]

با TextBox نمیشه این کارو کرد. باید از RichTextBox استفاده کنید.
چطوری باید این کارو در Richtextbox بکنم. اگر یاد بدین خیلی ممنون میشم.

[xxxxx_xxxxx]

RichTextBox1.Text = "Barnamenevis"
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = 7
RichTextBox1.SelBold = True

خروجی:


Barnamenevis

[hossein71]

نقل قول: تغییر فونت قسمتی از متن تکست باکس
کد:
RichTextBox1.Text = "Barnamenevis"
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = 7
RichTextBox1.SelBold = True
خروجی:
کد:
Barnamenevis

__________________

قوانین کلی سایت (http://barnamenevis.org/forum/showpost.php?p=261719&postcount=1)



ضمن تشکر از راهنماییتون
Richtextbox Right to Left(منظورم راست چین کردن هست) نداره؟(من بهش نیاز دارم)

[hossein71]

تو رو خدا یکی جوابمو بده!!!:ناراحت:

[xxxxx_xxxxx]

لطفاً پیش از ایجاد تاپیک جستجو کنید:
Right To Left كردن متن توي RichTextBox (http://barnamenevis.org/forum/showthread.php?t=184560)

[hossein71]

جناب xxxxx_xxxxx ضمن تشکر از راهنماییتون من اول سرچ کردم بعدش این پستو زدم.(چیزی که دنبالش بودمو در این سایت پیدا نکردم)
جوابو بالاخره در سایت P30World پیدا کردم.
اینم راه راست چین کردن RichTextBox:




Function Right2Left(R As RichTextBox, R2L As Boolean)
'BY: _CrazyFull_
If Not InStr(R.TextRTF, "\qr") > 0 And R2L = True Then
R.TextRTF = Replace(R.TextRTF, "\rtrch", "\ltrch")
R.TextRTF = Replace(R.TextRTF, "\pard\", "\pard\qr\")
End If
If InStr(R.TextRTF, "\qr") > 0 And R2L = False Then
R.TextRTF = Replace(R.TextRTF, "\ltrch", "\rtrch")
R.TextRTF = Replace(R.TextRTF, "\qr", "")
End If
End Function
Private Sub RichTextBox1_Change()
Call Right2Left(RichTextBox1, True)
End Sub

اگر در قسمت RichTextBox1_Change به جای مقدار False،True قرار بدید. RichTextbox چپ چین میشه.