Cómo reproducir archivos de audio mediante el uso de Visual Basic .NET o Visual Basic 2005

Seleccione idioma Seleccione idioma
Id. de artículo: 821767 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo paso a paso se describe cómo reproducir archivos de audio mediante el uso de Microsoft Visual Basic .NET o Microsoft Visual Basic 2005. Esto artículo también contiene código de ejemplo que ilustra los conceptos son Tratado en este artículo.

Requisitos

La lista siguiente describe el hardware recomendado, software, infraestructura de red y los service packs que usted necesita:
  • Microsoft Windows Server 2003, Microsoft Windows 2000 Microsoft Windows XP o Microsoft Windows XP Service Pack 1
  • Visual Basic .NET o Visual Basic 2005
Nota El código que se proporciona en este artículo no es compatible con Microsoft Windows Server 2003.

Este artículo se supone que es que están familiarizados con los siguientes temas:
  • Visual Basic .NET o Visual Basic 2005 programación
  • El kit de desarrollo de software de Reproductor de Windows Media (SDK)
  • Interoperabilidad de modelo de objetos (COM) los componentes en Visual Basic .NET o en Visual Basic 2005

Crear una aplicación para Windows

  1. Inicie Microsoft Visual Studio .NET o Microsoft Visual Basic 2005.
  2. En el Archivo en el menú, señale aNuevoy, a continuación, haga clic en Proyecto.
  3. Bajo Tipos de proyecto, haga clic en Visual Proyectos básicos.

    Nota En Visual Studio 2005 de, haga clic en Visual Basic bajoTipos de proyecto.
  4. Bajo Plantillas, haga clic en Windows Aplicación.
  5. En el Nombre cuadro, escribaAudioDemoy, a continuación, haga clic en ACEPTAR. Por por defecto, se creará Form1.vb.

Agregar un control de Reproductor de Windows Media a la aplicación

  1. Inicie Visual Studio .NET o Visual Studio 2005.
  2. En el Herramientas de menú, haga clic enAgregar o quitar elementos de cuadro de herramientas.

    Nota En Visual Studio .NET 2002, en el Herramientas de menú, Haga clic en Personalizar cuadro de herramientas.

    En Visual Studio 2005 Haga clic en Elegir elementos del cuadro de herramientas En la página Herramientas demenú.
  3. Haga clic en el Componentes COM ficha y, a continuación, Haga clic en Examinar.
  4. Busque y, a continuación, haga clic en Msdxm.ocxy, a continuación, Haga clic en Abrir.

    Nota Msdxm.ocx normalmente se encuentra en% WINDIR %/ System32, donde% WINDIR % es la ubicación del directorio de Windows en el equipo.
  5. En el Personalizar cuadro de herramientas o Elija Elemento de cuadro de herramientas cuadro de diálogo, haga clic en ACEPTAR. En Visual Studio .NET 2003 y en Visual Studio 2005, un WindowsMediaPlayercontrol se agrega al cuadro de herramientas. En Visual Studio .NET 2002, unMediaPlayer control se agrega al cuadro de herramientas.
  6. En Visual Studio .NET 2003 o en Visual Studio 2005, agregar un Control de WindowsMediaPlayer a Form1. En Visual Studio .NET 2002, agregue un control MediaPlayer .
  7. AxMediaPlayer1 se agrega a Form1.

Agregar botones para controlar de Reproductor de Windows Media

  1. Agregue cuatro controles Button a Form1.
  2. Haga clic en Button1.
  3. En el panel Propiedades, cambie el Textopropiedad de Button1 a Carga.
  4. Haga clic en Button2.
  5. En el panel Propiedades, cambie el Textopropiedad de Button2 a Reproducir.
  6. Haga clic en Button3.
  7. En el panel de propiedades, cambie el Textopropiedad de Button3 a Pausa.
  8. Haga clic en Button4.
  9. En el panel Propiedades, cambie el Textopropiedad de Button4 a Detener.

Agregar un componente OpenFileDialog para cargar un archivo de Audio

Agregar un OpenFileDialog componente a Form1.

