-
تعداد ارسال ها
81 -
تاریخ عضویت
-
آخرین بازدید
نوع محتوا
نمایه ها
فروشگاه
تالارهای گفتگو
بخش دریافت
پست ها ارسال شده توسط pejman
-
-
-
بازم کار نکرد
-
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim ag As AriaGalleryView
Dim aga As AriaGalleryAdapter
Dim l1 As List
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")
ag.Initialize("ag")
Activity.AddView(ag,0,0,100%x,35%y)
l1.Initialize
l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/8/dc767d1b-4a2c-4c4f-b7f7-b6c867f6ca1a.jpg")
l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/5/42b1da93-10c6-4a07-b0d5-07b7dd3f7f52.jpg")
l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/4/17b4a2c5-55ea-445b-8953-175bf13b294e.jpg")
l1.Add("http://file.digikala.com/Digikala/Image/Webstore/Banner/1395/3/8/6d2115d9-0a30-4310-98b1-a98294dd8a42.jpg")
aga.Initialize("imgviewelayout",l1).ToGalleryView(ag)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ag_imageclicked (ParentEventName As String,position As Int)
ToastMessageShow(position,False)
End Sub
-
همین کارو کردم دقیقا اما جواب نداد
-
با سلام اریا گالری قابلیت کلیک داره؟ من از این کد استفاده کردم جواب نمیده
Sub ag_imageclicked (ParentEventName As String,position As Int) ToastMessageShow(position,False) End Sub
ممنون میشم یکی از اساتید جواب بده
-
با سلام اریا گالری قابلیت کلیک داره؟ من از این کد استفاده کردم جواب نمیده
Sub ag_imageclicked (ParentEventName As String,position As Int) ToastMessageShow(position,False) End Sub
-
شرمنده برای بالا اوردن تاپیک.لطفا کد اشتراک عکس رو بزارید.نه تو یه برنامه خاص بلکه
کلا یه لیست از برنامه هایی ک امکان اشتراک دارن رو بیاره بالا
ممنون
کتابخانه قدرتمند AriaGlide برای b4a
در تـولـیـداتـــ انـجـمــن
ارسال شده در
متاسفانه متد fitcenter کار نمیکنه