Langsung ke konten utama

Tutorial shell32 - Menggunakan Browse Folder Dialog Box + Get Full Path

Jika kalian punya project yang bekerja dengan file system termasuk folder, kalian tentu akan membutuhkan "Browse Folder Dialog Box" untuk memilih sebuah folder berbasis GUI sehingga lebih mudah dan lebih cepat dari pada harus mengetik lokasi nya secara manual yang rawan terjadi masalah itu.
Disini kita akan berinteraksi dengan library shell32.dll yang terlebih dahulu harus di aktifkan, klik Project > References. Pilih/ceklis Microsoft Shell Control And Automation, lihat gambar;

Langkah selanjutnya adalah membuat design form dengan melibatkan komponen;
  • 1 label
  • 1 Textbox
  • 1 CommandButton
Code untuk CommandButton

Private Sub Command1_Click()

Dim sh As New Shell32.Shell
Dim inifolder As Folder2

Set inifolder = sh.BrowseForFolder(Me.hWnd, "Pilih Folder", 0, "C:\")

If Not inifolder Is Nothing Then
    Text1.Text = inifolder.Self.Path
End If

Set sh = Nothing
Set inifolder = Nothing

End Sub


Fungsi shell pada tutorial ini adalah salah satunya yaitu dengan menggunakan metode BrowseForFolder, fungsi lain tentang shell silahkan lihat referensi nya di situs msdn ( Shell Object)
Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

Pemahaman Do While dan Do Until

Proses Pengulangan dengan menggunakan Do While dan Do Until adalah proses pengulangan yang di tentukan oleh sebuah kondisi, sama seperti statement IF Then Else beda nya do While adalah untuk proses pengulangan yang artinya proses akan berulang terus sesuai kondisi apa yang di berikan. 1/ Do While Proses Pengulangan dengan menggunakan do while adalah sebuah proses pengulangan dalam kondisi benar/true, jadi jika nilai pada sebuah kondisi adalah benar/true maka proses akan terus berulang dan akan berhenti jika nilai pada sebuah kondisi adalah salah/false. Contoh; dim a as integer a = 1 Do While a < 10      MsgBox a      a = a + 1 Loop Dari coding diatas, kita membuat variable "a" sebagai integer, dan 1 adalah nilainya, berarti a adalah 1. Selanjutnya adalah melakukan perulangan dengan menentukan kondisi yang benar, bahwa "1 itu lebih kecil dari 10". Karena kondisi yang di tentukan adalah kondisi yang benar maka proses pengulangan di ...
1 komentar
Baca selengkapnya

Fungsi Like Operator : VB 6.0

Like Operator : Visual Basic 6.0 *Membandingkan String dengan pattern(string yang akan dibandingkan) Syntax     result = string Like pattern     Parameter result variable bertype data boolean string variable bertype data string pattern variable bertype data string
1 komentar
Baca selengkapnya

Memisahkan Angka Dan Huruf

Pada kesempatan kali ini kembali  berbagi tutorial seputar VB6 untuk mengatasi permasalahan string yang mengharuskan output tidak mencampur adukan antara angka/nomer dengan huruf/karakter pada kondisi kondisi tertentu. Kita bisa mengatasi masalah ini dengan sangat mudah jika kalian telah mengetahui fungsi fungsi string pada visual basic yang kadang di anggap tidak begitu penting bagi kaum yang baru belajar terus ingin mahir dalam 24 jam HaHa, belum tau dan ngerti apa-apa main lompat ke pemograman database, gak heran setiap tindakan nya selalu di landa kebingungan terus ujung ujungnya mampir ke forum dengan pertanyaan yang tidak terkesan ada usaha nya sama sekali.. "bro,tolongin bro tugas kulian nih" HaHa
1 komentar
Baca selengkapnya