Kod: CommonDialog1. DialogTitle = "Medya Dosyaları Aç" CommonDialog1. Filter = "Müzik Dosyaları (mp3, wav, wma)| . mp3; . wav; . wma|Video Dosyaları | . avi; . mpg; . wmv" CommonDialog1. FileName = "" CommonDialog1. Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer CommonDialog1. ShowOpen Text2. Text = CommonDialog1. FileName Bir türlü list e seçtiklerimi ekletemedim. Bu şekil olursa multi seçenek oluyo fakat çoklu seçtiğim zaman sadece o müziğin klasör adını veriyor texte. Bilmiyorum artık bi çözüm yolu bulana kadar devam artık Not: Kodların sıralaması önemlidir. Multi seçeneği sunan CommonDialog1. Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer dur.

guzel paylasım.

Güzel dostum eline sağlık... Dosya yolu yerine gözat butonu koyarsan daha fazla tatmin edicektir kullanıcıyı...

verdiği kod güzel ama kodun bir sorunu var gözat butonuna basıl filelistbox ı doldurup tekrar gözat butonuna basınca sayfa yenileniyor ve o anki müzik baştan başlıyor bu olası birşey mi yoksa çözümü varmı. ayrıca mbk_kbm winamp ta baktın sa klasör seçtiriyor dikkatini çekerim klasör seçmek gerekmez değil bence en pratik ve en iyisidir.

Media Playerın repeatını açarsın he aynısı çalar Ama sırayla çalması için wmp listesi olması lazım Yani filelist ile olmaz

Sadece text e dosya yolunu gösterme ve media player ın çalşması bana aittir. Zaten bilgi öğrenilmese kim ne yapabilir. Proje: .html Kod: Kod: Private Sub Command1_Click WindowsMediaPlayer1. URL = Text1. Text End Sub Private Sub Dir1_Change File1. FileName = Dir1. Path Text1. Text = Dir1. Path End Sub Private Sub Drive1_Change On Error GoTo NoDisk NoDisk: If Err. Number = "68" Then ooo = MsgBox Else Dir1. Path = Drive1. Drive Text1. Text = Drive1. Drive End If End Sub Private Sub File1_Click FileName = File1. Path If Right$(FileName, 1) <> "\" Then FileName = FileName & "\" FileName = FileName & File1. FileName Text1. Text = FileName End Sub Bir Teşekkür Bilgisayarınıza Zarar Vermez -

ve bir yenilik daha Klasör seçme bunu yapmak için form1 de 2 listbox 2 filelistbox form2 de 1 DriveListBox 1 DirListBox 1 de FileListBox 2 Buton Kod: Dim a As Long Dim b As String If File1. ListCount = "0" Then Exit Sub: MsgBox "No files" For a& = 0 To File1. ListCount - 1 Form1. List1. AddItem File1. List Form1. List2. AddItem Dir1. Path & "\" & File1. List Next a Unload Me End Sub Private Sub Command2_Click Form2. Hide End Sub Private Sub Dir1_Change File1. FileName = Dir1. Path End Sub Private Sub Drive1_Change On Error GoTo Diskyok Diskyok: If Err. Number = "68" Then a = MsgBox Else Dir1. Path = Drive1. Drive End If End Sub -

klasör seçmesin demiyorum. mesela bir klasörden 3 şarkıyı seçip diğer 5 şarkıyı seçmemesi gerektiği zaman işe yaramaz. ama benim verdiğim örnekte ne kadar seçersen o kadarı listeye eklenir. winapta da bu şekilde add folder ayrı, add file ayrı. add file kısmı benim verdiğim örnekteki gibi.

