#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Type SliderContainer(slider As xImageSliderIG, items As List)
Private CustomListView1 As CustomListView
Private xImageSliderIG1 As xImageSliderIG
Private sliders As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
xImageSliderIG1.activityHasActionBar = False
Activity.LoadLayout("Layout2")
sliders.Initialize
Dim p As Panel
p.Initialize("")
p.SetLayout(0,0,100%x,300dip)
p.LoadLayout("layout1")
Dim sc As SliderContainer
sc.Initialize
sc.slider = xImageSliderIG1
sc.items.Initialize
sc.items.Add(CreateMap("image":"https://doduae-image.s3.ap-south-1.amazonaws.com/cache/catalog/banner/2020/web/feb/003/dresseee-327x351.jpg"))
sc.items.Add(CreateMap("image":"https://doduae-image.s3.ap-south-1.amazonaws.com/cache/catalog/banner/2020/web/feb/003/wintrr-591x628.jpg"))
sc.slider.SetImages(sc.items)
sc.slider.SetZoomPanel(Activity)
sliders.Add(sc)
CustomListView1.Add(p,"")
CustomListView1.GetPanel(0).Color = Colors.White
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub xImageSliderIG1_SingleTap(CurrentIndex As Int, Data As Object)
Dim str As String = Data
ToastMessageShow("Single Tap:" & CurrentIndex &", "& str,False)
End Sub
Sub xImageSliderIG1_DoubleTap(CurrentIndex As Int, Data As Object)
Dim str As String = Data
ToastMessageShow("Double Tap:" & CurrentIndex &", "& str,False)
End Sub