من با استفاده از حلقه ی فور چند تا آیتم رو تو برنامم لود میکنم کدش اینجوریه :
For i = 0 To cur.RowCount-1
cur.Position=i
Dim btn As Button
btn.Initialize("Btn")
btn.Text=cur.GetString("Onvan")
btn.Tag=i+1
If cur.GetInt("Neshan")=0 Then
Dim bb As BitmapDrawable
bb.Initialize(LoadBitmapSample(File.DirAssets,"button1.png",400,400))
btn.Background=bb
Else
Dim bb2 As BitmapDrawable
bb2.Initialize(LoadBitmapSample(File.DirAssets,"button2.png",400,400))
btn.Background=bb2
End If
ScrollView1.Panel.AddView(btn,0,h,100%x,15%y)
h = h + 10%x + 8%y
ScrollView1.Panel.Height = h + 2%x
btn.Typeface=a
btn.Gravity=Gravity.RIGHT
btn.TextColor=Colors.White
btn.TextSize=25
Next
وقتی میخوام به تگ باتونم دوتا فیلد دتابیس رو معرفی کنم کد مربوط به این کارو جایگزین i+1 میکنم ولی موقع اجرای برنامه خطا میده چه جوری باید بدون بهم زدن کد لود اطلاعات ، به تگ باتونم دوتا فیلد معرفی کنم ؟
سوال
shahriar 408
سلام به تمامی اساتید
من با استفاده از حلقه ی فور چند تا آیتم رو تو برنامم لود میکنم کدش اینجوریه :
For i = 0 To cur.RowCount-1 cur.Position=i Dim btn As Button btn.Initialize("Btn") btn.Text=cur.GetString("Onvan") btn.Tag=i+1 If cur.GetInt("Neshan")=0 Then Dim bb As BitmapDrawable bb.Initialize(LoadBitmapSample(File.DirAssets,"button1.png",400,400)) btn.Background=bb Else Dim bb2 As BitmapDrawable bb2.Initialize(LoadBitmapSample(File.DirAssets,"button2.png",400,400)) btn.Background=bb2 End If ScrollView1.Panel.AddView(btn,0,h,100%x,15%y) h = h + 10%x + 8%y ScrollView1.Panel.Height = h + 2%x btn.Typeface=a btn.Gravity=Gravity.RIGHT btn.TextColor=Colors.White btn.TextSize=25 Nextوقتی میخوام به تگ باتونم دوتا فیلد دتابیس رو معرفی کنم کد مربوط به این کارو جایگزین i+1 میکنم ولی موقع اجرای برنامه خطا میده چه جوری باید بدون بهم زدن کد لود اطلاعات ، به تگ باتونم دوتا فیلد معرفی کنم ؟
لطفا کمک کنید خیلی ضروریه !!!
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.