Bende bunun bir örneği vardı saolsun bir arkadaş vermişti zamanında... Malzemeler; Windows Media Player = WM Filepath = Mp3Yol Common dialog = CD Kod: Option Explicit Private Sub Form_Load CD. ShowOpen CD. FileName = Mid(CD. FileName, 1, Len - Len Mp3Yol. Path = CD. FileName WM. URL = Mp3Yol. Path & "\" & CD. FileTitle End Sub Private Sub Mp3Yol_DblClick WM. URL = Mp3Yol. Path & "\" & Mp3Yol End Sub Bu kodlarda ilk başta senden bir tane mp3 seçmeni ister. Sonra mp3 ün bulunduğu konumdaki bütün mp3 leri filelist'e koyar ve sende filelist te istediin dosyaya 2 kere tıklayarak istediin dosyayı açabilirsin. Fakat yukardaki kodlarda kırmızı olanlar yerine; Kod: Private Sub mnGözat_Click CD. Action = 1 Mp3Yol. Path = Mid(CD. FileName, 1, Len - Len WM. URL = CD. FileName End Sub Bu kodları yazarsan programı açtığın gibi gözat çıkmaz karşına... Gözatı menu olarak atamış olursun ve istediğin zaman çıkar... -

Evet 2. kez basarsan 1. ye ne yaptıysa 2. kezde onu tekrarlar dostum. Değişiklik yapmadığın sürece programa ne yap dersen onu yapar zaten... Çözüm bulunabilir bir şekilde tabiki... Mesela 2 tane filelistbox koyarsın kullanıcı bunu görmez 1 tane olarak görür. Gözata 1. kez tıkladığında 1. si dolar 2. kez tıkladığında 2. ye yönelir vs... Yada mevcut listeyi 2. tıklamada sabit tutarsın ama onu nasıl yapıcaz bilemiyorum Ayrıca mbk_kbm arkadaşımızın verdiği kodlar dediği gibi add file sekmesi benim vermiş olduklarım ise add folder görevi görür yani ikisinide mevcut tutarsan daha güzel olur Aslında daha profesyonel bir şeklide sürükle bırak ile klasör içersindeki mevcut şarkıların listeye eklenmesi olayı olur... Ama bu biraz zor olabilir tabi -

eğer üzerinde duruyor ve geliştirmek istiyorsan Kod: If Command$ <> "" Then MsgBox Command$ bu kod herhangi bir dosyaya tıklanarak bu yazılımla birlikte aç denmiş ise o dosyanın yolunu verir. buda media player için önemlidir. ve daha güzel bir kod dragdrop ekte örneği var herhangi bir dosyayı sürükleyip listeye bırakabilirsin. bir tane listbox eklemeniz ve properties ten OLEdramode=1 automatik OLEdropmode=1 manuel yapmadız gerekir. modül Kod: Private sFilePath As String Private sFileName As String Public Function UzAl Dim i, j Dim PthPos, ExtPos As Integer For i = Len To 1 Step -1 ' Go from the Length of the filename, To the first character by 1. If Mid(Filename, i, 1) = "." Then ' If the current position Is '.' Then... ExtPos = i ' ... Change the ExtPos To the number. For j = Len To 1 Step -1 ' Do the Same... If Mid(Filename, j, 1) = "/" Then ' ... but For '/'. PthPos = j ' Change the PthPos To the number. Exit For ' Since we found it, don't search any more. End If Next j Exit For ' Since we found it, don't search any more. End If Next i If PthPos > ExtPos Then Exit Function ' No extension. Else If ExtPos = 0 Then Exit Function ' If there Is Not extension, Then Exit Sub. UzAl = Mid(Filename, ExtPos + 1, Len - ExtPos) 'Messagebox the Extension End If End Function form Kod: Private Sub List1_OLEDragDrop On Error Resume Next Dim TasnamTM As String Dim uz As String If Data. Files. Count = 1 Then sFilePath = Data. Files(1) 'FileAndPath sFilePath, sFileName TasnamTM = sFilePath & "/" & sFileName a = Len TasnamTM = Left(TasnamTM, a - 1) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ uz = UzAl If uz = "mpg" Or uz = "m1v" Or uz = "mp2" Or uz = "mpa" Or uz = "mpe" Or uz = "dvr-ms" Or uz = "Mid" Or uz = "rmi" Or uz = "midi" Or uz = "asf" Or uz = "wm" Or uz = "wma" Or uz = "wmv" Or uz = "wmd" Or uz = "wav" Or uz = "snd" Or uz = "au" Or uz = "aif" Or uz = "aifc" Or uz = "aiff" Or uz = "wma" Or uz = "mp3" Or uz = "avi" Or uz = "wmv" Then List1. AddItem Right(Mid(TasnamTM, 2, Len - 1), InStr(1, StrReverse(Mid(TasnamTM, 2, Len - 1)), "\") - 1) End If '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Else Dim i As Integer i = 1 Do While i <> Data. Files. Count + 1 sFilePath = Data. Files 'FileAndPath sFilePath, sFileName TasnamTM = sFilePath & "/" & sFileName a = Len TasnamTM = Left(TasnamTM, a - 1) '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ If uz = "mpg" Or uz = "m1v" Or uz = "mp2" Or uz = "mpa" Or uz = "mpe" Or uz = "dvr-ms" Or uz = "Mid" Or uz = "rmi" Or uz = "midi" Or uz = "asf" Or uz = "wm" Or uz = "wma" Or uz = "wmv" Or uz = "wmd" Or uz = "wav" Or uz = "snd" Or uz = "au" Or uz = "aif" Or uz = "aifc" Or uz = "aiff" Or uz = "wma" Or uz = "mp3" Or uz = "avi" Or uz = "wmv" Then List1. AddItem Right(Mid(TasnamTM, 2, Len - 1), InStr(1, StrReverse(Mid(TasnamTM, 2, Len - 1)), "\") - 1) End If '^^^^^^^^ i = i + 1 Loop End If 'List1. AddItem TasnamTM List2. AddItem TasnamTM End

mediaplayer eklentisiyle yapmak çok

bugün bir tane playListli player yapıp paylaşırım örnek olur

Gözat butonu olmasını isteyenler components ten common dialog ekleyip Kod: CommonDialog1. DialogTitle = "Müzik Dosyaları Aç" CommonDialog1. Filter = "Mpeg1 Layer3 (MP3 Player)| . mp3" CommonDialog1. ShowOpen Text1. Text = CommonDialog1. FileName Pek bu işlerden anlamadığım için bununla yetinebilirim şuan lık sadece tek bir müzik çağırabiliyorum eğer bilen varsa daha da geliştirebilir. Şöyleki ctrl tuşunu kullanarak mouse ile tek tek seçebiliriz normal de ama bun da sadece bir müzik açıyor diyeyim.

Ve bir seçenek daha ekliyorum Kod: Dim file As String CommonDialog1. DialogTitle = "Medya Dosyaları Aç" CommonDialog1. Filter = "Müzik Dosyaları (mp3, wav, wma)| . mp3; . wav; . wma|Video Dosyaları | . avi; . mpg; . wmv" CommonDialog1. FileName = "" CommonDialog1. Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer CommonDialog1. ShowOpen File1 = CommonDialog1. FileName List1. AddItem File1 Text1. Text = CommonDialog1. FileName bir de filelistbox ekleyelim Bu kodla beraber şöyle oluyor. Tek bi dosya seçersek normal geliyor listbox ta bir müzik text te bir müzik filelistbox ta bir müzik. Eğer birden fazla dosya seçersek listbox ve text te klasör adı yazıyor filelistbox ta da o klasördeki bütün müzikler geliyor bitürlü olmadı gitti. Ha tabi bide şu soru var tamam bu list e müzikleri ekledim diyelim bu sefer de sırayla çalmıyor sen seçmen gerekiyor buda bi sorun tabi.

başlangıç için güzel bir proje geliştirilirse ve vakit harcanırsa mediaplayer için iyi bir arayüz olabilir. verdiğin kodlar güzel ama seçilenleri değilde klasörü tamamen eklemesi istenen birşey değil. ekteki dosyada güzel bir örnek var.

hım paylaşımlar gerçekten güzel arkadaşlar ben bide şeyi merak ediyorum genelde keygenlerde olur programı açtığımızda müzik çalmaya başlar onun gibi bişey yapmak istyorum media player ekleyerek dosyanın yolunu felan belirttim ama yapamadım sanırım bi yerde hata yaptım kod vercek veya anlatıcak biri var mı şimdiden teşekkürler

arkadaşlar bende şey istiyorum acaba mümkünmü mesala bir program yaptım arkada müzik çalmasını istiyorum sadece tek 1 tane ve sürekli aynı müziği çalıcak başlat düğmesi durdur düğmesi ve ses kapat düğmesi olucak acaba olabilirmi.)