bagaimana cara buat media player classic

1. siapkan vb portable versi 6.0 (download) klik "Visual Basic 6 Portable.exe" tinggal klik "run vb6"
   
2. klik yg ditandai 
3. pada form1 buat: 2Listbox (pada list2 tepatnya dibelakang list1),1CommandButton,1mediaplayer (ctrl+t>browse...>ketik:'msdxm.ocx' pada 'file name'>open)
4. pada form2 buat: 2CommandButton,1filelistbox,1drivelistbox,1dirlistbox
5. edit ketikan berikut

 

form	properties	setting	nama
1	Form1	caption	Media player
	Command1	caption	add
	Command2	caption	del
2	Form2	caption	Add…
	Command1	caption	+
	Command2	caption	x
	File1	pattern	*.mp3;*.mp4;*.flv;*.wmp

• pada form1 ketik:

Private Sub Command2_Click()
List1.Clear
MediaPlayer1.Stop
End Sub

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub

Private Sub List1_DblClick()
MediaPlayer1.Open List2
End Sub

• pada form2 ketik:

Private Sub Command1_Click()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "\" & File1
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

Private Sub File1_DblClick()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "\" & File1
End Sub

( yang text berwarna "merah" bisa mengklik tanda pada gambar dibawah ini)

tekan F5 untuk run
download (klik ctrl+5 untuk download)