Source Mp3 player

[!!MaXDimaZ!!]

ane maw share VB cobaab gue nich Kang .
kali ini ane membuat mp3 player yang lmayan bagus lah gak kalah ama punya winnam bagusan ini max mp3:
komponennya siapin "

4 label : judul,artis,album,tahun
4 text
2 button : cari file, stop
1 MMControl1
dan 1 list

preview nya nich :

trus ini source nya

Code:

Option Explicit
Private Type taginfo
    tag As String * 3
    songname As String * 30
    artis As String * 30
    album As String * 30
    years As String * 4
End Type
   
Dim filename As String
Dim currenttag As taginfo


Private Sub Command1_Click()

CommonDialog1.Filter = "MP3 File |*mp3 |All files|**"
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.filename
filename = CommonDialog1.filename
On Error Resume Next
Open filename For Binary As #1
With currenttag
Get #1, FileLen(filename) - 127, .tag
If Not .tag = "TAG" Then
    Label5.Caption = "No Information"
    Close #1
    Exit Sub
        End If
        Get #1, , .songname
        Get #1, , .artis
        Get #1, , .album
        Get #1, , .years
        Close #1
        Text1 = RTrim(.songname)
        Text2 = RTrim(.artis)
        Text3 = RTrim(.album)
        Text4 = RTrim(.years)
        Label5 = RTrim(.songname)
           Label7 = RTrim(.artis)
        End With
MMControl1.Command = "close"
MMControl1.filename = CommonDialog1.filename
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub


Private Sub Command2_Click()
MMControl1.Command = "close"
End Sub



Private Sub List1_DblClick()
MMControl1.Command = "close"
filename = List1
On Error Resume Next
Open filename For Binary As #1
With currenttag
Get #1, FileLen(filename) - 127, .tag
If Not .tag = "TAG" Then
    Label5.Caption = "No Informasi"
    Close #1
    Exit Sub
        End If
        Get #1, , .songname
        Get #1, , .artis
        Get #1, , .album
        Get #1, , .years
        Close #1
        Text1 = RTrim(.songname)
        Text2 = RTrim(.artis)
        Text3 = RTrim(.album)
        Text4 = RTrim(.years)
        Label5 = RTrim(.songname)
           Label7 = RTrim(.artis)
        End With

MMControl1.filename = List1
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

jangan lupa creditnya  >:( >:(
dah ane cuma mw minta DAWEN aja HAUS kang , ,, kasih ane dawet ,

[blo_b1]

walah ini keren kang,
kang boleh tnya kang??
yng history nya itu di buat judul langunya bisa g??

oke laahh tag kasih dawet kang

[!!MaXDimaZ!!]

 :D bisa sich kang , ,, tapi jika di klik malah kagak bisa ngeplay lagu lo  :'( :'( wah tolong laennya bisa nyempurnakan. makasih dawetnya tapi yang ngasih ane gamping kurang ajar  ,,,  ;D ;D .
yang bisa buat seking bar tolong dong di post dini ,,,

[blo_b1]

gini aja kang, project akang aja attach ke post, nti kan bisa di bantu temen" yang lain
Seking ketok e angel kang, tapi aku ya gung tw e kang

[!!MaXDimaZ!!]

ok dech we share aja nich mp3gue lengkap silahkan donlo kang n tolong di tampahi plugin" yaw sempurnakan http://www.indowebster.com/VBmp3.html