Contoh Membuat Drag dan Drop File ke ListBox

Drag File dan Drop File merupakan sebuah fungsi yang terdapat disetiap bahasa pemrograman baik itu Visual Basic 6.0 (VB6) dan yang lainnya. Drag File dan Drop File dapat diartikan dimana kita berada pada posisi mengklik dan tahan beberapa file kemudian ditarik atau diarahkan ke tujuan yang kita kehendaki. Pada posting artikel kali ini admin akan membagikan sebuah source code tentang cara Membuat Drag dan Drop File ke ListBox. Komponen yang diperlukan dalam pembuatan source code ini adalah sebagai berikut : 

1. ListBox

2. CommandButton

Buka Ms. Visual Basic 6.0 (VB6) - StandartEXE lalu buat Form tambahkan beberapa komponen seperti diatas sehingga interface dari aplikasi ini seperti dibawah ini : 

LINK DOWNLOAD

Contoh Membuat Drag dan Drop File ke ListBox

Tambahkan juga sebuah Module dan copas syntac dibawah ini : 

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

Sub Main()
    Form1.Show
    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

    Do
        fileDropped = PeekMessage(FileDropMessage, 0, WM_DROPFILES, WM_DROPFILES, PM_REMOVE Or PM_NOYIELD)
       
        If fileDropped Then
            hDrop = FileDropMessage.wParam
           
            numOfDroppedFiles = DragQueryFile(hDrop, True, filename, 127)
            For curFile = 1 To numOfDroppedFiles
                ret% = DragQueryFile(hDrop, curFile - 1, filename, 127)
               
                Form1.lblNumDropped.Caption = LTrim$(Str$(numOfDroppedFiles))
                Form1.List1.AddItem filename
            Next curFile
           
            DragFinish (hDrop)
        End If
        DoEvents
    Loop
End Sub

Kemudian double klik pada form yang telah dibuat diawal tadi pilih prosedur Form_Load dan copas syntak ini 

lblNumDropped.Caption = "0"
DragAcceptFiles Form1.hWnd, True

Berikutnya untuk Button dengan Caption "Clear" double klik dan copas sytanknya dibawah ini

    lblNumDropped.Caption = "0"
    List1.Clear

Simpan dan Run/F5. Sekarang coba klik dan tahan  jangan dilepas suatu file arahkan ke ListBox secara otomatis beberapa file yang kita drag dan arahkan ke listbox akan masuk ke List seperti gambar dibawah ini : 

 

Bagi yang berminat untuk mendownloadnya, dipersilahkan untuk mengklik link download yang telah admin sediakan diatas, semoga pembahasan artikel Contoh Membuat Drag dan Drop File ke ListBox dapat bermanfaat.