MyDesign | Kod Arivi - Anasayfaya Dn   No banner in farm
Anasayfa Aratr Forum Gelimi Arama Siteniz in En Hit erikler RSS erik Ekle Scriptler Destekleyenler Kadromuz Reklam letiim Giri Sayfas Yap  Sk Kullanlanlara Ekle
Bu Kategorinin En Yeni Kodlar:


Bu Kategorinin En ok Grntlenen Kodlar:






Arama:
Gelimi Arama


No banner in farm



En ok Grntlenen Kodlar:


ye Girii:
 ye Ol



Anasayfa > VB.Net > Kodlar

MP3 Çalar

DirectX9 bileşenleri ile beraber yüklü olması gerekmektedir eğer
bileşenleri yükleyemez iseniz ibisseref@hotmail.com'dan yardım isteyiniz

Kategori : VB.Net
Gnderen : seref
Telif :
Tarih : 13 Temmuz 2006
rnek Dosya : �ndir
Okunma Says : 23521
Puan
: 9,8 / 10 (21 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
Imports Microsoft.DirectX.AudioVideoPlayback



  'Bu programın çalışabilmesi için
    'References sağ tıklayıp Microsoft.DirectX.AudioVideoPlayback dahil edilmeli
    'Yardım için ibisseref@hotmail.com          www.vbkodindir.com
    Dim müzk As Audio
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim opfdlg As New OpenFileDialog
        opfdlg.Filter = "Mp3 dosyaları (*.mp3)|*.mp3"
        If opfdlg.ShowDialog = DialogResult.OK Then
            müzk = New Audio(opfdlg.FileName)
            müzk.Play()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        müzk.Stop()
    End Sub
 
 

MP3 Çalar iin yazlan yorumlar

ali pancar  { 03 Temmuz 2010 }
Form Penceresine Button1-buttoon2-openfiledalog1 ekleyin. sonra asagıdaki kodları yazın.


Imports Microsoft.DirectX.AudioVideoPlayback
Public Class Form1
Dim müzk As Audio
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim opfdlg As New OpenFileDialog
opfdlg.Filter = "Mp3 dosyaları (*.mp3)|*.mp3"
If opfdlg.ShowDialog = DialogResult.OK Then
müzk = New Audio(opfdlg.FileName)
müzk.Play()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
müzk.Stop()
End Sub
End Class
----
sonra Yukarda File-edit-viev gibi menüler var ordan Project i secin sonra Add Referance Diyin.

Karşınıza Bi Pencere Gelcek Ordan Microsoft.DirectX.AudioVideoPlayback i secin ok diyin HataLar gidicektir. Yapamayan arkadaşa tekrar yardım edebilirm ..

alipancar@live.com

Ali  { 03 Temmuz 2010 }
kardeş form penceresine button1-2 ve opnfle diyalog ekle

CaqrıHan   { 31 Mart 2010 }
Beyler Her seyi doqru bile yapmış olsanız Visual Basic de calıştırınca hata alırsınız.Kaydedip exe dosyasını calıştırın çalışacaktır.

mihrumah   { 24 Ocak 2010 }
kadeşlerim herşeyi devletten beklemeyinn birazda kendinizz deneyin yapmayı ben yaptım değişkanlerde ve kod yazım bölemünde hata vardı onu da hallattik

dadas   { 18 Aralık 2009 }
kardeş bu (opfdlg) hata veriyor dimlede tanımlamışsın ama yinede hata veriyor yanlışlık var bu kodlarda...

Talha   { 01 Kasım 2009 }
bu hata veriyor kodu çıkmıyor kardeş

İsmail   { 24 Ekim 2009 }
evet yha Hata Verio Nedennn..!

yasin   { 20 Nisan 2009 }
kardeşş bu bazı yerlerde hata verio bilen varsa açılasın deneyen varsa yanii

Yorum ekleyin

Anasayfa > VB.Net > Kodlar > MP3 Çalar
Kategoriler:


Forum:



Balantlar:



    En Son Yorumlanan erikler:


    Murat Yavuz | Site Haritas | Gizlilik Bildirimi | 3.83.188.254 | 0,12 Saniye
    © Copyright 2004-2020 MyDesign | Kod Arivi. Tm Haklar Sakldr.
    MyDesign | Kod Arivi, en iyi grnm iin, 1024x768 ve zeri znrlk tavsiye eder.