USANDO O CONTROLE MEDIA PLAYER

RICKSOUSA 24/06/2012 02:07:04
#404771
bom dia!

como eu faço, quando eu apertar o STOP do media player o mesmo encerrar o controle.

ai eu gostaria de chamar a propriedade .visible = false

na verdade estou querendo fazer o seguinte;

em um formulario vou colocar um combobox, e um controle windows media player.

no combo vou carregar os nomes dos audios, quando eu clicar no nome do audio, vai mostrar o controle media player e começar a tocar, ai se por acaso eu for escolher audio, encerre oq esteja tocando e começe a tocar o que eu escolhi....
RICKSOUSA 24/06/2012 02:47:08
#404773
eu começei a fuçar aqui e começou a vim ideia na minha mente entao eu fiz da seguinte maneira:

criei um combobox e um controle windows media player:

o nome do combobox eu coloquei de combotipo. e o controle media deixei da forma que estava.

no general criei uma sub para carregar o combo:

[th][/th][/trPrivate Sub CarregaComboTipo()

With ComboTipo
.AddItem [Ô]AO FINDAR O LABOR DA VIDA[Ô]
.ItemData(.NewIndex) = 0
.AddItem [Ô]Aline Barros e Fernandinho - Rendido Estou[Ô]
.ItemData(.NewIndex) = 1
.AddItem [Ô]Jerusalém E Eu - Cristina Mel[Ô]
.ItemData(.NewIndex) = 2
.AddItem [Ô]03 Metade do Filho[Ô]
.ItemData(.NewIndex) = 3
.Text = .List(0)

End With

End Sub
]
Cabecalho


no form load;

[th][/th][/trPrivate Sub Form_Load()

CarregaComboTipo

End Sub
]
Cabecalho


e no click do combo fiz assim:

[th][/th][/trPrivate Sub ComboTipo_Click()

Select Case ComboTipo.ItemData(ComboTipo.ListIndex)

Case 0

WindowsMediaPlayer1.URL = App.Path & [Ô]\Audio\AO FINDAR O LABOR DA VIDA.mp3[Ô]

Case 1

WindowsMediaPlayer1.URL = App.Path & [Ô]\Audio\Aline Barros e Fernandinho - Rendido Estou.mp3[Ô]

Case 2

WindowsMediaPlayer1.URL = App.Path & [Ô]\Audio\Jerusalém E Eu - Cristina Mel.mp3[Ô]

Case 3

WindowsMediaPlayer1.URL = App.Path & [Ô]\Audio\03 Metade do Filho.mp3[Ô]

End Select

End Sub
]
Cabecalho


e deu certo!!!

eu divulguei aqui pra quem ta iniciando servir de exemplo.

espero ter ajudado...
Tópico encerrado , respostas não são mais permitidas
Voltar