ریچ تکست باکس با خاصیت AutoSize

[ASedJavad]

سلام
امکانش هست کاری کرد که ارتفاع ریچ تکست باکسمون به طور خودکار با کاهش و افزایش متن کم و زیاد بشه؟
لازم به تذکر هست که تو ریچ تکست باکسمون هیچ عکسی به کار نمیره و تو کل متن تغییر فونت نداریم. (فقط تغییر رنگ داریم)

[vbhamed]

سلام

خب اگر تغيير فونت نداري كارت راحته، يك پيكچر باكس مخفي رو فرم بزار و فونتش رو دقيقا مثل Rich تنظيم كن
بعد كد زير رو بنويس

Private Sub RichTextBox1_Change()

On Error Resume Next

c = RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text ) - 1) + 2
If c < 1 Then c = 1
RichTextBox1.Height = c * Picture1.TextHeight("A") + 60

End Sub