Como executar MIDI arquivos API usando funções

Exemplo passo a passo

1. Inicie o Visual Basic ou se já estiver executando o Visual Basic, clique em novo projeto EXE padrão no menu Arquivo (ALT, F, N). O Form1 é criado por padrão.
2. Adicione um CommandButton (Command1) ao Form1.
3. Adicione o seguinte código ao evento Command1_Click do Form1:

         Private Sub Command1_Click()
         Dim ret As Integer
   
            ' The following will open the sequencer with the CANYON.MID
            ' file. Canyon is the device_id.
   
            ret = mciSendString( _
              "open " & Song & " type sequencer alias canyon", _
              0&, 0, 0)
   
            ' The wait tells the MCI command to complete before returning
            ' control to the application.
   
            ret = mciSendString("play canyon wait", 0&, 0, 0)
   
            ' Close CANYON.MID file and sequencer device
   
            ret = mciSendString("close canyon", 0&, 0, 0)
   
         End Sub
   
   						

4. Adicione o seguinte código à seção General Declarations do Form1.

         Private Declare Function mciSendString Lib "winmm.dll" Alias _
            "mciSendStringA" (ByVal lpstrCommand As String, ByVal  _
            lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
            hwndCallback As Long) As Long
   
         ' Modify the value of the constant "Song" with your path
               ' to "canyon.mid".
               Private Const Song As String = "C:\Windows\Media\Canyon.MID"
   
   						

5. No menu Executar, clique em Iniciar (ALT, R, S) ou pressione a tecla F5 para executar o programa.

Voltar para o início