در خواست سورس لیست ویو یا مولتی پنل برای گالری

[naser sahami 90]

سلام دوستان کسی میتونه یه لیست ویو  مثل addtoline یا مولتی پنل برای یه سورس گالری که دیتابیس نداره بذاره  مثال

Sub loadControl
Dim lbl1 As Label
Dim clr As ColorDrawable 
lbl1 = lstmenu.TwoLinesLayout.Label
lbl1.TextColor = Colors.Black
lbl1.TextSize = 60 + lbl1.TextSize

l2.Clear(lstmenu)
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


End Sub
Sub btnBack_Click
Activity.Finish
StartActivity(Main)
End Sub
Sub btnFavorite_Click
Activity.Finish
StartActivity(Favorite)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub lstmenu_ItemClick (Position As Int, Value As Object)
	Slideshow.albumType = Value
	Select Case Value
	 Case "chador_"
	   Slideshow.albumName = "چادر"
	 Case "dk_"
	   Slideshow.albumName = "دامن کوتاه"
End Select
Activity.Finish
StartActivity(Slideshow)
End Sub

فقط نمیخوام AddTwoLinesAndBitmap2 باشه

[dostmobile 329]

عکس بزار ک چجور میخوای

[naser sahami 90]

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

[dostmobile 329]

سرچ کن اموزش تگ و سندر

[yasin011 285]

سلام. 

 

http://answercenter.ir/topic/2807-استفاده-از-tag-و-sender-در-multi-panel/

[naser sahami 90]

من گفتم که دیتابیس ندارم به کد نگاه کنید

[naser sahami 90]

واقعا کسی نیس یه مثال کوچیک برا ما بزنه من هرچی نمونه گالری دارم دیتابیس نداره خداااااااااااااااااااااااااااااااااااا به جای اینAddTwoLinesAndBitmap2

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

چجوری باشه گالری ناصر جان؟

من متوجه نشدم.

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

[naser sahami 90]

ببین عزیزم این کد منه

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim size As Int 
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim lstmenu As ListView
Dim lblTitle As Label
Dim btnBack,btnFavotite As Button 
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"bg.jpg"))
size = ((100%x + 100%y) / (120dip + 200dip) - 1) * 3
loadControl
End Sub
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
Dim lbl2 As Label
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 = "دامن کوتاه"
End Select
Activity.Finish
StartActivity(Slideshow)
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

واین امولاتور بنده این جوریه نشون میده  هرکدی بهش میدم اونها نوشته ظاهر نمیشن بچه ها میگن از AddTwoLinesAndBitmap2 هستش میخوام جای این زهر ماری  یه چیز دیگه مثل addsingle line یا هرچیز دیگری استفاده کنم با توجه به کدم که اون سورس بهم نخوره  حالا نمیدونم چه جوری بنویسم 

 

 

داداشم به جای این یه  مثال دیگه بزن

lstmenu.AddTwoLinesAndBitmap2("چادر","مزون چادر",LoadBitmap(File.DirAssets,"lebas.png"),"chador_")
lstmenu.AddTwoLinesAndBitmap2("دامن","مدل کوتاه",LoadBitmap(File.DirAssets,"daman.png"),"dk_")

[naser sahami 90]

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

[yasin011 285]

اول باید یاد بگیری چطوری مولتی پنل بسازی . ( که توش imageview قرار بدی ) برای گالری

 

دوم باید عکساتو بذاری تو فایل و اسمشونو طوری تغییر بدی که بشه با حلقه تکرار همشونو تو برنامه اورد .

 

For i=1 To 5
ImageView1.Initialize("")
p.Initialize("")
p.LoadLayout("menu")
ScrollView1.Panel.AddView(p,0%x,top,100%x,50%y)
ImageView1.Bitmap = LoadBitmap(File.DirAssets,i&".jpg")
ImageView1.Gravity = Gravity.FILL
ImageView1.Tag = i
top = top + 75%y 
ScrollView1.Panel.Height = top
Next

آموزش مولتی پنل 

http://answercenter.ir/topic/2807-استفاده-از-tag-و-sender-در-multi-panel/

 

 

اینم کدی هست که میاد لیست عکسایی که میخوادو نمایش میده. ( باید عکسات تو پوشه فایل باشه.

ImageView1.Bitmap = LoadBitmap(File.DirAssets,i&".jpg")

اول باید مولتی پنل رو یاد بگیری