O controle de multimídia da Microsoft , ou MMControl , é uma ferramenta Visual Basic que reproduz arquivos de mídia. Você não vai encontrar MMControl para ser uma das ferramentas padrão na sua caixa de ferramentas , mas você pode adicioná-lo à sua lista de controles com a lista de componentes. Você pode adicionar MMControl para que você possa integrar arquivos de áudio ou vídeo para o seu projeto. No entanto, MMControl aceita apenas um arquivo de cada vez, por isso, se você quiser criar o seu próprio leitor de MP3 , você vai precisar usar um array para armazenar sua lista de faixas. Instruções
1

Abra um projeto Visual Basic. Clique em " Project" no menu e selecione "Componentes ". Desloque-se para "Microsoft Multimedia Control 6.0 ", e clique duas vezes nele para adicionar uma caixa de seleção para a seleção. Clique em " OK" para fechar a janela de componentes. Isso adiciona MMControl a sua caixa de ferramentas .
2

duplo clique na ferramenta MMControl na caixa de ferramentas para adicionar um a sua forma . Clique e arraste o controle para um ponto no formulário onde você precisar dele.
3

Abra a janela de código. Digite " Dim tracklist (4) As String " no topo . Isto irá criar uma matriz que vai realizar cinco faixas (numeradas de zero a quatro ) . Digite " Dim tracknumber As Integer " para criar uma variável de contador .
4

Abra a função " Form_Load () " . Digite " lista de faixas (0) = file_path " para carregar a sua primeira faixa em sua matriz, onde " file_path " é a localização real do seu arquivo MP3 em seu computador. Faça isso novamente para " faixa ( List (1) " para " lista de faixas (4). "
5 Tipo

" MMControl1.Command =" Open " " no " " função de Form_Load () para abrir o dispositivo quando o programa é iniciado. Type " tracknumber = 0" na linha seguinte e " MMControl1.FileName = tracklist ( tracknumber ) " na linha depois disso. Digite " MMControl.Command = " Play " na linha final na função .
6

Abra a função " Form_Unload " , e digite " MMControl.Command = " Fechar " " para parar o controle quando o programa termina.
7

Abra o . função " MMControl1_NextClick " Digite as seguintes linhas :

MMControl1.Command = "Parar "

Se tracknumber = 4 Então

tracknumber = 0

Else

tracknumber = tracknumber + 1

End If

MMControl1.FileName = list ( tracknumber )

MMControl1.Command = "Abrir"

MMControl1.Command = "Play"
8

Abra a função " MMControl1_PrevClick " Digite as seguintes linhas : .

MMControl1.Command = "Parar "

Se tracknumber = 0 Then

tracknumber = 4

Else

tracknumber = tracknumber - 1

End If

MMControl1.FileName = lista ( tracknumber )

MMControl1.Command = "Abrir "

MMControl1.Command = "Play"
9

Pressione " F5" para iniciar o seu programa e ouvir a seus MP3s .