RE:como insertar audio en visual basic
Publicado por
james (1 intervención) el 14/09/2009 17:28:34
Ejercicio Nº 83: Música.
Este ejercicio permite abrir archivos WAV, ejecutados con el control Multimedia y seleccionados de las carpetas del los distintos dispositivos. El Multimedia control debe traerse desde proyecto, Componentes para ser agregado a la Caja de Herramientas.
El código completo es el siguiente:
Private Sub cmdInicio_Click()
Dim Extension As String
Busqueda = "." ' Busqueda hasta ".".
If InStr(1, File1.FileName, ".") Then 'Si encuentra el signo "."
'Comparacion
MiPos = InStr(File1.FileName, Busqueda) ' Regresa la posición de ".".
Extension = Mid(File1.FileName, MiPos + 1) 'Escribe extensión cortado despues del punto.
If Extension = "WAV" Or Extension = "wav" Then
MMControl1.FileName = Dir1.Path & "/" & File1.FileName
MMControl1.Command = "open"
MMControl1.Command = "play"
Else
MsgBox "Con esa extensión no puede oir esta musica," & _
"solo permite oir con extension WAV", vbInformation
End If
Else
Exit Sub
End If
End Sub
Private Sub cmdParar_Click()
MMControl1.Command = "stop"
MMControl1.Command = "close"
End Sub
Private Sub cmdPausa_Click()
MMControl1.Command = "pause"
End Sub
Private Sub Dir1_Change()
'Para que aparezcan sólo los archivos de ese directorio.
File1.Path = Dir1.Path
End Sub
Private Sub Form_Load()
MMControl1.DeviceType = "waveaudio"
MMControl1.Command = "close"
End Sub