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 sanggup 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 perihal cara Membuat Drag dan Drop File ke ListBox. Komponen yang dibutuhkan dalam pembuatan source code ini ialah sebagai berikut : 
1. ListBox
2. CommandButton
Buka Ms. Visual Basic 6.0 (VB6) – StandartEXE kemudian buat Form tambahkan beberapa komponen menyerupai diatas sehingga interface dari aplikasi ini menyerupai dibawah ini : 

Contoh Menciptakan Drag Dan Drop File Ke Listbox
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 dibentuk diawal tadi pilih mekanisme 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 menyerupai gambar dibawah ini : 

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