Boa tarde senhores,
Tenho a seguinte situação e peço ajuda para solucionar.
Tenho um form com um Windows Media Player para rodar canais de TV online...
Inseri botões com os canais conforme abaixo... Ao clicar no botão, o canal de TV roda no Media normal...
O problema é que após 4 segundo para... Tentei inserir esse loop no final para o Media não ficar parando a transmissão... Consegue continuar, mais da uma parada...
O que preciso é que o loop continue na trasmissão sem parar...
São canais aleatórios...
Private Sub cmdRedeBrasil_Click()
Dim coco As Integer
Dim iCount As Integer
'Me.coco.ScriptErrorsSuppressed() = True 'access 2010
'Me.coco.Silent = True 'access 2007 e menor
Me!coco.URL = "http://wse01.logicahost.com.br:1935/livretv/livretv/playlist.m3u8"
Me!coco.settings.setMode "loop", True
For iCount = 1 To 6000
Next iCount
Me.lblMensagem.Caption = "No AR - REDE Brasil - SP!"
End Sub
Desde já agradeço pela ajuda dos companheiros...
Abraços,
Link do exemplo:
dropbox.com/s/q7ec1fuk7z5dry9/ExemploTV.rar?dl=0
Tenho a seguinte situação e peço ajuda para solucionar.
Tenho um form com um Windows Media Player para rodar canais de TV online...
Inseri botões com os canais conforme abaixo... Ao clicar no botão, o canal de TV roda no Media normal...
O problema é que após 4 segundo para... Tentei inserir esse loop no final para o Media não ficar parando a transmissão... Consegue continuar, mais da uma parada...
O que preciso é que o loop continue na trasmissão sem parar...
São canais aleatórios...
Private Sub cmdRedeBrasil_Click()
Dim coco As Integer
Dim iCount As Integer
'Me.coco.ScriptErrorsSuppressed() = True 'access 2010
'Me.coco.Silent = True 'access 2007 e menor
Me!coco.URL = "http://wse01.logicahost.com.br:1935/livretv/livretv/playlist.m3u8"
Me!coco.settings.setMode "loop", True
For iCount = 1 To 6000
Next iCount
Me.lblMensagem.Caption = "No AR - REDE Brasil - SP!"
End Sub
Desde já agradeço pela ajuda dos companheiros...
Abraços,
Link do exemplo:
dropbox.com/s/q7ec1fuk7z5dry9/ExemploTV.rar?dl=0