USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Imagem/Som/Multimídia)

Título da Dica:  Colocar musica no seu programa
Postada em 12/10/2003 por ^HEAVY-METAL^            
'Esta função toca uma música Mid durante a
'execução de seu programa, sem atrapalhar o
'andamento Do mesmo.

'No LOAD Do form coloque a função com a opção MPLAY
'No UNLOAD Do form coloque a função com a opção MSTOP

'Não esqueça de parar a música, porque senão ela irá ficar tocando sempre
Public Enum OpcoesMid
    mPlay = 1
    mStop = 2
End Enum

Private Result

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal IpstrCommand As String, ByVal IpstrReturnString As String, ByVal uRetrunLength As Long, ByVal hwndCallback As Long) As Long

Public Sub TocarMid(PathArquivo As String, Opcao As OpcoesMid)
    Select Case Opcao
        Case 1
            Result = mciSendString("Open " & PathArquivo & " Type sequencer alias musica", 0, 0, 0)
            Result = mciSendString("play musica", 0, 0, 0)
        Case 2
            Result = mciSendString("Open " & PathArquivo & " Type sequencer alias musica", 0, 0, 0)
            Result = mciSendString("Stop musica", 0, 0, 0)
    End Select
End Sub


T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página