گرفتن لیستی از عکس و نمایش در اسکرول ویو

[مجید آرتا 5,875]

سلام

بنده یک نمونه سورس مشابه این ( مشابه این منظورم یعنی گرفتن عکس ها به صورت لیست ولی نمایشش به صورت تکی بود) ساخته بودم

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

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

در کل امیدوارم به دردتون بخوره و جای ابهامی نباشه.

 

کدهای برنامه :

Sub Globals
	Dim PathFile As String = File.DirRootExternal &"/WhatsApp/Profile Pictures"
	Dim ListImage As List
	Private sv As ScrollView
	Dim Top As Int = 1%y
End Sub

Sub Activity_Create(FirstTime As Boolean)
 Activity.LoadLayout("Scroll")
 sv.Panel.LoadLayout("List")
 Try
ListImage.Initialize
ListImage = File.ListFiles(PathFile)
	For i = 0 To ListImage.Size - 1
	     DoEvents
		 Dim Image As ImageView
		 Image.Initialize("")
		 Dim ImgName As String = ListImage.Get(i)
	     sv.Panel.AddView(Image,0,Top,100%x,30%y)
		 Top = Top + 40%y
			 If ImgName.ToLowerCase.EndsWith(".jpg") OR  ImgName.ToLowerCase.EndsWith(".png") Then
				 Dim b As Bitmap
				 b.Initialize(PathFile,ImgName)
				 Image.Gravity = Gravity.FILL
				 Image.Bitmap = b
			 End If
	 Next
	 sv.Panel.Height = Top
 Catch
	 ToastMessageShow("Error:"&LastException.Message,False)
 End Try
End Sub

و فایل پروژه:

http://s3.picofile.com/file/8192801484/Get_ListImage_With_ScrollView.rar.html

 

رمز فایل :

basic4android.org

[Mohamad.da 6]

پسوردتون اشتباهه لطفا ویرایش کنید!!

[مجید آرتا 5,875]

رمز فایل : basic4android.org

 

رمز فایل درسته دوستم

رمز رو از اینجا کپی نکنید، دستی وارد کنید دوستم

و یا اگر کپی کردید یکبار توی نوتپد کپی کنید و دوباره از اونجا کپیش کنید.