Aquí tienes lo que buscas... Un saludo
Gracias por tu aporte, pero no entiendo muy bien la parte de abrir un .MID(Aquí dejo el codigo)
Código
¿Qué tendría que tocar para plasmarlo en un texbox aparte?
Private Sub MnuAbrir_Click() On Error Resume Next CMDialog1.FilterIndex = 1 CMDialog1.Filter = "Secuencia Midi|*.Mid;*.rmi;*.Midi" CMDialog1.Flags = OFN_READONLY Or OFN_FILEMUSTEXIST CMDialog1.CancelError = True CMDialog1.FileName = "" On Error Resume Next CMDialog1.Action = 1 If Err <> 0 Then Exit Sub End If Dim i As Long, RS As String, cb As Long, A$, X As Long, Y As Long RS = Space$(128) Text1.Text = CMDialog1.FileName A$ = Text1.Text i = mciSendString("Stop Mid1", RS, 128, cb) i = mciSendString("Close Mid1", RS, 128, cb) i = mciSendString("open " & A$ & " Type Sequencer Alias Mid1 ", RS, 128, cb) Form1.Caption = "Reproductor de Midi - " + CMDialog1.FileTitle App.Title = "Reproductor de Midi - " + CMDialog1.FileTitle Timer1.Enabled = True ProgressBar2.Cls i = mciSendString("play Mid1", RS, 128, cb) End Sub
Saludos.