Public Sub MuteVideo(videov As VideoView)
Try
'Using CrossPlatform
'Add equal to Me Because using B4XPages
Dim jo As JavaObject=Me
'delete this under line Because using B4XPages
' jo.initializeContext
Dim mystring As JavaObject = videov
mystring=jo.GetField("mMediaPlayer")
CallSubDelayed2(Me, "MuteVideo", videov)
Return
Catch
'Using Non-CrossPlatform
Dim jo As JavaObject
jo.initializeContext
Dim mystring As JavaObject = videov
mystring=jo.GetField("mMediaPlayer")
CallSubDelayed2(Me, "MuteVideo", videov)
Return
End Try
mystring.RunMethod("setVolume", Array(0.0, 0.0))
End Sub
Public Sub UnMuteVideo(videov As VideoView)
Try
'Using CrossPlatform
'Add equal to Me Because using B4XPages
Dim jo As JavaObject=Me
'delete this under line Because using B4XPages
' jo.initializeContext
Dim mystring As JavaObject = videov
mystring=jo.GetField("mMediaPlayer")
CallSubDelayed2(Me, "MuteVideo", videov)
Return
Catch
'Using Non-CrossPlatform
Dim jo As JavaObject
jo.initializeContext
Dim mystring As JavaObject = videov
mystring=jo.GetField("mMediaPlayer")
CallSubDelayed2(Me, "UnMuteVideo", videov)
Return
End Try
mystring.RunMethod("setVolume", Array(1.0, 1.0))
End Sub