Sub Globals
Dim vv As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
vv.Initialize("vv")
Activity.AddView(vv, 10dip, 10dip, 250dip, 250dip)
vv.LoadVideo(File.DirRootExternal, "somefile.mp4")
vv.Play
End Sub
Sub vv_Complete
Log("Playing completed")
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If (KeyCode = KeyCodes.KEYCODE_BACK) Then
If Msgbox2("EXIT ?", "", "YES", "", "NO", Null) = DialogResponse.POSITIVE Then
vv.release() <<---- comment faire ????
Activity.Finish
Return False
Else
Return True
End If
End If
End Sub