Agregar código de inicialización

  1. En el Vista menú, haga clic enCódigo.
  2. En la región "Código generado por el Diseñador de Windows Forms", Busque el código siguiente:
    InitializeComponent()
  3. Agregue el código siguiente después del código que encontró en paso 2:
    ' Disable the Play, the Pause, and the Stop buttons.
    Button2.Enabled = False
    Button3.Enabled = False
    Button4.Enabled = False
    
    ' Hide the Windows Media Player.
    AxMediaPlayer1.Visible = False
    

Agregue código para cargar un archivo de Audio

  1. En el Vista menú, haga clic enDiseñador.
  2. Haga doble clic en el Carga (control) y, a continuación, Agregue el código siguiente para el controlador de eventos Button1_Click :
    ' Reset the file names for the Open File dialog box and for the Media Player.
    OpenFileDialog1.FileName = ""
    AxMediaPlayer1.FileName = ""
    ' Display the Open File dialog box.
    OpenFileDialog1.ShowDialog()
    ' Verify that Cancel was not clicked.
    If Not OpenFileDialog1.FileName = "" Then
       ' Disable the Load button.
       Button1.Enabled = False
       ' Prevent the Media Player from automatically playing loaded files.
       AxMediaPlayer1.AutoStart = False
       ' Set the Media Player audio file.
       AxMediaPlayer1.FileName = OpenFileDialog1.FileName
       MessageBox.Show("The following file has been loaded in the Media Player control: " + AxMediaPlayer1.FileName)
       ' Enable the Play button.
       Button2.Enabled = True
    Else
       ' Disable the Play button.
       Button2.Enabled = False
    End If

Agregue código para reproducir un archivo de Audio

  1. En el Vista menú, haga clic enDiseñador.
  2. Haga doble clic en el Reproducir (control) y, a continuación, Agregue el código siguiente para el controlador de eventos Button2_Click :
    ' Disable the Load and the Play buttons.
    Button1.Enabled = False
    Button2.Enabled = False
    ' Play the audio file.
    AxMediaPlayer1.Play()
    ' Enable the Pause and the Stop buttons.
    Button3.Enabled = True
    Button4.Enabled = True

Agregue código para hacer una pausa un archivo de Audio

  1. En el Vista menú, haga clic enDiseñador.
  2. Haga doble clic en el Pausa (control) y, a continuación, Agregue el código siguiente para el controlador de eventos Button3_Click :
    ' Disable the Pause button.
    Button3.Enabled = False
    ' Pause the audio file.
    AxMediaPlayer1.Pause()
    ' Enable the Play button.
    Button2.Enabled = True

Agregue código para detener un archivo de Audio

  1. En el Vista menú, haga clic enDiseñador.
  2. Haga doble clic en el Detener (control) y, a continuación, Agregue el código siguiente al Button4_Click -controlador de eventos:
    ' Disable the Pause and the Stop buttons.
    Button3.Enabled = False
    Button4.Enabled = False
    ' Stop playing the audio file, and then reset the next play position to the beginning.
    AxMediaPlayer1.Stop()
    AxMediaPlayer1.CurrentPosition = 0
    ' Enable the Load and the Play buttons.
    Button1.Enabled = True
    Button2.Enabled = True

Listado de código (Form1.vb) de la muestra

