مشکل ادیت تکست(ریسپانسیو)

[yagohb 25]

سلام دوستان
چجوری میتونم یه ادیت تکست مثل این رو درست کنم؟
که با اضافه شدن هر سطر فضای ادیت تکست بزرگتر شود و پایین تر بیاد 
 

لطفا پاسخ بدید. ممنون

[M-CAP7AIN 537]

روش که من استفاده میکنم ، بازم ببینید دوستان چی پیشنهاد میدن.

Dim SU As StringUtils

 

Sub EditText1_TextChanged (Old As String, New As String)
	Panel1.Height = SU.MeasureMultilineTextHeight(EditText1 , EditText1.Text)+30dip
End Sub

 

[mrabay 3]

سلام یک ادیت تکست که میسازی تیک گزینه   forceDone   رو بردار 
و همچنین   singleline
 

[yagohb 25]

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

و به ترتیب شئ های زیرن تغییر مکان بده و بیاد پاییین

[mohammad3250 206]

مقدار height رو برابر -1 قرار بده

[yagohb 25]

در 2 ساعت قبل، mohammad3250 گفته است :

مقدار height رو برابر -1 قرار بده

توی چه رویدادی این کد رو بزارم . بیشتر توضیح بده

[M-CAP7AIN 537]

EditText1.Height = -2

 

[yagohb 25]

در 41 دقیقه قبل، M-CAP7AIN گفته است :

EditText1.Height = -2

 

این رو تست کردم جواب نداد

Sub ED_Subject_TextChanged (Old As String, New As String)
	ED_Subject.Height = -2
End Sub

 

[M-CAP7AIN 537]

 

در 10 ساعت قبل، yagohb گفته است :

این رو تست کردم جواب نداد

Sub ED_Subject_TextChanged (Old As String, New As String)
	ED_Subject.Height = -2
End Sub

 

داخل Activity_Create قرار بدید

 

[yagohb 25]

توی سایت مرجع هم جستجو کردم . خبری نبود

[yagohb 25]

 

در 12 دقیقه قبل، M-CAP7AIN گفته است :

 

داخل Activity_Create قرار بدید

 

مرسی پاسختون . مشکل حل شد

[yagohb 25]

معذرت میخوام ، میشه با بزرگ شدن ادیت تکست سایز پنل یا لیستی که داخلش (ادیت تکست) قرار داره با هم بزرگ بشه.