Contoh Multiselect Commondialog Control Memakai Vb6

9 views
Sering kita dihadapkan dengan situasi pada ketika kita open file akan tampila jendela obrolan control open file, akan terlihat sangat menjengkelkan jikalau jalan masuk file hanya sanggup open file 1 file saja, padahal kita memerlukan menampilkan beberapa file menyerupai pola gambar dibawah ini

Pada kesempatan posting artikel kali ini admin akan membahas multiselect pada komponen CommonDialog Control memakai Visual Basic 6.0 (VB6). Langsung saja buka Microsoft Visual Basic 6.0 – StandartExe – Form1 dan tambahkan componen CommonDialog Control, 2 buah ListBox, CommondButton dan Label menyerupai dibawah ini
Pada CommandButton Cari File double klik dan copikan syntak dibawah ini
On Error GoTo ErrHandler
Dim vFiles As Variant
Dim lFile As Long

With CommonDialog1
    .FileName = “”
    .CancelError = True
    .DialogTitle = “Pilih File”
    .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
    .Filter = “All files (*.*)|*.*”
    .ShowOpen
    vFiles = Split(.FileName, Chr(0))
    If UBound(vFiles) = 0 Then
        List1.AddItem .FileName
        List2.AddItem .FileTitle
    Else
        For lFile = 1 To UBound(vFiles)
            List1.AddItem vFiles(0) + “\” & vFiles(lFile)
            List2.AddItem vFiles(lFile)
        Next
    End If
End With

Exit Sub
ErrHandler:
If Err <> cdlCancel Then
    MsgBox Err.Description
End If

Simpan lalu RUN/F5, klik CommandButton Cari File pilihlah beberapa file menggungkan SHIFT atau CTRL pada keyboard sesudah itu klik Open. Maka file dan path yang anda pilih tampil pada ListBox menyerupai gambar dibawah ini
Bagi yang berminat untuk mendownload sourcode ini silahkan klik pada LINK INI dan agar artikel Contoh Multiselect CommonDialog Control Menggunakan VB6 sanggup bermanfaat
Author: 
    author
    No related post!