Cara Memasang Mp3 di VB.NET

  Pasti agan agan semua kalo lagi mengerjakan sesuatu di laptop/komputer sering menyetel musik favorit  dengan winamp maupun software yang lainnya. Dan sekarang ane mau share ilmu membuat software pemutar musik mengunakan Visual Studio 2008. Langsung aja , buka software Microsoft Visual studio 2008  . pilih File > New Project > windows Forms Application dan beri nama kolom name dibawah dengan nama mp3playerku (judul yang anda inginkan)> OK .

      > Atur Propertirs Form1

 

BackColor	DimGray
FormBorderStyle	FixedSingel
MaximumBox	False
Text	Mp3PlayerKu

  

 Komponen yang digunakan pada program ini yaitu:

-          MenuStrip

-          ListBox

-          GroupBox

-          Dan Window Media Player

Untuk menambah komponen Window Media Player klik kanan pada  general > Choose Items seperti gambar dibawah ini :

Pilih Tab  COM Components dan check list Shockwave Flash Object , winsow media Player kemudia OK. Maka componet di dalam General Bertambah . Grag Windows Media Player ke dalam Form1.

Susun komponen komponen ke dalam Form1 seperti dibawah ini :

-          Di bawah Public Class Form1 masukan code dibawah ini :

Dim openFile As New OpenFileDialog

-          Doubel Click ListBox1 dan Masukan Code di Bawah  ini :

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

  Atur Properties GroupBox1

BackColor	DimGray
ForeColor	ControlLightLigh
Text	Mp3 aku

Klik MenuStrip1 dan ubahlah Text di Properties dengan nama “Type Here” dan buat menu seperti gambar dibawah ini :

-          Properties pada Menu item Open

ShortcutKeys

Ctrl + O

Doubel Click Menu Item File > Open dan masukan kode di bawah ini :

openFile.Filter = "Audio Files (*.mp3;*.wma;*.acc;*.wav;*.snd;*.sif;*.midi)|*. mp3;*.wma;*.acc;*.wav;*.snd;*.sif;*.midi"         openFile.Multiselect = True         openFile.FileName = ""         openFile.ShowDialog()         If Windows.Forms.DialogResult.Yes Then             For Each str As String In openFile.FileNames                 ListBox1.Items.Add(str)             Next         End If         Dim i As Integer         i = ListBox1.Items.Count - 1         If i > 0 Then             AxWindowsMediaPlayer1.URL = (ListBox1.Items(0).ToString)         End If

Double Click Menu Item File > Close dan masukan kode di bawah ini :

Application.Exit()

Tekan Debug > Build mp3playerku(f5) untuk mejalankan program dan save ,Dan sekarang agan sudah selesai membuat mp3 player untuk windows di komputer agan .
klik menu file>pilih "open" (ambil lagu yang ingin anda pasang)lalu tekan tombol auto play pada windows media player.
 file berada di bin > Release. GBUJ