Mensajes

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 (vb) [Seleccionar] Expandir


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

¿Qué tendría que tocar para plasmarlo en un texbox aparte?

Saludos.

Buenas noches. Primero me presento. Soy Topyr, pero no me llamo así . He estado curioseando alguna vez este foro por la parte de programación. Me registré por varios motivos, pero uno de ellos es que necesito "procesar" archivos .MID (midi's). Pero con leerlos me conformo. Quisiera saber si hay una librería disponible en Visual Basic que se encargue de leer las notas y la duración de cada una. Ante todo gracias y, ya he buscado en google y en otros motores de búsqueda pero, no he encontrado nada.