PERHATIAN

Password semua file download:
"softbimantoro"

Rabu, 16 November 2011

Membuat Browse Folder

Posted by b_agoy 18.17, under , | No comments


Dalam membuat suatu aplikasi kadang kita memerlukan fungsi browse dialog. Nah, untuk membuat browse folder silahkan ikuti caranya sbb:

VB 6.0
Pada project anda, tambahkan Reference 'Microsoft Shell Controls And Automation' dan untuk memanggilnya ketik kode berikut:
Dim sh As New Shell
Dim fo As Shell32.Folder

On Error GoTo Ero
Set fo = sh.BrowseForFolder(Me.hWnd, "Pilih Folder", 0)
MsgBox fo.Self.Path 'folder yang terpilih
Ero:


VB .NET
Kode untuk memanggilnya adalah:
Dim dlg As New FolderBrowserDialog

dlg.Description = "Pilih Folder"

If dlg.ShowDialog() = 1 Then
MsgBox(dlg.SelectedPath) 'folder yg terpilih
End If


DOWNLOAD PROJECT VB 6.0
DOWNLOAD PROJECT VB .NET

0 komentar:

Posting Komentar

Blog Archive

Arsip Blog