رفتن به مطلب
  • 0

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


naser sahami

سوال

سلام دوستان کسی میتونه یه لیست ویو  مثل 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 باشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

10 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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_")

post-2499-0-24102500-1446713320_thumb.jpg

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اول باید یاد بگیری چطوری مولتی پنل بسازی . ( که توش 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")

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...