Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » List box'a sürükle bırak yöntemini kullanarak sadece ses dosyaları eklemek
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

ASP.NET nedir?

Yazar: anonyous
Bu makalede ASP.NET′in tanımı yapılmış, ardından .Net′in ne olduğu ve ASP.NET′in özellikleri anlatılmıştır.



Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 8809
Yayın Tar:19.05.2007
Yazar : hakan1525
Hit :2504

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

'Bu makalenin çok ilginç bir hikayesi var radyomuzun bilgisayarı bozuldu bizde winxp yükledik ve büyük sorun radyo otomasyon programı sorun yarattı programı kendimiz yapmaya karar verdik vee başladık her şey tamam ama sürükle bırak olayıyla müzik atamadık başladım sağdan soldan aramaya ve hiç bişi bulamadım daha sonra burdan bi kaç açıklama okuduktan ve biraz uğraştıktan sonra meseleyi halletim ve sizde eziyet çekmeyin diye sizinle paylaşmaya karar verdim

'İlk önce projenize bir adet listbox ekleyin (list1)
'OLEDropMode özelliğini 1 yapın
'###########################################
'1 adet Modüle ekleyin ve aşağıdaki kodları Modüleye ekleyin

Public Function UzAl(Filename As String)
Dim PthPos, ExtPos As Integer
For i = Len(Filename) 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(Filename) 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(Filename) - ExtPos) 'Messagebox the Extension
End If
End Function
###########################################
'formunuzun general declarations kısmına aşağıdaki kodu yapıştırın

Private sFilePath As String
Private sFileName As String
###########################################
aşağıdaki kodları listbox unuzun OLEDragDrop yordamına yapıştırın

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
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
uz = UzAl(TasnamTM)

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 TasnamTM
End If
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Else
Dim i As Integer
i = 1
Do While i <> Data.Files.Count + 1
sFilePath = Data.Files(i)
FileAndPath sFilePath, sFileName
TasnamTM = sFilePath & "/" & sFileName
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
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 TasnamTM
End If
'^^^^^^^^
i = i + 1
Loop
##########################
've bitti ilginiz içIn teşekkürler##




Yorumlar, eklemeler ve düşünceler
        Birincisi teşekkürler çok ii bir araştırma araştırma diyorum çünkü kopyala yapıştır olduğu açık açık ortada
zahmet edip tamamen türkçeleştirseydin daha ii olurdu yinede emeğine sağlık

   apoyirmi6, 08.08.2007 09:35
   dostum çok az bir kısmını japonca bir siteden aldım türkçeleştirme gereğide pek duymadım

   hakan1525, 22.12.2007 12:45
   güzellllllll

   onerkerim, 09.03.2008 23:30
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin