Sección de códigos , trucos y ejemplos para visual basic

344 - Reproducir sonidos con el multimedia control

Ejemplo enviado por Martín Carranza para reproducir sonidos con el control Multimedia de visual basic

Formulario

vista del formulario para reproducir los sonidos con el multimedia control de vb

Para el ejemplo agregar

un control Multimedia control desde el menú componentes.
Tres CommandButton ( CmdPlay , CmdPause y CmdStop )
Indicar en el FormLoad el archivo a reproducir y el tipo de archivo ( wav , mp3 midi etc.. usando las constantes WAV, CD etc...)

Código fuente en el formulario

Option Explicit Private Archivo As String ' Formatos de archivos Private Const WAV As String = "WAVEAUDIO" Private Const CD As String = "CDAudio" Private Const AVI As String = "AVIVideo" Private Const MIDI As String = "Sequencer" Private Const MP3 As String = "mpegvideo" '******************************************************************* Private Sub Form_Load() cmdPlay.Caption = "Reproducir" cmdPause.Caption = "Pausa" cmdStop.Caption = "Detener" ' Ruta del archivo formato wav Archivo = App.Path & "\Archivo.wav" If Dir(Archivo) = vbNullString Then MsgBox " No se encontró el archivo : " & Archivo & " en el directorio", _ vbCritical Else ' Indica el tipo de sonido ( "WAVEAUDIO" ) MMControl1.DeviceType = WAV MMControl1.FileName = Archivo Call Detener End If End Sub ' Botones de pausa reproducción y detener Private Sub cmdPause_Click() Pausar End Sub Private Sub cmdPlay_Click() Reproducir End Sub Private Sub cmdStop_Click() Detener End Sub Private Sub Pausar() If MMControl1.Mode <> mciModePlay Then Exit Sub End If cmdPlay.Enabled = False cmdStop.Enabled = False cmdPause.Enabled = False ' Indica el Comando ( pausar sonido ) MMControl1.Command = "pause" Do DoEvents Loop Until MMControl1.Mode = mciModePause cmdPlay.Enabled = True End Sub Private Sub Reproducir() cmdPlay.Enabled = False cmdStop.Enabled = False cmdPause.Enabled = False ' Indica el Comando ( Abrir, pausar o reproducir ) If MMControl1.Mode = mciModeNotOpen Then MMControl1.Command = "open" End If If MMControl1.Mode = mciModePause Then MMControl1.Command = "pause" Else MMControl1.Command = "play" End If Do DoEvents Loop Until MMControl1.Mode = mciModePlay cmdPause.Enabled = True cmdStop.Enabled = True End Sub Private Sub Detener() cmdPlay.Enabled = False cmdStop.Enabled = False cmdPause.Enabled = False ' Comando para detener el sonido o cerrarlo MMControl1.Command = "stop" MMControl1.Command = "close" Do DoEvents Loop Until MMControl1.Mode = mciModeNotOpen cmdPlay.Enabled = True MMControl1.Visible = False End Sub Private Sub MMControl1_Done(NotifyCode As Integer) Detener End Sub

Recursos vb - Enlaces relacionados

Audio, video y multimedia

Buscar en Recursos vb