Option Strict On

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        ' This call is required by the Windows Form Designer.
      InitializeComponent()

      ' Disable the Play, the Pause, and the Stop buttons.
      Button2.Enabled = False
      Button3.Enabled = False
      Button4.Enabled = False

      ' Hide the Media Player.
      AxMediaPlayer1.Visible = False
      
        ' Add any initialization after the InitializeComponent() call.

    End Sub

    ' Form overrides Dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Required by the Windows Form Designer.
    Private components As System.ComponentModel.IContainer

    ' NOTE: The following procedure is required by the Windows Form Designer
    ' It can be modified using the Windows Form Designer.  
    ' Do not modify it using the code editor.
   Friend WithEvents AxMediaPlayer1 As AxMediaPlayer.AxMediaPlayer
   Friend WithEvents Button1 As System.Windows.Forms.Button
   Friend WithEvents Button2 As System.Windows.Forms.Button
   Friend WithEvents Button3 As System.Windows.Forms.Button
   Friend WithEvents Button4 As System.Windows.Forms.Button
   Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
      Me.AxMediaPlayer1 = New AxMediaPlayer.AxMediaPlayer
      Me.Button1 = New System.Windows.Forms.Button
      Me.Button2 = New System.Windows.Forms.Button
      Me.Button3 = New System.Windows.Forms.Button
      Me.Button4 = New System.Windows.Forms.Button
      Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
      CType(Me.AxMediaPlayer1, System.ComponentModel.ISupportInitialize).BeginInit()
      Me.SuspendLayout()
      '
      'AxMediaPlayer1
      '
      Me.AxMediaPlayer1.Location = New System.Drawing.Point(224, 0)
      Me.AxMediaPlayer1.Name = "AxMediaPlayer1"
      Me.AxMediaPlayer1.OcxState = CType(resources.GetObject("AxMediaPlayer1.OcxState"), System.Windows.Forms.AxHost.State)
      Me.AxMediaPlayer1.Size = New System.Drawing.Size(286, 225)
      Me.AxMediaPlayer1.TabIndex = 0
      '
      'Button1
      '
      Me.Button1.Location = New System.Drawing.Point(16, 72)
      Me.Button1.Name = "Button1"
      Me.Button1.TabIndex = 1
      Me.Button1.Text = "Load"
      '
      'Button2
      '
      Me.Button2.Location = New System.Drawing.Point(32, 104)
      Me.Button2.Name = "Button2"
      Me.Button2.TabIndex = 2
      Me.Button2.Text = "Play"
      '
      'Button3
      '
      Me.Button3.Location = New System.Drawing.Point(40, 136)
      Me.Button3.Name = "Button3"
      Me.Button3.TabIndex = 3
      Me.Button3.Text = "Pause"
      '
      'Button4
      '
      Me.Button4.Location = New System.Drawing.Point(56, 192)
      Me.Button4.Name = "Button4"
      Me.Button4.TabIndex = 4
      Me.Button4.Text = "Stop"
      '
      'Form1
      '
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(712, 397)
      Me.Controls.Add(Me.Button4)
      Me.Controls.Add(Me.Button3)
      Me.Controls.Add(Me.Button2)
      Me.Controls.Add(Me.Button1)
      Me.Controls.Add(Me.AxMediaPlayer1)
      Me.Name = "Form1"
      Me.Text = "Form1"
      CType(Me.AxMediaPlayer1, System.ComponentModel.ISupportInitialize).EndInit()
      Me.ResumeLayout(False)

   End Sub

#End Region

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      ' Reset the file names for the Open dialog box and for the Media Player.
      OpenFileDialog1.FileName = ""
      AxMediaPlayer1.FileName = ""
      ' Display the Open File dialog box.
      OpenFileDialog1.ShowDialog()
      ' Verify that Cancel was not clicked.
      If Not OpenFileDialog1.FileName = "" Then
         ' Disable the Load button.
         Button1.Enabled = False
         ' Prevent the Media Player from automatically playing loaded files.
         AxMediaPlayer1.AutoStart = False
         ' Set the Media Player audio file.
         AxMediaPlayer1.FileName = OpenFileDialog1.FileName
         MessageBox.Show("The following file has been loaded in the Media Player control: " + AxMediaPlayer1.FileName)
         ' Enable the Play button.
         Button2.Enabled = True
      Else
         ' Disable the Play button.
         Button2.Enabled = False
      End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      ' Disable the Load and the Play buttons.
      Button1.Enabled = False
      Button2.Enabled = False
      ' Play the audio file.
      AxMediaPlayer1.Play()
      ' Enable the Pause and the Stop buttons.
      Button3.Enabled = True
      Button4.Enabled = True
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      ' Disable the Pause button.
      Button3.Enabled = False
      ' Pause the audio file.
      AxMediaPlayer1.Pause()
      ' Enable the Play button.
      Button2.Enabled = True
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      ' Disable the Pause and the Stop buttons.
      Button3.Enabled = False
      Button4.Enabled = False
      ' Stop playing the audio file, and then reset the next play position to the beginning.
      AxMediaPlayer1.Stop()
      AxMediaPlayer1.CurrentPosition = 0
      ' Enable the Load and the Play buttons.
      Button1.Enabled = True
      Button2.Enabled = True
   End Sub
