Listboxa sürükle bırak?

[Tankut SAZLI]

Selam...
Arkadaşlar aşağıdaki kodlarla Browsefolder komutu ile bir klasör içindekileri (yolu KlasorListesine,içindeki dosya isimlerini CalmaListesine)listeletiyorum.

Private Sub DosyaAc_Click()
On Error Resume Next
    Dim FileNames, Direccion As String
    Direccion = BrowseForFolder(Me.hwnd, "Klasör Seçiniz...")
    FileNames = Dir$(Direccion & "*.*")
    While Len(FileNames) > 0
        Select Case UCase(Right(FileNames, 3))
        Case "MP3", "MPG", "PEG", "DAT", "AVI"
            KlasorListesi.AddItem Direccion & FileNames
            CalmaListesi.AddItem FileNames
        End Select
        FileNames = Dir$
    Wend

End Sub

Sorum şu:
BrowseFolder komutu dışında (media Player mantığı ile) seçtiğimiz bir klasörü sürükleyip listbox a bıraktığımızda aynı işlemi nasıl yaptırabiliriz?

 

[Tankut SAZLI]

Biraz problem çıkardı ama,API yardımıyla sorunu çözdüm.
Teşekkür ederim.

 

[Levent Menteşoğlu]

Bu çözümü bizimle paylaşırmısınız.

 

[Tankut SAZLI]

Sayın Levent Bey;
Sorumu zaten dikkat ederseniz VB6 için sormuştum.Çünkü henüz excel VBA da henüz listbox ın DragMode olayını keşfedemedim.Fakat Excel-VBA üzerindeki çalışmalarım sürüyor.Çünkü Excel-VBA daki listbox ın böyle bir kullanımı yok(normalde),fakat sanırım bu sorunda api ile çözülebilir.Uğraşıyorum.
Ancak VB6 daki çözümü sunayım.Belki bu konuda sizin bir fikriniz olabilir:
Module kodları

Option Explicit

Type POINTAPI
  x As Long
  y As Long
End Type
Type MSG
  hWnd As Long
  message As Long
  wParam As Long
  lParam As Long
  time As Long
  pt As POINTAPI
End Type
Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd As Long, ByVal fAccept As Long)
Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop As Long)
Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long
Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As MSG, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Public Const PM_NOREMOVE = &H0
Public Const PM_NOYIELD = &H2
Public Const PM_REMOVE = &H1
Public Const WM_DROPFILES = &H233

Form Kodları:

Option Explicit
Private Sub cmdclear_Click()
KlasorListesi.Clear
End Sub

Private Sub cmdexit_Click()
End
End Sub
Private Sub Form_activate()
DragAcceptFiles frmmain.hWnd, True
Visible = True
WatchForFiles
End Sub
Public Sub WatchForFiles()
Dim FileDropMessage As MSG
Dim fileDropped     As Boolean
Dim hDrop           As Long
Dim filename        As String * 128
Dim numOfDroppedFiles As Long
Dim curFile         As Long
Dim ret As Long
Do
  If fileDropped Then
    hDrop = FileDropMessage.wParam
    numOfDroppedFiles = DragQueryFile(hDrop, True, filename, 127)
    For curFile = 1 To numOfDroppedFiles
      ret = DragQueryFile(hDrop, curFile - 1, filename, 127)
      KlasorListesi.AddItem filename
          Next curFile
Dim AnyString, MyStr
    Dim FileNames, Direccion As String
            If KlasorListesi.ListIndex <> KlasorListesi.ListCount - 1 Then
                    KlasorListesi.ListIndex = KlasorListesi.ListIndex + 1
                End If
    Direccion = KlasorListesi.Text
    FileNames = Dir$(Direccion & "\*.*")

    While Len(FileNames) > 0
        Select Case UCase(Right(FileNames, 3))
        Case "MP3", "MPG", "PEG", "DAT", "AVI"
            CalmaListesi.AddItem FileNames
        End Select
        FileNames = Dir$
    Wend

    DragFinish hDrop
  End If
  DoEvents
   Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

 

[Tankut SAZLI]

