تغیر اندازه تکس باکس

[ICANICAN]

این کد رو نوشتم ومی خوام متن هایی که به تکس باکس می فرستم رو در چندین خط نمایش بده و طوی تکس باکس و فرمم تغییر کنه به اندزاه بلند ترین خط پیام باشه .این کد تقریبا این کار رو میکنه اما نمی تونه طول تکس باکس رو به اندازه بلند ترین خط در بیاره .


Private Sub Form_Load()
Dim t As String
Dim x As Integer
Text1.Text ="111111111111" &vbnewline& "111111111111111111111111111111111111111111"

t = Text1.Text
x = Len(t) * 45
Text1.Width = x
Form1.Width = Text1.Width + 1500


خصوصیات تکس باکس روهم دیدم خاصیتت auto size نداره .ممنون می شم راهنماییم کنید .با تشکر :لبخندساده:

[mehran901]

والا این چیز خاصی نداره که ، دوست عزیز شما در رویداد change تکست باکس اینو بنویس :
Text1.Width = Len(Text1) * 10 + Text1.Width

با تایپ کاراکتر ها طولش تغییر میک نه

[محسن واژدی]

سلام علیکم
تابع زیر هم بررسی کنید:
Private Sub AutoFitTBContents(ByVal txt As TextBox)
Set Font = txt.Font
txt.Width = TextWidth(txt.Text) + 120
txt.Height = TextHeight(txt.Text) + 120
End Sub

به عنوان مثال:
Private Sub Text1_Change()
AutoFitTBContents Text1
End Sub

موفق باشید