رفتن به مطلب
  • 0

مشکل در استفاده از اسکرول ویو تتوسط کد نویسی


arf

سوال

سلام

زمانی که در کد زیر xx را عددی زیر ۸ می زارم برنامه کار میکند ولی هنگامی که عددی بین ۸ تا ۱۱ قرار می دهم کار نکرده و برنامه را می بندد.

چرا؟؟؟؟

Sub Globals
	Private TH1 As TabHost
	Private SV As ScrollView
	Private Panel1 As Panel
	Private L1 As Label
	Private L3 As Label
	Private IV2 As ImageView
	Private IV1 As ImageView
	Private L2 As Label
	Private SV2 As ScrollView
	Private Panel2 As Panel
	Private IV8 As ImageView
	Private IV7 As ImageView
	Private L4 As Label
	Private L5 As Label
	Private L6 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("TAPHOST")
	
	Dim a(11) As String
	a=Array As String("غیبت","عصبانیت","تهمت","تکبر","قضا‌شدن‌نماز","حسد","حق الناس","اتلاف‌وقت","پیمان‌شکنی","پرخوری","بد‌اخلاقی","اسراف")
	
	TH1.AddTab("بد","sv.bal")
	TH1.AddTab("نیک","svv.bal")
	TH1.SetLayout(0,0,100%x,100%y)
	
	
	
	
	Dim up,xx As Int
	up=0
	For i=0 To xx
	Dim pan,pan2 As Panel
	pan.Initialize("")
	SV.Panel.AddView(pan,0,up,100%x,500dip)
	
	pan2.Initialize("")
	SV2.Panel.AddView(pan2,0,up,100%x,500dip)
	
	up=up+90dip
	pan.LoadLayout("GONAH")
	pan2.LoadLayout("savaab")
	
	L1.Text=a(i)
	L2.Text="." & i

	L4.Text=a(i)
	L5.Text="." & i

	Next
	
End Sub	
لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...