Postada em 27/09/2011 19:54 hs
Desenvolvi aplicativo VB6 no XP, que executa automaticamente uma lista de arqs MP3.
No Windows 7, somente o 1º arq é executado, chegando a saltar para o segundo, sem executar entretanto. Uso uma sub _EndOfStream como exibido abaixo.
No Win 7, o próprio ícone do Win media Player na barra de ferramentas Tools, não é exibido (somente um quadrado negro).
---------------------------------------------------------------------------------------------------
Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
If File1.ListCount > File1.ListIndex + 1 Then
File1.ListIndex = File1.ListIndex + 1
Else
File1.ListIndex = 0
MediaPlayer1.Stop
End If
End Sub
---------------------------------------------------------------------------------------------
Como faço para contornar essa situação?
Obrigado desde já.
Raul
Udo 
|
