VB.NET , a última versão do Visual Basic, tem uma classe SoundPlayer que dá a sua aplicação VB a capacidade de reproduzir áudio. Infelizmente , esta classe apenas produz um som ao mesmo tempo . Se o seu programa precisa tocar vários sons ou efeitos sonoros , ao mesmo tempo , você não pode usar a classe SoundPlayer como sua fonte de áudio . Usando um truque COM simples , no entanto , você pode adicionar vários invisível Windows Media Player controla a sua aplicação que jogar como muitos sons simultâneos como quiser. . Instruções
1
Abra o Microsoft Visual Studio, clique em "Arquivo " e clique em "New". Clique em " Projeto ", e , em seguida, clique em " Visual Basic" para realçá-lo . Clique duas vezes para criar um novo projeto VB.NET "Windows Forms Application " . O arquivo com o nome " Form1.vb " aparece no Solution Explorer. A forma em si aparece na janela de design à esquerda do Solution Explorer.
2
Clique no botão "Exibir" e clique em " caixa de ferramentas " para abrir caixa de ferramentas do Visual Studio. O botão direito do mouse em qualquer lugar na caixa de ferramentas , clique em " Adicionar itens " para abrir a janela " Choose Toolbox Items " .
3
Clique em " Componentes COM, " e clique no "Windows Media Player "checkbox para colocar uma marca de verificação lá. Clique em "OK ", e Visual Studio adiciona um novo controle "Windows Media Player " para a caixa de ferramentas .
4
Clique duas vezes em que o controle para adicioná-lo ao seu formulário. Botão direito do mouse o controle que você adicionou ao formulário, clique em " Copiar". Botão direito do mouse em um espaço vazio no formulário e clique em " Colar". Visual Studio coloca uma cópia do controle de Windows Media Player no formulário.
5
Clique duas vezes na barra de título do formulário. A janela de código é aberto e exibe o seguinte método:
Sub Form1_Load Privada (sender System.Object , ByVal e As System.EventArgs ) Handles MyBase.Load
End Sub
Este método é executado quando o formulário é carregado
6
Adicione o seguinte código antes do método de declaração "Sub End" : .
Me.AxWindowsMediaPlayer1.Visible = False
Me.AxWindowsMediaPlayer2.Visible = False
Dim SOUND1 As String Dim
SOUND2 As String
SOUND1 = " mySound1.wav "
SOUND2 = " mySound2.wav "
Me.AxWindowsMediaPlayer1.URL = SOUND1
Me.AxWindowsMediaPlayer2.URL = SOUND2
as duas primeiras demonstrações esconder controla os dois Windows Media Player no formulário. Os próximos quatro declarações definir " SOUND1 " e variáveis " Sound2 " . Estes prendem os locais de seus arquivos de som . Substituir " mySound1.wav " e " mySound2.wav " com os nomes de caminho de dois arquivos de áudio no seu disco rígido. As duas declarações finais definir as propriedades de URL dos dois controles para os valores armazenados no SOUND1 e SOUND2 . Isso faz com que os players de mídia para reproduzir os respectivos sons ao mesmo tempo .
7
Pressione " F5" para executar o projeto . O formulário aparece e os dois sons jogar simultaneamente .
