فراخوانی عنوان کتاب و باتون با هم !!!

[ah313mad 34]

سلام 

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

 

من یک کتاب دعا  درست کردم . 

می خوام وقتی تویه فهرست عنوانها رو از دیتابیس فراخوانی میکنه . روبروی هر عنوان یک باتون فراخوانی بشه . یعنی هر عنوان 1 باتون و با فشارهر  باتون مثلا 1 دعا مخصوص همون عنوان پخش بشه  پخش بشه . و لی نمی دونم کدش رو چجور بنویسم . 

یعنی 20 تا عنوان دعا دارم میخوام به ترتیب هر باتون جلویه یه عنوان فراخوانی بشه

 

کد بخش فهرست اینجوریه . 

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("frm1")
	

	font=Typeface.LoadFromAssets("byekan.ttf")

	SlidingMenu1.Initialize("menu")
	listview2.Initialize("list")	
	SlidingMenu1.BehindOffset=45%x
	SlidingMenu1.Mode=SlidingMenu1.LEFT
	SlidingMenu1.Menu.AddView(listview2,0,58dip,250dip,160%x)

	listview2.AddTwoLinesAndBitmap("خانه","",LoadBitmap(File.DirAssets,"Home-128.png"))
	listview2.AddTwoLinesAndBitmap("جستجو","",LoadBitmap(File.DirAssets,"Search-128.png"))
	listview2.AddTwoLinesAndBitmap("علاقه مندی ها","",LoadBitmap(File.DirAssets,"favorite1.png"))
	listview2.AddTwoLinesAndBitmap("تنظیمات","",LoadBitmap(File.DirAssets,"Settings-128.png"))
	listview2.AddTwoLinesAndBitmap("تماس با ما","",LoadBitmap(File.DirAssets,"message-mail-128.png"))
	listview2.AddTwoLinesAndBitmap("درباره","",LoadBitmap(File.DirAssets,"about-128.png"))
	listview2.TwoLinesAndBitmap.Label.Gravity=Gravity.LEFT
	listview2.TwoLinesAndBitmap.Label.Top=15dip
	listview2.TwoLinesAndBitmap.Label.TextColor = Colors.Blue
	listview2.TwoLinesAndBitmap.Label.Typeface=font


	
	Dim blistview1 As BitmapDrawable
	blistview1.Initialize(LoadBitmap(File.DirAssets,"0.png"))
	SlidingMenu1.Menu.Background=blistview1
	
	
	
	If File.Exists(File.DirInternal,"amam.db")= False Then
	File.Copy(File.DirAssets,"amam.db",File.DirInternal,"amam.db")
	End If
	
	If SQL1.IsInitialized=False Then
	SQL1.Initialize(File.DirInternal,"amam.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
	    
    ListView1.SingleLineLayout.Label.TextSize=18
	ListView1.SingleLineLayout.Label.TextColor=Colors.Black
    ListView1.SingleLineLayout.ItemHeight=15%y
	'*********************
	Dim bd As BitmapDrawable
    bd.Initialize(LoadBitmap(File.DirAssets,"3-List.png"))
    ListView1.SingleLineLayout.Background=bd

	Dim a As Typeface
    a=Typeface.LoadFromAssets("BYEKAN.ttf")
    ListView1.SingleLineLayout.Label.Typeface=a
	Next
	
	
End Sub

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

درود

شدیدا پیشنهاد میکنم آموزش کار با مولتی پنل + 100% آموزش کار با Tag و Sender در مولتی پنل که در بخش آموزش های تصویری قرار دارن رو ببینید.

 

از طریق مولتی پنل میتونید بسیار بسیار بسیار حرفه ای تر از ListView عمل کنید