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

مشکل در اسکرول ویو و پنل


majid08

سوال

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

	Dim offsetY  as Int = 1%y
Dim Cr As Cursor
 Cr = s90.ExecQuery("SELECT * FROM tbl1 WHERE type='"&type1.Text&"' ")
 For i = 0 To  Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  Scrolravayat.Panel.AddView(p,1%x,offsetY,99%x,100%y)
 
  offsetY = offsetY + 20%y
  p.LoadLayout("btn1")
  p.Tag = Cr.GetInt("id")
 Labelmazaj.Tag=Cr.GetInt("id")
 
  
   Labelmazaj.Text=Cr.GetString("onvan")

	
 Next
 Cr.Close
 Scrolravayat.Panel.Height = offsetY+13%y

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

 p.LoadLayout("btn1") 

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

لطفا راهنماییم کنید

اینم کدهام

Dim Cr As Cursor
 Cr = s90.ExecQuery("SELECT * FROM tbl1 WHERE type='"&type1.Text&"' ")
 For i = 0 To  Cr.RowCount - 1
  Cr.Position = i
  Dim p As Panel
  p.Initialize("p")
  
  Dim lab As Label
  lab.Initialize("lab")
  lab.Text= Cr.GetString("matn")
  
  p.AddView(lab,1%x,0,99%x,100%y)
  p.Tag = Cr.GetInt("id")

  Scrolravayat.Panel.AddView(p,1%x,offsetY,99%x,100%y)
 
 
 Next
 Cr.Close
 Scrolravayat.Panel.Height = offsetY 
 

متشکرم

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

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

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

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

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

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

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