[WM] - Show remote images in ImageControl by swiping April 15, 2019 07:00PM |
Registered: 5 years ago Posts: 151 |
//Global Variables garrPhotos is array of string gnItemDisplayed is int gnMaxImages is int //End of Initialization Code ArrayAdd(garrPhotos, "[okaywhatever.com] ArrayAdd(garrPhotos, "[encrypted-tbn0.gstatic.com] ArrayAdd(garrPhotos, "[encrypted-tbn0.gstatic.com] ArrayAdd(garrPhotos, "[encrypted-tbn0.gstatic.com] ArrayAdd(garrPhotos, "[okaywhatever.com] gnMaxImages = ArrayCount(garrPhotos) HourGlass(True) gnItemDisplayed = 1 IMG_NoName1 = garrPhotos[gnItemDisplayed] HourGlass(False) //Code in Horizonta and Vertical Swipe event IF Gesture.Direction = LeftToRight THEN IF gnItemDisplayed < gnMaxImages THEN gnItemDisplayed = gnItemDisplayed + 1 ELSE gnItemDisplayed = gnMaxImages END END IF Gesture.Direction = RightToLeft THEN IF gnItemDisplayed > 1 THEN gnItemDisplayed = gnItemDisplayed - 1 ELSE gnItemDisplayed = 1 END END IMG_NoName1 = sURL + garrPhotos[gnItemDisplayed]