اعمال تغيير در آخرين خط textbox ؟

[radann66]

سلام دوستان
من تو برنامم يه textbox دارم كه خاصيت Multi Line فعاله
ميخام روي آخرين خط از متن نوشته شده در اين text box تغييراتي اعمال كنم :متفکر:
(مثلا فونتشو تغيير بدم)
لطفا راهنماييم كنين


مر30

[vbhamed]

سلام

TextBox معمولي همچين قابليتي نداره
شما بايد از RichTextBox استفاده كنيد كه در ليست كامپوننتها تحت گزينه Microsoft Rich Text Box قرار داره

[radann66]

سلام
ممنون از راهنماييت دوست عزيز
ميشه بگي چه جوري با Rich Text Box اين كار رو بكنم

بازم ممنون

[vbhamed]

سلام



On Error Resume Next

With RichTextBox1

Dim s$

s = .Text

If Right$(s, 2) = vbCrLf Then s = Left$(s, Len(s) - 2)

p = InStrRev(s, vbCrLf)

.SelStart = p
.SelLength = Len(s)
.SelColor = vbRed
.SelBold = True

End With