Como Fazer Media Player Usando o Visual Basic.Net
neste tutorial, vou ensinar a você Como criar uma personalizar o Reprodutor de Mídia que é capaz de reproduzir sons,Vídeos e visualização de imagens em formato diferente. Então vamos começar. Mas como o Media Player não existe na parte componente do toolbox, precisamos adicionar o Windows Media Player à caixa de ferramentas. Para fazer isso, basta seguir os passos indicados.
- vá para a caixa de ferramentas e clique com o botão direito do mouse
- em seguida, selecione Escolher itens e a caixa de diálogo Personalizar caixa de ferramentas será aberta.
- e selecione Windows Media Player nos componentes com.
- em seguida, clique em ” OK ”
- e, finalmente, o Controle do Windows Media Player aparecerá na guia atual.
após este processo, podemos adicionar Agora O Windows Media Player ao nosso formulário e o nome padrão deste controle é “AxWindowsMediaPlayer1”. Então você está livre para mudar o nome deste objeto com base no que você deseja, por exemplo, você nomeá-lo como “WMPlayer” para que possa ser mais fácil de ler e lembrar.
o próximo processo é que vamos adicionar outros controles ao nosso formulário, como Listbox, FolderBrowserDialog, MenuStrip e StatusStrip.
Plano de objetos e Propriedades
Objeto |
Propriedade |
Definições |
| Form1 | Nome | mainFrm |
| Texto | Leitor Multimédia Pessoal | |
| StartPosition | CenterScreen | |
| Caixadecontrole | False | |
| AxWindowsMediaPlayer1 | Nome | jogador |
| caixa de Listagem | Nome | Lista De |
| MenuStrip1 | Nome | MenuStrip1 |
| StatusStrip1 | Nome | StatusStrip1 |
| FolderBrowserDialog1 | Nome | FolderBrowserDialog1 |
No MenuStrip1 precisamos adicionar dois menus principais, tais Bibliotecas e Ler. As bibliotecas também tem sub-menus como música, Vídeos, Imagens e saída. E para o sub-menu Exibir é apenas Editor de Lista de reprodução. Isso deve parecer como mostrado abaixo.
e o design final é semelhante ao mostrado abaixo.
depois de projetar nossa interface de usuário, vamos continuar adicionando funcionalidades ao nosso programa. Primeiro passo Clique duas vezes no formulário principal ou o nomeamos em “mainFrm” para mudar nosso designer de visualização para o código de visualização. Em seguida, no mainFrm_Load adicione este código.
lista.Item.Limpar () ‘ limpar todo o conteúdo currect da lista
lista.Hide () ‘ ele vai esconder o no formulário principal
myPlayer.Width = 787 ‘ ele redimensionará a largura do myPlayer em 787
e Abaixo de nossa classe pública mainFrm adicione esta declaração de variável que manterá o caminho posterior de nossa pasta. E vai gostar disso.
Public Class mainFrm
Dim folderpath Como String
Depois de adicionar este código vamos criar um procedimento sub que estaremos usando para o nosso programa posteriormente.
Public Sub jokenresult ()
if list.Item.Contagem > 0 então
lista.Como baixar e instalar … Largura = 577
statresult.Texto = lista.Item.Contagem & “Itens”
Else
lista.Como baixar e instalar Minecraft.Largura = 787
terminar se
terminar Sub
em seguida, adicionaremos funcionalidade aos itens de um sub-menu em bibliotecas a música. Para fazer isso, basta clicar duas vezes no submenu Música. Em seguida, você será redirecionado para a visualização do código-fonte e adicionará este código para que ele agora pareça como mostrado abaixo.
Sub privado MusicToolStripMenuItem_Click (remetente ByVal como sistema.Objeto, ByVal e como sistema.EventArgs) Lida Com MusicToolStripMenuItem.Clique em
tente
‘ ele abrirá a caixa de diálogo da pasta onde você pode selecionar onde está a pasta específica da sua música
FolderBrowserDialog1.ShowDialog ()
Se Dialogresultar.OK então
‘ se for verdade que se você clicar em ok na caixa de diálogo da pasta, então
‘ele obterá o caminho selecionado da sua pasta e armazená-lo na variável di
Dim di Como novo IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ nesta linha de código, ele obterá todo o arquivo específico que possui o.extensão mp3 e armazená-lo em variável diar1
Dim diar1 como IO.Como baixar e instalar Minecraft no minecraft 1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.FileInfo
‘ e nesta linha ele irá reunir todas as informações com respeito ao fullpath e nomes de todos os arquivos e armazená-lo para a variável folderpath
folderpath = di.Nome completo.ToString
lista.Item.Clear()
‘ lista os nomes de todos os arquivos no diretório especificado
Para Cada dra Em diar1
Dim a as Integer = 0
‘ a = a + 1
lista.Item.Adicionar(dra)
Seguinte
‘ele vai chamar o procedimento jokenresult() para executar algumas ações
jokenresult()
End If
Catch ex Como Exceção
‘se ocorrerem erros, em seguida, o programa irá pegá-lo e enviá-lo de volta para o usuário.
MsgBox(ex.Mensagem, MsgBoxStyle.
End Try
End Sub
e este é o programa de execução de amostra que reproduz uma música selecionada.
e este é o programa de execução de amostra reproduzindo um filme selecionado.
E, finalmente, este é todo o código-fonte.
‘Descrição: Personal Media Player que permite ao usuário reproduzir Música,Vídeo e imagens, etc…
‘Autor: Joken Villanueva
‘Data de criação:Março de 23, 2011
‘Modificado Por:
Public Class mainFrm
Dim folderpath Como String
Private Sub MusicToolStripMenuItem_Click(ByVal sender as do Sistema.Objeto, ByVal e como sistema.EventArgs) Lida Com MusicToolStripMenuItem.Clique em
tente
‘ ele abrirá a caixa de diálogo da pasta onde você pode selecionar onde está a pasta específica da sua música
FolderBrowserDialog1.ShowDialog ()
Se Dialogresultar.OK então
‘ se for verdade que se você clicar em ok na caixa de diálogo da pasta, então
‘ele obterá o caminho selecionado da sua pasta e armazená-lo na variável di
Dim di Como novo IO.DirectoryInfo (FolderBrowserDialog1.SelectedPath)
‘ nesta linha de código, ele obterá todo o arquivo específico que possui o.extensão mp3 e armazená-lo em variável diar1
Dim diar1 como IO.Como baixar e instalar Minecraft no minecraft 1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.1.FileInfo
‘ e nesta linha ele irá reunir todas as informações com respeito ao fullpath e nomes de todos os arquivos e armazená-lo para a variável folderpath
folderpath = di.Nome completo.ToString
lista.Item.Clear()
‘ lista os nomes de todos os arquivos no diretório especificado
Para Cada dra Em diar1
Dim a as Integer = 0
‘ a = a + 1
lista.Item.Adicionar(dra)
Seguinte
‘ele vai chamar o procedimento jokenresult() para executar algumas ações
jokenresult()
End If
Catch ex Como Exceção
‘se ocorrerem erros, em seguida, o programa irá pegá-lo e enviá-lo de volta para o usuário.
MsgBox(ex.Mensagem, MsgBoxStyle.Informações)
fim tente
fim Sub
Público sub jokenresult ()
se Lista.Item.Contagem > 0 então
lista.Como baixar e instalar … Largura = 577
statresult.Texto = lista.Item.Contagem & “Itens”
Else
lista.Como baixar e instalar Minecraft.Largura = 787
fim se
fim Sub
privado sub list_SelectedIndexChanged(ByVal remetente como sistema.Objeto, ByVal e como sistema.EventArgs) lida com a lista.SelectedIndexChanged
‘o myPlayer reproduzirá ou exibirá algo da lista com base no item selecionado pelo Usuário
myPlayer.URL = folderpath & ” \ ” & lista.SelectedItem.ToString
End Sub
Private Sub VideosToolStripMenuItem_Click (remetente ByVal como sistema.Objeto, ByVal e como sistema.EventArgs) Lida Com VideosToolStripMenuItem.Clique Em
Try
FolderBrowserDialog1.ShowDialog ()
Se Dialogresultar.OK então
Dim di Como novo IO.DirectoryInfo (FolderBrowserDialog1.Como baixar e instalar Minecraft.FileInfo () = di.GetFiles(“*.* “)
Dim dra As IO.FileInfo
folderpath = di.Nome completo.ToString
lista.Item.Claro ()
Para cada dra em diar1
lista.Item.Adicionar(dra)
Seguinte
jokenresult()
End If
Catch ex Como Exceção
MsgBox(ex.Mensagem, MsgBoxStyle.Informações)
End Try
MsgBox(folderpath)
End Sub
Private Sub ImagesToolStripMenuItem_Click(ByVal sender como sistema.Objeto, ByVal e como sistema.EventArgs) Lida Com ImagesToolStripMenuItem.Clique Em
Try
FolderBrowserDialog1.ShowDialog ()
Se Dialogresultar.OK então
Dim di Como novo IO.DirectoryInfo (FolderBrowserDialog1.Como baixar e instalar Minecraft.FileInfo () = di.GetFiles(“*.jpg”)
Dim dra como IO.FileInfo
folderpath = di.Nome completo.ToString
lista.Item.Claro ()
Para cada dra em diar1
lista.Item.Adicionar(dra)
Seguinte
jokenresult()
End If
Catch ex Como Exceção
MsgBox(ex.Mensagem, MsgBoxStyle.Informações)
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(remetente ByVal como sistema.Objeto, ByVal e como sistema.EventArgs) Lida Com ExitToolStripMenuItem.Clique Em
Me.Fechar ()
End Sub
Private Sub PlaylistEditorToolStripMenuItem_click (remetente ByVal como sistema.Objeto, ByVal e como sistema.EventArgs) Lida Com PlaylistEditorToolStripMenuItem.Clique em
‘ nesta linha se o editor da lista de reprodução For clique, a lista será exibida no formulário.
If PlaylistEditorToolStripMenuItem.Verificado = verdadeiro então
lista.Como baixar e instalar … Largura = 577
Else
lista.Como baixar e instalar Minecraft.Largura = 787
fim se
fim Sub
privado Sub mainFrm_Load(ByVal remetente como sistema.Objeto, ByVal e como sistema.EventArgs) Lida Com MyBase.Carga
lista.Item.Limpar () ‘ limpar todo o conteúdo currect da lista
lista.Hide () ‘ ele vai esconder o no formulário principal
myPlayer.Largura = 787 ‘ ele redimensionará a largura do myPlayer em 787
End Sub
End Class