Como reproduzir arquivos de áudio utilizando o Visual Basic .NET ou Visual Basic 2005

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 821767
Sumário
Este artigo passo a passo descreve como reproduzir arquivos de áudio usando o Microsoft Visual Basic .NET ou Microsoft Visual Basic 2005. Este artigo também contém código de exemplo que ilustra os conceitos descritos no artigo.

back to the top

Requisitos

A lista a seguir descreve o hardware recomendado, software, infra-estrutura de rede e service packs que você precisa:
  • Microsoft Windows Server 2003, Microsoft Windows 2000, Microsoft Windows XP ou Microsoft Windows XP Service Pack 1
  • Visual Basic .NET ou Visual Basic 2005
Observação Não há suporte para o código que é fornecido neste artigo no Microsoft Windows Server 2003.

Este artigo pressupõe que você esteja familiarizado com os seguintes tópicos:
  • O Visual Basic programação de .NET ou Visual Basic 2005
  • O desenvolvimento de software do Windows Media Player kit (SDK)
  • Interoperabilidade de COM (Object Model) do componente no Visual Basic .NET ou no Visual Basic 2005
back to the top

Crie um aplicativo do Windows

  1. Inicie o Microsoft Visual Studio .NET ou Microsoft Visual Basic 2005.
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
  3. Em Project Types , clique em Projetos do Visual Basic .

    Observação No Visual Studio 2005, clique em Visual Basic em Project Types .
  4. Em modelos , clique em Windows Application .
  5. Na caixa nome , digite AudioDemo e, em seguida, clique em OK . Por padrão, Form1.vb é criado.
back to the top

Adicionar um controle Windows Media Player para o aplicativo

  1. Inicie o Visual Studio .NET ou Visual Studio 2005.
  2. No menu Ferramentas , clique em Adicionar ou remover itens de caixa de ferramentas .

    Observação No Visual Studio .NET 2002, no menu Ferramentas , clique em Customize Toolbox .

    No Visual Studio 2005, clique em Choose Toolbox Items no Ferramentas do menu.
  3. Clique na guia Componentes COM e, em seguida, clique em Procurar .
  4. Localize e, em seguida, clique Msdxm.ocx e, em seguida, clique em Abrir .

    Observação Msdxm.ocx normalmente está localizado na %WINDIR% / System32, onde %WINDIR% é o local do diretório Windows em seu computador.
  5. Em Customize Toolbox ou Escolha Toolbox Item diálogo caixa, clique em OK . No Visual Studio .NET 2003 e no Visual Studio 2005, um WindowsMediaPlayer controle é adicionado à caixa de ferramentas. No Visual Studio .NET 2002, um controle MediaPlayer é adicionado à caixa de ferramentas.
  6. No Visual Studio .NET 2003 ou no Visual Studio 2005, adicione um controle WindowsMediaPlayer ao Form1. No Visual Studio .NET 2002, adicione um controle MediaPlayer .
  7. AxMediaPlayer1 é adicionado ao Form1.
back to the top

Adicionar botões para controlar o Windows Media Player

  1. Adicione quatro controles de botão ao Form1.
  2. Clique em Button1 .
  3. No painel Propriedades, altere o texto de propriedade de Button1 a carga .
  4. Clique em Button2 .
  5. No painel Propriedades, altere o texto de propriedade do Button2 para Executar .
  6. Clique em Button3 .
  7. No painel de propriedades, altere o texto de propriedade do Button3 para Pausar .
  8. Clique em Button4 .
  9. No painel Propriedades, altere o texto de propriedade do Button4 Parar .
back to the top

Adicionar um componente OpenFileDialog para carregar um arquivo de áudio

Adicione um componente OpenFileDialog para Form1.

back to the top

Adicionar código de inicialização

  1. No menu Exibir , clique em código .
  2. Na região "Windows Form Designer gerou código", localize o código a seguir:
    InitializeComponent()
  3. Adicione o seguinte código após o código localizado na etapa 2:
    ' Disable the Play, the Pause, and the Stop buttons.Button2.Enabled = FalseButton3.Enabled = FalseButton4.Enabled = False' Hide the Windows Media Player.AxMediaPlayer1.Visible = False
back to the top

Adicionar código para carregar um arquivo de áudio

  1. No menu Exibir , clique em Designer .
  2. Clique duas vezes o controle de carregamento e, em seguida, adicione o código a seguir para o manipulador 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 = TrueElse   ' Disable the Play button.   Button2.Enabled = FalseEnd If
back to the top

