When I attempt to play more than one video, the first plays then I get a blank screen. The following videos will show if I touch the blank screen though.
Sub PlayVideo
Dim VideoName As String
Select Case Video
Case 1
vv.Initialize("vv")
vv.MediaControllerEnabled = False
Activity.AddView(vv, 10dip, 10dip, stpanel.Width , stpanel.Height )
VideoName = "Spiral.mp4"
Case 2 : VideoName = "SpiralHypno.mp4"
Case 3 : VideoName = "Star.mp4"
Case 4 : Exit
End Select
vv.LoadVideo(File.DirRootExternal, "/Media/Video/" & VideoName)
' File.DirRootExternal = /mnt/sdcard
vv.Play
End Sub
Sub vv_Complete 'Playing completed
If video<3 Then
Video=Video+1
PlayVideo
End If
End Sub
Any ideas, anyone?
Sub PlayVideo
Dim VideoName As String
Select Case Video
Case 1
vv.Initialize("vv")
vv.MediaControllerEnabled = False
Activity.AddView(vv, 10dip, 10dip, stpanel.Width , stpanel.Height )
VideoName = "Spiral.mp4"
Case 2 : VideoName = "SpiralHypno.mp4"
Case 3 : VideoName = "Star.mp4"
Case 4 : Exit
End Select
vv.LoadVideo(File.DirRootExternal, "/Media/Video/" & VideoName)
' File.DirRootExternal = /mnt/sdcard
vv.Play
End Sub
Sub vv_Complete 'Playing completed
If video<3 Then
Video=Video+1
PlayVideo
End If
End Sub
Any ideas, anyone?