Sub Globals
Dim vv As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
vv.Initialize("vv")
Activity.AddView(vv, 0, 0, 300dip, 300dip)
AddErrorHandler(vv, "VVError")
vv.LoadVideo(File.DirRootExternal, "1.df")
End Sub
Sub AddErrorHandler(v As VideoView, EventName As String)
Dim jo As JavaObject = v
Dim e As Object = jo.CreateEventFromUI("android.media.MediaPlayer.OnErrorListener", EventName, True)
jo.RunMethod("setOnErrorListener", Array(e))
End Sub
Sub VVError_Event (MethodName As String, Args() As Object) As Object
Dim what As Int = args(1)
Dim extra As Int = args(2)
Return Null
End Sub