Galiba bişeler oldu.Alpi arkadaşımında yardımıyla sorun tamamen çözülmüştür.Yukarıda da belirttiğim gibi Excel-VBA da ListBox'ın Drag&Drop(sürükle-bırak) özelliği mevcut değil.Fakat sayın Alpi nin önerisi üzerine Listview kullanmaya karar verdik(buda bize şunu gösteriyor ki nesneleri ve özelliklerini iyi tanımamız gerekir).
Aşağıdaki çalışmada iki örnek göreceksiniz.



__________________
DİĞER ÇALIŞMALAR

MasaÜstü Sinema v1.0(VB6-Program)
MP3Player v2.0(VB6-Program)
ACCESS GÖRSEL EĞİTİM
ÖĞRENCİ TAKİP PROGRAMI(Excel ile Access VeriTabanı Uygulamas&#305
CPU Noya Göre Şifreleme
USERFORM GÖRÜNÜMLERİ
POPUP TAKVİM UYGULAMASI
LCD SAAT UYGULAMASI
XCelMedia v1.0
JakcPot v1.0(oyun)
Şanslı 7 Oyunu
KİMLİK SORGULAMA(web üzerinden)
LİSTVİEW UYGULAMASI
DRAG&DROP(SÜRÜKLE-BIRAK) UYGULAMASI
BİLDİRİM ALANINA MİNİMİZE(VB6)

 

[hamitcan]

Sayın Tankut SAZLI ve Sayın Alpi, böyle güzel ve değişik çalışmalar için teşekkürler.

 

[Levent Menteşoğlu]

Yukarıda da belirttiğim gibi Excel-VBA da ListBox'ın Drag&Drop(sürükle-bırak) özelliği mevcut değil.

Burada bir yanlışlığı düzeltelim. Listboxun bununla ilgili eventleri mevcuttur. (BeforeDragOver ve BeforeDropOrPaste) Konuyla ilgili bir örnek dosya eklerim.

 

[captan]

Çok güzel bir çalışma,
Teşekkürler . .

 

[Tankut SAZLI]

Teşekkür ederim(-iz).
Levent beyin düzeltmesi üzerine şunu söylemek isterim.Listbox'ın dra&drop özelliği derken properties ayarlarından kasdetmiştim.Ayrıca yanlışsam galiba yine düzeltmelisiniz,bahsettiğiniz BeforeDragOver ve BeforeDropOrPaste kombinasyonunun listboxta listelenen verilerinin yerlerini kaydırmak için ya da bir listboxtan diğerine satır aktarmak için olduğunu hatırladığımdan üzerinde fazlaca uğraşamadım.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Listbox1den fare ile tutacağınız bir veriyi listbox2 ye taşıyabilirsiniz.

Bu özellik properties olarak yok haklısınız (textbox ve comboboxlarda mevcut)

Listboxta ancak eventleri kullanarak sonuç elde etmek mümkün.

Not: Bu arada eklediğiniz dosyada benmi bir şeyi atlıyorum listview boş olarak çıkıyor. Yada kullanım şekli nasıl?

 

[Tankut SAZLI]

Levent Bey;
Örneği inceledim.Zaten benimde yukarıda bahsettiğim şeyde buydu,yani listboxın mevcut drag&drop eventleri sadece ya kendi içinde satırların yerini kaydırmak için yada bir listten diğerine veri taşımak için.Yalnız sanırım(yanlış anlamadımsa) sizin atladığınız(ve listviewin boş çıkması normal) şey ben bunu excel içindeki yada dışındaki herhangibir veriyi listeletmek için kullanmıyorum.
Buradaki kullanım şöyle aynı Windows Media Playerde olduğu gibi bir klasörü fare ile tutarak listview üzerine sürükleyi,Buradaki listeleme klasör içindeki dosyaların listenmesidir.Ha eğer yanlış anladım da zaten siz bunu yapmanıza rağmen listeleme olmuyorsa bazen ilk seferinde klasör bilgisini alamayabiliyor(ne yazıkki excel bu konuda bazen vb6 kadar tutarlı davranamayabiliyor),bir iki kez deneyin,ayrıca üstüste defalarca klasör ekleyebilirsiniz.

 

[Levent Menteşoğlu]

Tamam şimdi anladım açıklama için teşekkürler.

 

[Tankut SAZLI]

Ne demek Levent bey, vazifemiz.