Midi en Visual Basic

[Rriveros]

Hola, alguien sabe como insertar sonido ( Midi ) y video en un formaulario Visual Basic y que se ejecute automaticamente.




Gracias

[Max13]

Prueba con el control MMControl.

[RootK]

Para el sonido.. por ejemplo podrías crear una clase.. y luego la mandas a llamar por ejemplo.. con un boton... o lo que desees.. sería algo como esto:

Creas una clase que se llame CSSound y pones lo siguiente.:

Option Explicit

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Enum CSSoundFlags
CSSync = &H0
CSAsync = &H1
End Enum

Dim m_Filename As String

Public Property Get Filename() As String
Filename = m_Filename
End Property
Public Property Let Filename(ByVal newFile As String)
m_Filename = newFile
End Property

Public Sub PlayWave(Optional ByVal pFile As String = "", Optional ByVal pFlag As CSSoundFlags = CSSync)

On Error Resume Next
If pFile <> "" Then m_Filename = pFile
If m_Filename = "" Then Exit Sub
Call PlaySound(m_Filename, 0, pFlag)

End Sub

y en tu formulario pones un boton si quieres y pones este code:

Private Sub Command1_Click()

Dim temp As New CSSound
temp.PlayWave “c:\windows\media\tu_sonido.wav”, CSAsync

End Sub


Saludos..!!