Forum Discussion

NewbyDeveloper's avatar
NewbyDeveloper
Visitor
11 years ago

SlideShow Example Anywhere?

Hi As part of an app I'm writing I want to show a slideshow of user pictures. I can see the commands ifSlideshow mentioned - with setcontent - etc. But an example would allow me to understand...
Roku Developer Program
belltown's avatar
belltown
Roku Guru
11 years ago
Or this:

Sub Main ()
    displaySlideShow ([{Url: "http://www.welikeviral.com/files/2014/12/8325_8_site.jpeg"}])
End Sub

Function displaySlideShow (contentList As Object) As Void
    port = CreateObject ("roMessagePort")
    ui = CreateObject ("roSlideShow")
    ui.SetMessagePort (port)
    ui.SetContentList (contentList)
    ui.Show ()
    While True
        msg = Wait (0, port)
        If Type (msg) = "roSlideShowEvent"
            If msg.IsScreenClosed ()
                Exit While
            Else If msg.IsRemoteKeyPressed ()
                key = msg.GetIndex ()
                If key = 0              ' Back Button
                    ui.Close ()
                Else If key = 6         ' OK Button
                    ui.Close ()
                EndIf
            EndIf   
        EndIf
    End While
End Function