کتابخونه irSlideShow

[امین مهدی نژاد 2,141]

سورس کد اسلایدری که در لینک زیر و توسط آقا آرتا فراهم شده بود.

https://answercenter.ir/topic/9336-اسلایدر-عکس-image-slider/

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

کد نمونه استفاده از اون:

Sub Globals
	Dim imgslide As ImageSlider
End Sub

Sub Activity_Create(FirstTime As Boolean)
	imgslide.Initialize(5000, 1%x,1%y,98%x,95%y)
	imgslide.TouchEnable=True
	imgslide.Add(File.DirAssets,"1.jpg")
	imgslide.Add(File.DirAssets,"2.jpg")
	imgslide.Add(File.DirAssets,"3.jpg")
	imgslide.Add(File.DirAssets,"4.jpg")
	imgslide.Add(File.DirAssets,"5.jpg")		
	Activity.AddView(imgslide.getView,1%x,1%y,98%x,100%y)
End Sub

ساده و خواناست.

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

«موفق باشید.»

 

Image Slider.rar

irSlideShow-lib.rar