سلام
ببینید تو کد زیر یه متغیر PagerBulletAdapter تعریف کردیم که برای ساختن اجزای اسلاید و بعد با استفاده از حلقه میام اجزای که میخوام رو میسازیم مثلا همون ImageView بعد
بهش تو حلقه مقدارهاشو میدیم و با استفاده از همون متغییر PagerBulletAdapter که تعریف کردیم میام از متد AddPage استفاده میکنم و اجزامون رو بهش نسبت میدم یعنی 7 تا
ImageView رو برای ساختن 7 تا اسلاید بهش نسبت دادیم خب حالا میام و یه متغییر PagerBullet تعریف میکنم که موقع ساخت متغییر از ما یه PagerBulletAdapter میخواد که متغییری که
بالا ساختیم رو بهش میدیم و و بقیه متد ها هم که مشخصه برای تعویض رنگ و انیمیشن استفاده شده و در آخر به اکتیویتی اضافه میکنم...
Dim pa As PagerBulletAdapter
pa.Initialize
For i = 1 To 7
imageview1.SetBackgroundImage(LoadBitmap(File.DirAssets,i&".jpg"))
pa.AddPage(imageview1)
Next
Dim pb As PagerBullet
pb.Initialize(pa,"pb")
pb.setDotsColor(Colors.White,Colors.LightGray)
pb.Transition = pb.ZOOM_OUT_SIDE
Activity.AddView(pb,0,0,100%x,100%y)
در مورد گالری تو انجمن جستجو کن نمونه های زیادی پیاده میشه و میتونی از اونا الگو بگیری و با یکم خلاقیت با این کتابخونه میتونی پیادش کنی مثلا برای دکمه های بعدی و قبلی باید از
متد زیر مربوط به PagerBullet استفاده کنی که اسلاید ها رو تغییر بدی...
pb.GotoPage(شماره اسلاید مورد نظر)
تمام