طرح باتون برا لیست ویو

[naser sahami 90]

با سلا م خدمت دوستان یه طرح باتون برای این لیست ویو میشه نوشت من یه هفتس دنبالشم نمیشه بعضی دوستان میگن از مولتی پنل استفاده کن ولی این گالری ما دیتابیس نداره ومن نمیتونم توش موندم منظورم AddTwoLinesAndBitmap2 است اگه ممکنه برااین کد یه مثال ازمولتی پنل یا addsinglelineبزنید

Sub loadControl
Dim lbl1 As Label
Dim clr As ColorDrawable 
lstmenu.Initialize("menu")
lbl1 = lstmenu.TwoLinesLayout.Label
lbl1.TextColor = Colors.Black
lbl1.TextSize = 5 + lbl1.TextSize

lstmenu.AddTwoLines("چادر","دامن")
Dim lbl2 As Label
Dim bmp As Bitmap 
bmp = LoadBitmap(File.DirAssets,"13520591851087553633button_green glass-md.png")
lbl2.SetBackgroundImage(bmp)
lstmenu.TwoLinesLayout.Label.Gravity = Gravity.RIGHT+60
lstmenu.AddTwoLinesAndBitmap2("چادر","مزون چادر",LoadBitmap(File.DirAssets,"lebas.png"),"chador_")
lstmenu.AddTwoLinesAndBitmap2("دامن","مدل کوتاه",LoadBitmap(File.DirAssets,"daman.png"),"dk_")

lstmenu.FastScrollEnabled = True
lstmenu.ScrollingBackgroundColor = Colors.Magenta
Activity.AddView(lstmenu,1dip,32dip,99%x,72%y)
'Load Title
lblTitle.Initialize("")
lblTitle.TextSize = 5 + lblTitle.TextSize 
lblTitle.Text = "مزون لباس زنانه"
lblTitle.Gravity = Gravity.RIGHT
lblTitle.TextColor = Colors.White 
Activity.AddView(lblTitle,2%x,3dip,98%x,20dip)
'Load Button
clr.Initialize(Colors.RGB(252,241,245),15)
btnBack.Initialize("btnBack")
btnBack.Text = "برگشت"
btnBack.TextSize = 5 + btnBack.TextSize
btnBack.Background = clr
Activity.AddView(btnBack,10dip,88%y,120dip,50dip)
'Load Favorite Button
btnFavotite.Initialize("btnFavorite")
btnFavotite.Text = "علاقمندی ها"
btnFavotite.TextSize = 5 + btnFavotite.TextSize
btnFavotite.Background = clr
Activity.AddView(btnFavotite,60%x,88%y,120dip,50dip)
End Sub
Sub btnBack_Click
Activity.Finish
StartActivity(Main)
End Sub
Sub btnFavorite_Click
Activity.Finish
StartActivity(Favorite)
End Sub
Sub menu_ItemClick (position As Int, Value As Object)
	Slideshow.albumType = Value
	Select Case Value
	 Case "chador_"
	   Slideshow.albumName = "چادر"
	 Case "dk_"
	   Slideshow.albumName = "دامن کوتاه"
	 Case "dm_"
End Select
Activity.Finish
StartActivity(Slideshow)
End Sub

[Alireza.Ghafari 2,104]

درود 

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

در صورتی که نیاز دارید حرفه ایی تر باشه بهتره از مولتی پنل استفاده کنید یا کتابخانه Custom ListView 

موفق باشید.

[naser sahami 90]

لطفا این کتابخانه و دستورشا لطف کنید در ضمن شما به کد نگاه کنید ببینید به جای AddTwoLinesAndBitmap2میشه از از دیگر شرط ها استفاده کرد مثل Addsinglelineاستفاده کرد عکسشم نمیخام بیاد مثال بزنید ممنون