#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim spa As Spinner
Dim spB As Spinner
Dim spF As Spinner
Dim spJ As Spinner
Dim spN As Spinner
Dim spT As Spinner
Dim spS As Spinner
Dim spV As Spinner
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")
Activity.LoadLayout("triviabyletter")
Activity.Color = Colors.Blue
spa.add("A")
spa.add("Abbys")
spa.DropdownTextColor = Colors.White
spa.DropdownBackgroundColor = Colors.Gray
spB.add("B")
spB.add("Blood and Oil")
spB.DropdownTextColor = Colors.White
spB.DropdownBackgroundColor = Colors.Gray
spF.add("F")
spF.add("Fuller House S1")
spF.add("Fuller House S2")
spF.add("Fuller House S3")
spF.add("Fuller House S4")
spF.DropdownTextColor = Colors.White
spF.DropdownBackgroundColor = Colors.Gray
spJ.add("J")
spJ.add("Jericho S1")
spJ.add("Jericho S2")
spJ.DropdownTextColor = Colors.White
spJ.DropdownBackgroundColor = Colors.Gray
spN.add("N")
spN.add("Notorious")
spN.add("Newsroom S1")
spN.add("Newsroom S2")
spN.add("Newsroom S3")
spN.DropdownTextColor = Colors.White
spN.DropdownBackgroundColor = Colors.Gray
spT.add("T")
spT.add("The Player")
spT.add("The Pitch")
spT.DropdownTextColor = Colors.White
spT.DropdownBackgroundColor = Colors.Gray
spS.add("S")
spS.add("Sports Night S1")
spS.add("Sports Night S2")
spS.DropdownTextColor = Colors.White
spS.DropdownBackgroundColor = Colors.Gray
spV.add("V")
spV.add("Veep S1")
spV.DropdownTextColor = Colors.White
spV.DropdownBackgroundColor = Colors.Gray
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Spa_ItemClick (Position As Int, Value As Object)
Select Value
Case "Abbys"
StartActivity("abbys")
Activity.finish
End Select
End Sub
Sub SpB_ItemClick (Position As Int, Value As Object)
Select Value
Case "Blood and Oil"
StartActivity("BloodOil")
Activity.finish
End Select
End Sub