کتاب همراه با عکس

[rezakakaei 15]

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

 

دوستان من با استفاده از یک سری کد تونستم یک کتاب فقط متن را پیاده سازی کنم حالا میخوام داخل این کتاب برای هر مطلبم یک عکس هم بالای همه مطالب(عکس که خاص همون مطلب هستش عکس هر مطلبی فرق داره )هم اضافه کنم  دقیقا باید چی کار کنم

 

 

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

Activity.LoadLayout("frm1")
	If File.Exists(File.DirInternal,"dbbook.db")= False Then
	File.Copy(File.DirAssets,"dbbook.db",File.DirInternal,"dbbook.db")
	End If
	
	If SQL1.IsInitialized=False Then
	SQL1.Initialize(File.DirInternal,"dbbook.db",False)
	End If
	
	
	Dim cur As Cursor
	cur=SQL1.ExecQuery("SELECT * FROM Tbl1")
	
	For i = 0 To cur.RowCount-1
    cur.Position=i
    ListView1.AddSingleLine2( cur.GetString("Fasl"),cur.GetInt("id"))
    ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
	
	'*********************
	Dim bd As BitmapDrawable
    bd.Initialize(LoadBitmap(File.DirAssets,"3-List.png"))
    ListView1.SingleLineLayout.Background=bd
    ListView1.SingleLineLayout.Label.TextColor=Colors.White
	
    
    ListView1.SingleLineLayout.Label.TextSize=20
    ListView1.SingleLineLayout.ItemHeight=15%y
	
	Dim a As Typeface
    a=Typeface.LoadFromAssets("BYEKAN.ttf")
    ListView1.SingleLineLayout.Label.Typeface=a
	Next
	

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

Fasl=Value
    StartActivity(Mataleb)

با این کد اون مطلب کلیک شده نمایش پیدا میکنه

Activity.LoadLayout("frm2")
	If File.Exists(File.DirInternal,"dbbook.db")= False Then
	File.Copy(File.DirAssets,"dbbook.db",File.DirInternal,"dbbook.db")
	End If
	
	If Menu1.SQL1.IsInitialized=False Then
	Menu1.SQL1.Initialize(File.DirInternal,"dbbook.db",False)
	End If
	
	cur=Menu1.SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE id="&Menu1.Fasl)

	For i=0 To cur.RowCount-1
	cur.Position=0	
	If cur.GetInt("Fav")=0 Then
 
	Dim Ba As BitmapDrawable
	Ba.Initialize(LoadBitmap(File.DirAssets,"4-Favorites.png"))
	btnFav.Background=Ba
	Else
	 
	Dim Ba As BitmapDrawable
 	Ba.Initialize(LoadBitmap(File.DirAssets,"4-Favorites1.png"))
	btnFav.Background=Ba
 
	End If	
	Next
	label1.Initialize("Label1")

	label1.text=cur.GetString("Matn")
		
	If File.Exists(File.DirInternal,"Settings.stg")=True Then
	Dim list1 As List
	list1=File.ReadList(File.DirInternal,"Settings.stg")
	Setting1.font=list1.Get(0)
	Setting1.size=list1.Get(1)

	
	a = code.getData("setting.txt","FontColor")
	label1.TextColor = code.getData("setting.txt","FontColor")
	Else
	Setting1.font="BYEKAN"
	Setting1.size=20
	End If

	label1.Gravity=Gravity.CENTER
	label1.Typeface=Typeface.LoadFromAssets(Setting1.font &".ttf")
	ScrollView1.Panel.AddView(label1,0,0,ScrollView1.Width,ScrollView1.Height)

	Dim su As StringUtils
	label1.TextSize=Setting1.size 
	
	If a = 0 Then 
	label1.TextColor=Colors.White
	a=a+1
	End If
	label1.Height=su.MeasureMultilineTextHeight(label1,label1.Text)	
	ScrollView1.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.Text)

باید چی کار کنم برای عکس دار کردن این پرزه؟

 

 

ممنون از همه دوستان

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

http://answercenter.ir/topic/4131-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D9%85%D8%AA%D9%86-%D8%A7%D8%B2-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D9%88-%DA%AF%D9%86%D8%AC%D8%A7%D9%86%D8%AF%D9%86-%D8%A2%D9%86-%D8%AF%D8%B1-%D8%A7%D8%B3%DA%A9%D8%B1%D9%88%D9%84-%D9%88%DB%8C/

[rezakakaei 15]

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

 

این لینک که دادید فقط متن هستش

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

[پژمان نیکروان 6,055]

سلام

 

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

رایگان بود، اون موقع دانلود کرده بودم ، حتما بهتون کمک میکنه.

http://s3.picofile.com/file/8224938468/%DA%A9%D8%AA%D8%A7%D8%A8_%D9%85%D8%AA%D9%86_%D9%88_%D8%B9%DA%A9%D8%B3_%D8%A8%D8%A7%D9%87%D9%85.zip.html