Adicione código para executar um arquivo de áudio

  1. No menu Exibir , clique em Designer .
  2. Clique duas vezes o controle Executar e, em seguida, adicione o código a seguir para o manipulador de eventos Button2_Click :
    ' Disable the Load and the Play buttons.Button1.Enabled = FalseButton2.Enabled = False' Play the audio file.AxMediaPlayer1.Play()' Enable the Pause and the Stop buttons.Button3.Enabled = TrueButton4.Enabled = True
back to the top

Adicionar código para pausar um arquivo de áudio

  1. No menu Exibir , clique em Designer .
  2. Clique duas vezes o controle de pausa e, em seguida, adicione o código a seguir para o manipulador de eventos Button3_Click :
    ' Disable the Pause button.Button3.Enabled = False' Pause the audio file.AxMediaPlayer1.Pause()' Enable the Play button.Button2.Enabled = True
back to the top

Adicionar código para parar um arquivo de áudio

  1. No menu Exibir , clique em Designer .
  2. Clique duas vezes o controle Stop e, em seguida, adicione o código a seguir para o manipulador de eventos Button4_Click :
    ' Disable the Pause and the Stop buttons.Button3.Enabled = FalseButton4.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 = TrueButton2.Enabled = True
back to the top

Código de exemplo listagem (Form1.vb)

Option Strict OnPublic 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 SubEnd Class
Observação Você deve alterar o código no Visual Basic 2005. Por padrão, o Visual Basic cria dois arquivos para o projeto quando você cria um Windows Forms projeto. Se o formulário é denominado Form1, os dois arquivos que representam o formulário são chamados de Form1.vb e Form1.Designer.vb. Escreva o código no arquivo Form1.vb. O Windows Forms Designer escreve o código no arquivo Form1.Designer.vb. O Windows Forms Designer usa a palavra-chave partial para dividir a implementação de Form1 em dois arquivos separados. Esse comportamento impede que o código gerado pelo designer sendo intercaladas com seu código.

Para obter mais informações sobre os novos aprimoramentos linguagem Visual Basic 2005, visite o seguinte site da Web Microsoft Developer Network (MSDN): Para obter mais informações sobre classes parciais e o Windows Forms Designer, visite o seguinte site da MSDN:

Verificar se o código funciona

  1. No menu Build , clique em Build Solution .
  2. Para executar o aplicativo, clique em Iniciar no menu Debug . Form1 é exibida.
  3. Clique em carregar . Abrir caixa de diálogo é exibida.
  4. Localize e selecione qualquer arquivo de áudio válido e, em seguida, clique em Abrir . Será exibida uma caixa de mensagem com o caminho completo do arquivo.
  5. Para fechar a caixa de mensagem, clique em OK .
  6. Para iniciar a execução do arquivo de áudio, clique em Executar . Ouvir a saída de áudio correspondente.

    Observação Você ouve saída de áudio somente se o computador tiver uma placa de som está configurada corretamente e se você usar alto-falantes, earphones ou fones de ouvido para ouvir a saída.
  7. Clique em Pausar ou Parar para controlar a saída de áudio do seu aplicativo.
back to the top

Solucionar problemas

  • Você ouve a saída de áudio somente se o computador tiver uma placa de som está configurada corretamente e se você usar alto-falantes, earphones ou fones de ouvido para ouvir a saída.
  • Você pode ouvir a saída de áudio antes de você clicar em Executar . Esse comportamento ocorre quando a propriedade AutoStart do seu Media Player não está definida como false . Por padrão, a propriedade AutoStart é definida como true . Para contornar esse problema, localize a seguinte linha na região de "Windows Form Designer gerou código":
    InitializeComponent()
    e, em seguida, adicione o código a seguir após o código que você ter localizado.
    ' Prevent the Media Player from automatically playing loaded files.AxMediaPlayer1.AutoStart = False
  • Quando você clicar em Parar e, em seguida, clique em Executar , o arquivo de áudio pode não iniciar reprodução desde o início. Em vez disso, o arquivo de áudio são iniciados tocando de onde o arquivo parou de execução. Esse comportamento ocorre quando a posição de reprodução não é redefinida para o início do arquivo de áudio. Para contornar esse problema, use o seguinte código no manipulador de eventos Button4_Click :
    AxMediaPlayer1.CurrentPosition = 0
  • Este exemplo não pode executar formatos de áudio que não são suportados pelo Windows Media Player.
back to the top
Referências
Para obter mais informações, visite os seguintes sites do Microsoft Developer Network (MSDN) da:back to the top

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 821767 - Última Revisão: 11/26/2007 07:02:04 - Revisão: 2.8

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbmt kbvs2005applies kbvs2005swept kbwaveaudio kbsdk kbcominterop kbcomctrls kbsound kbinterop kbappdev kbctrl kbcontrol kbprogramming kbsample kbhowtomaster KB821767 KbMtpt
Comentários