mp3 ,müzikleri ve klipleri çalıştırmamızı sağlar..

[spectacuLar]

Kod: Tümünü seç

Private Sub Combo1_Change()
On Local Error Resume Next
File1.Pattern = Combo1.Text
End Sub

Private Sub Combo1_Click()
On Local Error Resume Next
File1.Pattern = Combo1.Text
End Sub

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

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

Private Sub File1_Click()
WindowsMediaPlayer1.URL = File1.FileName
End Sub

Private Sub Form_Load()
Combo1.AddItem "*.mp3;*.wma;*.cda"
Combo1.AddItem "*.avi;*.mpeg;*.mpg"
End Sub

[mayhemious]

hemen denedim :) saol