مشکل دیتابیس

[حسینh 50]

با سلام  دوستان من میخوام یه دیتابیس بسازم که چند گزینه داشته باشه که اگه برروی یکی زده شد متنی نشان داده شود که  عکس در وسط واخر ان باشد نه به صورت ایمیج ویو در اول (قابلیت جستجو هم داشته باشد)

[مهدی ایزدی 9,203]

درود

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

بنده اصلا متوجه منظور شما نمیشم !

[حسینh 50]

سلام میخوام یه دیتابیس درست کنم که متن وعکس داشته باشد .عکس در وسط ان باشد ولی نه به صورتی که عکس ان را گذاشتم

[مهدی ایزدی 9,203]

یعنی :

متن

عکس

متن

عکس

متن

عکس

 

؟؟؟

اینجوری ؟؟؟؟

[حسینh 50]

اره ولی چند گذینه داشته باشد( چند فصل) نه یکی

[mmv68t 27]

این که دوستان میگن برای هر مطلب یک تیبل اضافه کنیم کار با فایل رو اشتباهی گرفتن با دیتابیس شما اگر میخوایین از دیتابیس فراخوانی داشته باشین باید یه قالب ثابت داشته باشین و اون قالبو توی دیزاین طراحی کنید تا به صورت لایوت ذخیره بشه بعد با استفاده از کرسر اطلاعات لازمو از دیتابیستون فراخونی کنید و با استفاده از دستورات تکرار یا همون حلقه به لایوتتون انتصاب بدید

[حسینh 50]

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

[1212 76]

من راهنماییت میکنم ببین احتمالا کمی درهم برهم باشه اما کدها درسته؟

[1212 76]

'

 

If cur.GetString("matn"&i) <> Null Then

Dim text As Label

text.initialize("Label")

text.text = cur.GetString("matn"&i)

text.Gravity = Gravity.RiGHT

text.TextColor = Colors.Black

text.TextSize = First.fontsize

text.Typeface = Typeface.LoadFromAssets(First.font &".ttf")

ScrollView1.Panel.AddView(text,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)

Dim su As StringUtils

text.Height= su.MeasureMultilineTextHeight(text,text.text)+10

h = h + su.MeasureMultilineTextHeight(text,text.text) + 30

ScrollView1.Panel.Height = h

End If

 

If cur.GetString("aks"&i) <> Null Then

'عکس دادن نشان

 

Dim imageView1 As ImageView

imageView1.initialize("imageView")

imageView1.tag = cur.GetString("aks"&i)

 

'اضافه کردن عکس

ScrollView1.Panel.AddView(imageView1,0,h,ScrollView1.Width,ScrollView1.Height)

imageView1.Bitmap = First.Bitmap1(i)

 

If First.Bitmap1(i).Width > 100%x Then 

imageView1.Width = 100%x

imageView1.Height = (imageView1.Width / First.Bitmap1(i).Width )*First.Bitmap1(i).Height

imageView1.Gravity = Gravity.Fill

 

Else 

imageView1.Width = First.Bitmap1(i).Width 

imageView1.Height = First.Bitmap1(i).Height 

imageView1.Left = (100%x - imageView1.Width)/2

imageView1.Gravity = Gravity.Fill

End If 

h = h + imageView1.Height + 30

ScrollView1.Panel.Height = h

End If

'عکس کردن باز

 

 

'

[حسینh 50]

دوست عزیز یه مقدار درباره کدها توضیح میدی لطفا وکجا باید قرار شون داد

[mmv68t 27]

چرا

[حسینh 50]

چرا

یهمقدار درهم کدها