End Class
Nota Debe cambiar el código de Visual Basic 2005. De forma predeterminada, Visual Basic crea dos archivos para el proyecto cuando se crea un formulario Windows Forms proyecto. Si el formulario se denomina Form1, son los dos archivos que representan el formato con nombre de Form1.vb y Form1.Designer.vb. Escriba el código en el archivo Form1.vb. El Diseñador de Windows Forms escribe el código en el archivo Form1.Designer.vb. El Diseñador de Windows Forms utiliza la palabra clave partial para dividir la implementación de Form1 en dos archivos distintos. Este comportamiento impide que el generado por el diseñador código de que se mezcle con el suyo.

Para obtener más información acerca de las nuevas mejoras del lenguaje de Visual Basic 2005, visite el sitio Web Sitio Web de Microsoft Developer Network (MSDN):
http://msdn2.Microsoft.com/en-us/library/ms379584 (puede) .aspx
Para obtener más información acerca de las clases parciales y los formularios Windows Forms Diseñador de, visite el siguiente sitio Web de MSDN:
http://msdn2.Microsoft.com/en-us/library/ms171843.aspx

Compruebe que el código funciona

  1. En el Generación menú, haga clic en Generación Solución.
  2. Para ejecutar la aplicación, haga clic en Inicio En la páginaDepurar menú. Aparecerá Form1.
  3. Haga clic en Carga. El AbrirAparecerá el cuadro de diálogo.
  4. Buscar y seleccionar cualquier archivo de audio válido y, a continuación, haga clic enAbrir. Un cuadro de mensaje con la ruta de acceso de archivo completo aparece.
  5. Para cerrar el cuadro de mensaje, haga clic enACEPTAR.
  6. Para iniciar la reproducción del archivo, haga clic enReproducir. Oír la salida de audio correspondiente.

    Nota Escucha de salida de audio sólo si el equipo tiene un sonido de la tarjeta está configurado correctamente y si utiliza altavoces, auriculares o auriculares para escuchar la salida.
  7. Haga clic en Pausa o Detener a controlar la salida de audio desde la aplicación.

Solucionar problemas

  • Oír que el sonido de salida sólo si el equipo tiene un sonido tarjeta que está configurado correctamente y si utiliza altavoces, auriculares, o auriculares para oír la salida.
  • Es posible que oiga la salida de audio antes de hacer clic enReproducir. Este comportamiento se produce cuando la propiedad AutoStart del Reproductor de medios no se establece en false. De forma predeterminada, la propiedad AutoStart se establece en true. Para solucionar temporalmente este problema, busque la línea siguiente en el Región "Código generado por el Diseñador de Windows Forms":
    InitializeComponent()
    y, a continuación, agregue el código siguiente después del código que se haya encontrado.
    ' Prevent the Media Player from automatically playing loaded files.
    AxMediaPlayer1.AutoStart = False
  • Al hacer clic en Detener y, a continuación, haga clic enReproducir, el archivo de audio puede no iniciarse reproducirse desde el principio. En su lugar, el archivo de audio empieza a reproducirse desde donde el archivo detuvo la reproducción. Este comportamiento se produce cuando no se restablece la posición de reproducción al principio de el archivo de audio. Para solucionar temporalmente este problema, utilice el código siguiente en el controlador de eventos Button4_Click :
    AxMediaPlayer1.CurrentPosition = 0
  • En este ejemplo no se puede reproducir formatos de sonido que no son compatible con Reproductor de Windows Media.

Referencias

Para obtener más información, visite el siguiente Sitios Web de Developer Network (MSDN):
Reproductor de Windows Media 6.4 SDK DE
http://msdn2.Microsoft.com/en-us/library/ms984011.aspx
COM Interoperabilidad
http://msdn2.Microsoft.com/en-us/library/6bw51z5z (puede) .aspx

Propiedades

Id. de artículo: 821767 - Última revisión: domingo, 30 de diciembre de 2012 - Versión: 4.0
La información de este artículo se refiere a:
  • Microsoft Visual Basic 2005
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Palabras clave: 
kbvs2005applies kbvs2005swept kbwaveaudio kbsdk kbcominterop kbcomctrls kbsound kbinterop kbappdev kbctrl kbcontrol kbprogramming kbsample kbhowtomaster kbmt KB821767 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 821767

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com