:scooter: :gun_bandana: :batman: :yes: :yes: :yes: fıstık gibi olmuş keşke programıda koysaydın eskisini bırakıp onu kullanırdım

şu mcisendstring apisi kadar windows da çok yönlü işe yarayan bi api daha var mıdır ki bea Bu yönden yaklaşımın iyi Ben de winamp ın aynısını yapıyorum. Kodlarda bi farklılık yok desek yeridir ama bendeki tek fark winamp gibi listeleme şekilli oluyor + Bu kodları güncel kod bankasından almışsın. Ben de oradan almıştım Bi de söyleyeyim bu tür konuları programlar bölümüne açman lazım. Kurallara uymalısın Selametle... By

beyler ilk yaptıgım media player görüs ve önerilerinizi bekliyom... By

kanka al sana kaynak kod project componentten microsoft common dialog control ü ekleyin 4 command 1 tanede text kutusu ekleyin olduğu gibi forma yapıştırn Private Declare Function mciSendString Lib "winmm. dll" Alias "mciSendStringA" As Long Private Declare Function mciGetErrorString Lib "winmm. dll" Alias "mciGetErrorStringA" As Long Private Sub Command1_Click Dim Hata As Long Dim HataMesaji As String 128 'Mesajı gönderiyoruz Hata = mciSendString("open " & Chr$(34) & Text1. Text & Chr$(34) & " alias YeniSes", 0, 0, 0) 'Hata Mesajını Alıyoruz mciGetErrorString Hata, HataMesaji, 128 MsgBox HataMesaji End Sub Private Sub Command2_Click mciSendString "play YeniSes", 0, 0, 0 End Sub Private Sub Command3_Click mciSendString "close Yenises", 0, 0, 0 End Sub Private Sub Command4_Click On Error GoTo error With CommonDialog1. CancelError = True. DialogTitle = "Ses Dosyası aç_-_-_-_-Sunasoft Yazılım Bilgisayar-_-_-_-_" . Filter = "Şarkı Dosyaları ( . mp3) | . mp3; |Ses Dosyaları | . wav; |Midi Dosyaları | . mid" . InitDir = "c:\" . ShowOpen If Len = 0 Then Exit Sub Text1. Text = . FileName cmdPlay. SetFocus End With error: End Sub Private Sub Form_Load KöR

güzelmiş kaynak kodlarını koysaydın daha iyi olurdu KöR

al sana lın kanka .html

1903MuRaT eline sağlık inşallah diğer wersiyonu daha iyi olur..