PROGRAMA COM MUSICA

USUARIO.EXCLUIDOS 03/09/2007 14:17:46
#233885
Como faço pra quando abrir o programa, uma musica rodar junto ?
"tipo eu abro o programa, e começa a toka uma musika, e a musika fika repitindo se akaba o tempo dela."
USUARIO.EXCLUIDOS 03/09/2007 14:20:57
#233886 Resposta escolhida
Use controle de musica MControl...

Aqui tbm vai um exemplo

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=1446&TxtSearch=musica&CmbSort=ftitulo&varPagina=1
USUARIO.EXCLUIDOS 03/09/2007 14:26:40
#233887
Eita, tipo cara por min usar uma programação seria melhor ..
Caso não possa me explicar, muito obrigado.
USUARIO.EXCLUIDOS 03/09/2007 14:38:17
#233889
Amigo faz o seguinte:
Vai em Project + componentes e add oo componente

Microsoft Multimedia Controls

Em seguida insira no seu form este componente

Apartir dai utiliza o seguinte codigo no form load

Private Sub Form_Load()
MMControl1.FileName = "Caminho onde esta o arquivo de som" ' Muda apenas o caminho o seguinte está correto já
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
USUARIO.EXCLUIDOS 03/09/2007 17:00:01
#233924
vc também pode usar o directshow (active movie). E um pouco trabalhoso, mas tem um rendimento melhor.

eu anexei o código. Ele e facil de ser compreendido.
Ao usar em outro projeto não se esqueça de fazer referência
ao controle : "ActiveMovie control library".

fazer referencia:
Pressione F2 na tela principal do vb. Clique direito do mouse e em "references..."
USUARIO.EXCLUIDOS 04/09/2007 13:45:37
#234041
Cade o arquivo anexado cara?
USUARIO.EXCLUIDOS 04/09/2007 13:49:09
#234044
rs...Ele não mandou ....

Faz com o MMControl...acredito que seja mais simples.
USUARIO.EXCLUIDOS 04/09/2007 13:50:02
#234045
Okey vo tenta faze no MMControl, mais se tem msn sei lá, seria mais facil conversar com você cara, qualquer coisa eu te mando PVT.
USUARIO.EXCLUIDOS 04/09/2007 13:54:49
#234048
shiii, esqueci de anexar [S88]
quando chegar em casa eu mando ok ;)
USUARIO.EXCLUIDOS 04/09/2007 14:03:13
#234053
Esse jeito do LANDOSP
Não pega de jeito NENHUM, to começano a fika nervoso okaepoakEEPAok.
USUARIO.EXCLUIDOS 04/09/2007 14:12:09
#234055
hsuahs rs... como vc está fazendo ?

Private Sub Form_Load()
MMControl1.FileName = "Caminho onde esta o arquivo de som" ' Muda apenas o caminho o seguinte está correto já
End Sub


Coloca isso em um command ce preferir

MMControl1.Command = "Open"
MMControl1.Command = "Play"
Página 1 de 4 [32 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar