|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Tocar Arquivos MIDI
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
'No módulo:
Public Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Public Sub TocarMID(File As String, Optional Wait _
As Boolean)
If File = "" Then
Call mciExecute("close Musica")
Else
Call mciExecute("open " & File & " type " & _
"sequencer alias Musica")
If Wait Then
Call mciExecute("play Musica wait")
Else
Call mciExecute("play Musica")
End If
End If
End Sub
'P/ abrir a música MIDI (já tocando-o):
TocarMID "C:\Musica.MID"
'P/ dar uma pausa:
TocarMID "C:\Musica.MID", True
'P/ voltar a tocar a música MIDI:
TocarMID "C:\Musica.MID", False
'P/ fechar a música:
TocarMID ""
|
|
|
|
|
