|
|
|
|
|
|
|
|
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+,
|
|
|
|
|
