انجام کار با کیلک روی گالری دوم با کتابخانه ی aria listview

[ali2016 54]

سلام

خیلی گشتم ولی جواب سوالم تو انجمن نیست

من سه تا گالری تعریف کردم و سه تا اداپتر و سه تا لیست

  Dim gallery As AriaGalleryView
   Dim adapter As AriaGalleryAdapter
   Dim l As List
   
   Dim gallery2 As AriaGalleryView
   Dim adapter2 As AriaGalleryAdapter
   Dim l2 As List
   
   Dim gallery3 As AriaGalleryView
   Dim adapter3 As AriaGalleryAdapter
   Dim l3 As List
   

به همشون اندازه دادم و تعریفشون کردم تو اکتیویتی کریت

  
   gallery.Initialize("gallery")
   gallery2.Initialize("gallery2")
   gallery3.Initialize("gallery3")
   
    Dim a As Int = Label3.Width
   Dim a2 As Int = Label3.Height
   
   Dim b As Int = Label4.Width
   Dim b2 As Int = Label4.Height
   
   Dim c As Int = Label5.Width
   Dim c2 As Int = Label5.Height
   
  
'   Activity.AddView(gallery,25%x,10%y,a,a2)
'   
	Activity.AddView(gallery,8%x,18%y,a,a2)
   Activity.AddView(gallery2,25%x,46%y,b,b2)
   Activity.AddView(gallery3,43%x,74%y,c,c2)



   l.Initialize
   
   For i = 1 To 12
   	l.Add(adapter.getAssetsFullAddress("haftom"&i&".png"))
	
Next
   
   adapter.Initialize("imgviewelayout",l).ToGalleryView(gallery)
   gallery.PageTransformers.SetTransofrmer(gallery.PageTransformers.StackTransformer)
   
   
'   ___________________________________________________
   
   
      l2.Initialize
   
   For i = 1 To 13
   	l2.Add(adapter2.getAssetsFullAddress("hashtom"&i&".png"))
	
Next
   
   adapter2.Initialize("imgviewelayout",l2).ToGalleryView(gallery2)
   gallery2.PageTransformers.SetTransofrmer(gallery2.PageTransformers.StackTransformer)
   
   
   
'   ____________________________________________________
   
   
   
      l3.Initialize
   
   For i = 1 To 13
   	l3.Add(adapter3.getAssetsFullAddress("nohom"&i&".png"))
	
Next
   
   adapter3.Initialize("imgviewelayout",l3).ToGalleryView(gallery3)
   gallery3.PageTransformers.SetTransofrmer(gallery3.PageTransformers.StackTransformer)
   gallery.Enabled = False

 

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

و روی عکس اول از gallery2 کلیک شد بگه "wow"

و روی عکس اول از gallery3 کلیک شد بگه  "آفرین"

[nasim 370]

در 1 ساعت قبل، ali2016 گفته است :

سلام

خیلی گشتم ولی جواب سوالم تو انجمن نیست

من سه تا گالری تعریف کردم و سه تا اداپتر و سه تا لیست

  Dim gallery As AriaGalleryView
   Dim adapter As AriaGalleryAdapter
   Dim l As List
   
   Dim gallery2 As AriaGalleryView
   Dim adapter2 As AriaGalleryAdapter
   Dim l2 As List
   
   Dim gallery3 As AriaGalleryView
   Dim adapter3 As AriaGalleryAdapter
   Dim l3 As List
   

به همشون اندازه دادم و تعریفشون کردم تو اکتیویتی کریت

  
   gallery.Initialize("gallery")
   gallery2.Initialize("gallery2")
   gallery3.Initialize("gallery3")
   
    Dim a As Int = Label3.Width
   Dim a2 As Int = Label3.Height
   
   Dim b As Int = Label4.Width
   Dim b2 As Int = Label4.Height
   
   Dim c As Int = Label5.Width
   Dim c2 As Int = Label5.Height
   
  
'   Activity.AddView(gallery,25%x,10%y,a,a2)
'   
	Activity.AddView(gallery,8%x,18%y,a,a2)
   Activity.AddView(gallery2,25%x,46%y,b,b2)
   Activity.AddView(gallery3,43%x,74%y,c,c2)



   l.Initialize
   
   For i = 1 To 12
   	l.Add(adapter.getAssetsFullAddress("haftom"&i&".png"))
	
Next
   
   adapter.Initialize("imgviewelayout",l).ToGalleryView(gallery)
   gallery.PageTransformers.SetTransofrmer(gallery.PageTransformers.StackTransformer)
   
   
'   ___________________________________________________
   
   
      l2.Initialize
   
   For i = 1 To 13
   	l2.Add(adapter2.getAssetsFullAddress("hashtom"&i&".png"))
	
Next
   
   adapter2.Initialize("imgviewelayout",l2).ToGalleryView(gallery2)
   gallery2.PageTransformers.SetTransofrmer(gallery2.PageTransformers.StackTransformer)
   
   
   
'   ____________________________________________________
   
   
   
      l3.Initialize
   
   For i = 1 To 13
   	l3.Add(adapter3.getAssetsFullAddress("nohom"&i&".png"))
	
Next
   
   adapter3.Initialize("imgviewelayout",l3).ToGalleryView(gallery3)
   gallery3.PageTransformers.SetTransofrmer(gallery3.PageTransformers.StackTransformer)
   gallery.Enabled = False

 

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

و روی عکس اول از gallery2 کلیک شد بگه "wow"

و روی عکس اول از gallery3 کلیک شد بگه  "آفرین"

شما باید شرط بذارین برحسب ایونت نیم ها موقع کلیک شدنش به این صورت

If ParentEventName = "gallery1" Then
  . 
  .
  .
else if ParentEventName = "gallery2" Then
  . 
  .
  .
end if

 

[ali2016 54]

با راهنمایی شما مشکل حل شد

 

در این قسمت گذاشتم کد رو و مشکل حل شد

Sub gallery_imageclicked (ParentEventName As String,position As Int)

	
	
End Sub