ایجاد گالری از یک پوشه

[keivan 29]

سلام وقت بخیر عزیزان

من تو برنامه عکس هارو با نام تاریخ ذخیره میکنم(عدد های متفاوت دیگه ) بعد تو یه پوشه ذخیره میکنم.. حالا میخوام از داخل برنامه واسه اون پوشه یه گالری بسازم.. ولی تو لود عکس هاش مشکل دارم چون ردیفی نیستن عدد هاش،سوال اینجاست که چطوری عکس های اون پوشه رو لود کنم ? ممنون میشم راهنمایی کنید

[امین شاهدی 5,769]

وقتی شما توی حلقه بزاری دیگه موردی نیست که نباید آخری رو بیاره 

	Dim ListF As List = File.ListFiles(File.DirAssets)
	
	For i=0 To ListF.Size -1
		Dim Name = ListF.Get(i)
		If Name.ToLowerCase.EndsWith(".png") Or Name.ToLowerCase.EndsWith(".jpg") Then
			MyGallery1.AddThumbnail(LoadBitmap(File.DirAssets,Name),i)
		End If
	Next

 

چون بیسیک لیوت ها و یه سری فایل دیگه رو توی assets ذخیره میکنه شرط گذاشتم فقط فایل هایی که آخر اسمش png. و jpg. بود توی گالری اضافه کنه

[امین شاهدی 5,769]

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

	Dim ListF As List = File.ListFiles("Address")
	
	For i=0 To ListF.Size -1
		Log(ListF.Get(i)) ' esme file hae  tu pushe
	Next

 

[keivan 29]

داداش الان من تو این مسیر چی بنویسم اینارو بیاره؟

MyGallery1.AddThumbnail(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), i)


 

[امین شاهدی 5,769]

کدی که دادم رو با دقت ببینید اسم فایل گفتم میده بهتون به جای image i  و بقیش از 

ListF.Get(i)

استفاده کنین

[keivan 29]

در 13 دقیقه قبل، امین شاهدی گفته است :

کدی که دادم رو با دقت ببینید اسم فایل گفتم میده بهتون به جای image i  و بقیش از

ListF.Get(i)

استفاده کنین

ممنون که جواب دادی ..فقط یه مشکلی هست..میاد فقط آخرین عکس رو میاره!!! بد جور کلافه ام بخدا