Sub Globals
Dim vv As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
' http://www.b4x.com/android/help/audio.html#videoview
' this is the basic VideoView example modified to use ViewViewExtras and it's VideoViewRelativeLayout1 object
vv.Initialize("vv")
' create and Initialize the VideoViewRelativeLayout1
Dim VideoViewRelativeLayout1 As VideoViewRelativeLayout
VideoViewRelativeLayout1.Initialize
' add the VideoView to the VideoViewRelativeLayout1
VideoViewRelativeLayout1.SetVideoView(vv)
'Now add the VideoViewRelativeLayout1 to the Activity
Activity.AddView(VideoViewRelativeLayout1, 0dip, 0dip, 100%x, 100%y)
File.Copy(File.DirAssets, "vidfield.m4v", File.DirRootExternal, "vidfield.m4v")
vv.LoadVideo(File.DirRootExternal, "vidfield.m4v")
vv.Play
End Sub