مشکل حرکت اسکرول ویو با محتویات

[zartosht 10]

با درود

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

اینم بگم هم از روش

ScrollBtn.Panel.AddView(lblText,ScrollBtn.Left + 5dip,ScrollBtn.Top + 5dip,ScrollBtn.Width - 10dip,2000dip)

استفاده کردم و مقدار ارتفاع Height رو همه جوری گذاشتم.

و هم از روش لیبل گذاشتن توی دیزاینر استفاده کردم

	Dim str As String
	Dim st As StringUtils
	lblText.Initialize("")
	ScrollBtn.Panel.AddView(lblText,ScrollBtn.Left + 5dip,ScrollBtn.Top + 5dip,ScrollBtn.Width - 10dip,2000dip)
	str=ReadFile("1.txt")
	lblText.Text=str
	lblText.TextSize=20
	lblText.Gravity=Gravity.CENTER
	lblText.Color=Colors.Transparent
	ScrollBtn.Height=st.MeasureMultilineTextHeight(lblText,lblText.Text)

دوستان لطفا راهنمایی کنید که چرا ارتفاع اسکرول تنظیم نمیشه

[alihack 52]

این کدو با خط اخری عوض کنین

ScrollBtn.panel.Height=st.MeasureMultilineTextHeight(lblText,lblText.Text)

[zartosht 10]

ممنون دوست عزیز حل شد ولی سایز label ک 2000 بود ثابته با سایز متن اندازه نمیشه. برای این چه راه حلی دارید؟

با کد زیر نشد

lblText.Height=st.MeasureMultilineTextHeight(lblText,lblText.Text)