seekbar & multi panel

[yasin011 285]

سلام دوستان. سرچ کردم به نتیجه نرسیدم. بگم اینو اول . 

 

من میخوام اندازه متن لیبل هام هین کم و زیاد کردن سیکبار عوض شه. ولی نمیشه ! نمیدونم مشکل کجاست

اصلا میشه !! 

 

Activity.LoadLayout("scroll")
Dim top As Int = 10%y
For i=1 To 18
p.Initialize("")
p.LoadLayout("menu")
lbl_font_en.Tag = i
ScrollView1.Panel.AddView(p,5%x,top,80%x,70%y)
top = top + 100%y 
ScrollView1.Panel.Height = top
Next

 

 

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
lbl_font_en.TextSize = Value
End Sub

 

lbl_font_en تو دیزاینر ایجاد شده. seekbar هم همینطور

[پژمان نیکروان 6,055]

خب مشخصه لیبل آخری فقط تغییر میکنه.

اینو امتحان کن. اگه کار نکرد یه فکر دیگه ای میکنیم.

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	For Each v As View In scrollview1.Panel.GetAllViewsRecursive
	If v Is Label Then
		lbl_font_en=v
		lbl_font_en.TextSize=Value
	End If
	Next
End Sub

[پژمان نیکروان 6,055]

سلام بر یاسین عزیز.

میشه کامل تر توضیح بدی؟؟

سیک بار کجاست؟؟ توی مولتی پنله؟؟

لیبل ای که میخوای سایزش رو زیاد کنی کجاست؟؟ و لیبل چندمی سایزش عوض بشه.

یه توضیح کلی بده.

[yasin011 285]

سلام داداش

سیک بار کجاست؟؟

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

 

لیبل ای که میخوای سایزش رو زیاد کنی کجاست؟؟

 

من یه پنل دارم توش یه لیبل هست. اینو میام به چند فونت مخبلف نمایش میدم.

حالا بالی صفحه یه سیکبار اضافه میکنم در حین اجرا اضافه میکنم با کد.

 

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