ساخت گالری افقی با ScrollView

[Assassin-Wolf 13]

سلام دوستان

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

خب اول باید از Project>Add NEw Module>Class Module رو میزنید و یک Class به اسم ClsCustomGallery بسازید و این کد ها رو درون اون قرار بدید

http://s6.picofile.com/file/8199186526/ClsCustomGallery.txt.html

به خاطره زیاد بودن کد ها در یک فایل Txd قرار گرفته شده . کافیه فایل ها رو بدون هیچ کاری کپی کنید در Class (پسورد :  basic4android.org )

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

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

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 MyGallery1 As ClsCustomGallery
	Dim bd As BitmapDrawable
	Dim C As Canvas
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")
	Dim Top As Int
	MyGallery1.Initialize(Activity, 0, Top, 100%x, 100%y/5, 1, Me, "", "", "", "")
	MyGallery1.SV2D.Color = Colors.White
	Top = Top + MyGallery1.SV2D.Height + 5dip
	For i = 1 To 18
			MyGallery1.AddThumbnail(LoadBitmap(File.DirAssets, "image" & i & ".jpg"), i)
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
'
End Sub
Sub Gallery_OnClick(Thumbnail As Panel)
End Sub
Sub Gallery_OnLongClick(Thumbnail As Panel)
End Sub

Sub Gallery_OnScroll(PosX As Int, PosY As Int)
End Sub

Sub Gallery_OnTouch(Thumbnail As Panel, Action As Int)
End Sub

یک Lbl رو باید فعال کنید به اسم BitmapPlus که اون هم زیر همین Post قرار میدم ( پسورد : basic4android.org )

http://s3.picofile.com/file/8199187634/BitmapPlus.zip.html

این هم فیلم از این نوع گالری

http://www.aparat.com/v/aLh4W

دوستان برای این که عکس نشون بده باید 18 عدد عکس قرار بدید در سورس برنامه این این صورت باشه اسمشون image(Number).jpg

 

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

[Radius 89]

واقعا ممنون

[Shaye 0]

ای کاش وقتی اموزش میدید یه مبحثو چند تا عکس از نتیجهی کار یا یک فیلم کوتاه 1 دقیقه ای از نتیجش میزاشتید ادم منظورتونو بفهمه

[aminghazizadeh 0]

در در 1394/04/20, 02:12:58، Assassin-Wolf گفته است :

Sub Gallery_OnClick(Thumbnail As Panel) End Sub

دوست عزیز یه سوال این ساب دقیقا چجوری کار میکنه؟

چون هر کار کردم کار نکرد!