Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim VideoView1 As VideoView
Dim FullScreen As Int = 0
End Sub
Sub Activity_Create(FirstTime As Boolean)
'INITIALIZE - VideoView
VideoView1.Initialize("VideoView1")
'DISABLE - VideoView MediaController
VideoView1.MediaControllerEnabled=False
Activity.AddView(VideoView1, 0, 0, 500dip, 281dip)
VideoView1.LoadVideo("http", "http://myurl/film.mp4")
VideoView1.Play
End Sub
'GET - ChannelNumOSD
Sub Activity_KeyPress(KeyCode As Int) As Boolean
Select Case KeyCode
Case KeyCodes.KEYCODE_DPAD_CENTER
'CHECK - FullScreen
If (FullScreen = 0) Then
VideoView1.SetLayout(0, 0, 100%x, 100%y)
FullScreen = 1
Else
VideoView1.SetLayout(0, 0, 500dip, 281dip)
FullScreen = 0
End If
End Select
End Sub