لیست ویو دو خطی با تصویر به صورت تو در تو

[aar333 10]

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

بخش اول

توضیحات

----------

بخش دوم

توضیحات

---------

.

.

.

---------

بخش آخر

توضیحات

که بعد رو هر بخش که کلیک کنی بره تو زیر منو که اونم به همین صورت باشه و داینامیک به

فصل اول

توضیحات

---------------

فصل دوم

توضیحات

---------

.

.

.

---------

فصل آخر

توضیحات

منوها و زیر منوهاعکس دارن

و اینجا روی هر فصل که کلیک کنیم بره توی یه اسکرولی چیزی و مطالب متنی هر فصل رو که طولانی هست نشون بده .

مطالب رو از دیتابیس میخونم

و مشکلم در قسمت آخر هست که نمیتونم لیست ویو زیر منو ها رو به صورت داینامیک به متن هاشون متصل کنم و متن طولانی رو بذارم و بخونم

[مجید آرتا 5,874]

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

[aar333 10]

آره دوست عزیز

[مجید آرتا 5,874]

خب میتونی Value زیر منو رو بگیری و توی دیتابیس توسط کوئری WHERE سرچ کنی.

یعنی شما توی رویداد ItemClick بیا Value رو توی ستون ها بگرد و پیدا کن

[aar333 10]

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

از این استفاده میکنم

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("Matlab")
   Dim cur As Cursor
   cur = Home.SQL1.ExecQuery("SELECT * FROM mytable WHERE id ="&Home.meghdar)

   ScrollView1.Panel.AddView(matn,20,0,280,100%y)
   ts.Initialize
   For i = 0 To cur.RowCount-1
       cur.Position = i
       matn.Text = cur.GetString("matn")
   Next

End Sub

[aar333 10]

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

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

باور کنید هر چه بیشتر یاد بدین خودتون بیشتر یادمیگیرین

[حاج حسین 2,098]

سلام دوست عزیز

چرا عصبانی میشی ؟ با عصبانیت که کسی جوابتو نمیده

این کد همین الان از جایی برداشتم متاسفانه شبیه سازم همین الان از کار افتاد

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

Sub Activity_Create(FirstTime As Boolean)

Dim s As ScrollView

Dim pnl As Panel

Dim txt As Label

Dim img As Label

Dim brd As Label

s.Initialize(1000dip)

Activity.AddView(s,0,0,100%x,100%y)

Dim sh As Int

sh = 0

Dim h As Int

h = 0

For i = 1 To 10

pnl.Initialize("pnl")

s.Panel.AddView(pnl,0,h,100%x,73dip)

pnl.Color = Colors.RGB(27,94,32)

txt.Initialize("txt")

pnl.AddView(txt,50%x,20dip,230dip,40dip)

txt.Text = "test"

txt.TextColor = Colors.RGB(184,178,178)

txt.TextSize = 20

img.Initialize("img")

pnl.AddView(img,6dip,5dip,60dip,60dip)

img.SetBackgroundImage(LoadBitmap(File.DirAssets,"1.png"))

brd.Initialize("brd")

pnl.AddView(brd,0,69,100%x,4dip)

brd.Color = Colors.White

h = h + pnl.Height

sh = sh + pnl.Height

s.Panel.Height = sh

Next

End Sub