سلام دوستان . از یه اسکرول ویو استفاده کردم برای ایجاد یه لیست از دکمه ها (باتن ) که عنوان باتن رو از دیتابیس میخونه .ولی مشکل اینه که فقط 7 مورد اول رو ایجاد میکنه و بقیه رو ایجاد نمیکنه .اینم کدهای استفاده شده . ممنون میشم کمک کنید
Dim cur As Cursor
cur= sql1.ExecQuery("SELECT * FROM madar")
Dim h As Int
h=1%y
For i=0 To cur.RowCount -1
cur.Position=i
Dim btn As Button
btn.Initialize("btn")
btn.Text= cur.GetString("onvan")
btn.TextSize=15
btn.TextColor=Colors.Black
btn.Gravity=Gravity.RIGHT
btn.Tag=i+1
ScrollView1.Panel.AddView(btn,0,h,90%x,10%y)
h=h+9%y
Next
سوال
parvin 123
سلام دوستان . از یه اسکرول ویو استفاده کردم برای ایجاد یه لیست از دکمه ها (باتن ) که عنوان باتن رو از دیتابیس میخونه .ولی مشکل اینه که فقط 7 مورد اول رو ایجاد میکنه و بقیه رو ایجاد نمیکنه .اینم کدهای استفاده شده . ممنون میشم کمک کنید
Dim cur As Cursor cur= sql1.ExecQuery("SELECT * FROM madar") Dim h As Int h=1%y For i=0 To cur.RowCount -1 cur.Position=i Dim btn As Button btn.Initialize("btn") btn.Text= cur.GetString("onvan") btn.TextSize=15 btn.TextColor=Colors.Black btn.Gravity=Gravity.RIGHT btn.Tag=i+1 ScrollView1.Panel.AddView(btn,0,h,90%x,10%y) h=h+9%y Nextلینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.