Membuat Animasi Form Fade In dan Fade Out

Ups..selamat malam mas bro^_^ Kali ini kita akan membuat project sederhana berupa animasi form yang lebih tepatnya Animasi Form Fade In dan Fade Out. Project kali ini merupakan request dari teman kita yang ada di Grup Facebook Tutorial Visual Basic 6.0, sekalian promosi nieh yang belum gabung silakan bergabung di grup ini, dan grup ini terbuka untuk diskusi masalah yang berkaitan dengan Visual Basic 6.0 serta sebagai sarana silaturahmi hehehe…

Oke..sebagai gambaran awal, aplikasi kali ini kita akan membutuhkan 2 buah form. Kenapa kita perlu 2 buah form? Karena form pertama berfungsi sebagai pemicu untuk munculnya form kedua, jadi form yang kedua hanya contoh saja cara kerja animasi fade in dan fade out. Untuk membuat animasi fade maka kita juga memerlukan perintah transparan yang akan kita kemas dalam sebuah module.
Nggak usah panjang lebar, mari kita mulai pembuatan project kali ini :

A. Tahap Persiapan nieh :

Klik show untuk melihat gambar

1. Buka Micos*ft Visual Basic 6.0 Anda, lalu pilihlah StandardEXE;
2. Tekan Alt+P dan pilihlah Add Form lalu pada tab New pilih Form dan Open;
3. Tekan Alt+P dan pilihlah Add Module lalu pada tab New pilih Module dan Open; Oke sekarang kita sudah memiliki 2 buah form yakni form1 dan form2 serta 1 buah module yakni module1;
4. Tambahkan Tool pada form yakni : Form1 tambahkan CommandButton 2 buah yakni CommandButton1 dan CommandButton2; Form2 tambahkan CommandButton 2 buah yakni CommandButton1 dan CommandButton2, Label  1 buah yakni Label1 serta Timer 1 buah yakni Timer1;
5. Ubah properties seperti dibawah ini :

Klik show untuk melihat

B. Tahap Koding, memasukkan source code maksudnya mas bro;

1. Klik 2x pada module modTrans, maka muncul jendela module. Copy paste source code dibawah ini ke modTrans  (note : jangan tanya apaan tuh artinya soalnya gw juga copas tuh kode hohohoho…);

Option Explicit
Public Transparan As Integer
Public Trans As Integer
Private Const LWA_COLORKEY = 1
Private Const LWA_ALPHA = 2
Private Const LWA_BOTH = 3
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = -20

Private Declare Function SetLayeredWindowAttributes _
    Lib "user32" (ByVal hwnd As Long, _
    ByVal color As Long, ByVal x As Byte, _
    ByVal alpha As Long) As Boolean
 
Private Declare Function SetWindowLong _
    Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
 
Private Declare Function GetWindowLong _
    Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Sub SetTrans(hwnd As Long, Trans As Integer)
   Dim Tcall As Long
   Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)
   SetWindowLong hwnd, GWL_EXSTYLE, Tcall _
            Or WS_EX_LAYERED
   SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), _
            Trans, LWA_ALPHA
   Exit Sub
End Sub
 
Sub SetTransp(hwnd As Long, Trans As Integer)
   Dim Tcall As Long
   Tcall = GetWindowLong(hwnd, GWL_EXSTYLE)
   SetWindowLong hwnd, GWL_EXSTYLE, Tcall _
            Or WS_EX_LAYERED
   SetLayeredWindowAttributes hwnd, RGB(255, 255, 0), _
            Trans, LWA_ALPHA
   Exit Sub
End Sub

2. Beralih pada frmAnimasi, klik 2 kali pada cmdFadeIn lalu masukkan source code sehingga seperti di bawah ini :

Private Sub cmdFadeIn_Click()
frmFade.Show
frmFade.Caption = "Animasi Fade In"
frmFade.cmdIn = True
Me.Hide
End Sub

Penjelasan :
frmFade.Show , maksudnya memberi perintah kepada form Fade untuk terlihat
frmFade.Caption = "Animasi Fade In" , memberi perintah untuk mengganti caption / nama pada bar form Fade menjadi “Animasi Fade In”
frmFade.cmdIn = True, memberi perintah kepada cmdIn untuk aktif (di klik )
Me.Hide, maksudnya form Animasi disembunyikan;

3. Klik 2 kali pada cmdFadeOut lalu masukkan source code sehingga seperti di bawah ini :

Private Sub cmdFadeOut_Click()
frmFade.Show
frmFade.Caption = "Animasi Fade Out"
frmFade.cmdOut = True
Me.Hide
End Sub

Penjelasan :
Intinya sama dengan poin 7 hehehe…

4. Beralih pada frmFade, klik 2 kali pada form dan masukkan source code sehingga seperti di bawah ini :

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Penjelasan :
Timer1.Enabled = True, maksudnya timer1 di aktifkan
Timer1.Interval = 1, mengganti interval timer1 menjadi 1 (bukan 1 detik lho itu, note :   1 detik = 1000 interval);

5. Klik 2 kali pada cmdIn lalu masukkan kode sehingga seperti di bawah ini :

Private Sub cmdIn_Click()
Trans = 0
SetTransp Me.hwnd, Trans
End Sub

Penjelasan :
Trans = 0 , memposisikan nilai transparan adalah 0 (nol)
SetTransp Me.hwnd, Trans , maksudnya nilai transparan tadi diposisikan pada frmFade ;

6. Klik 2 kali pada cmdOut lalu masukkan kode sehingga seperti di bawah ini :

Private Sub cmdOut_Click()
    Trans = 255
    SetTransp Me.hwnd, Trans
End Sub

7. Klik 2 kali pada Timer1 lalu masukkan kode sehingga seperti di bawah ini :

Private Sub Timer1_Timer()
If Me.Caption = "Animasi Fade Out" Then
    Call FadeOut
    Else
    Call FadeIn
End If
End Sub

Penjelasan :
Jika Me (frmFade) nama pada bar adalah "Animasi Fade Out" maka memanggil perintah FadeOut, jika tidak terpenuhi (nama bar nya) maka memanggil  perintah FadeIn.
Kalau mas bro lupa lihat ulang artikel percabangan if then else ;

8. Pada halaman kode frmFade, kita akan membuat perintah FadeOut dan Fade In, copy paste source code dibawah ini :

Private Sub FadeOut()
 If Trans <> 0 Then
    Trans = Trans - 1
End If
    SetTransp Me.hwnd, Trans
If Trans = 0 Then
    Me.Enabled = True
    Unload Me
    frmAnimasi.Show
End If
End Sub
Private Sub FadeIn()
If Trans >= 0 Then
    Trans = Trans + 1
End If
    SetTransp Me.hwnd, Trans
If Trans = 255 Then
    Me.Enabled = True
    Unload Me
    frmAnimasi.Show
End If
End Sub

Note : perhatikan baik-baik perbedaan pada nilai trans, silakan disimpulkan sendiri hasil utak atik gw xixixixixi… (dicopy paste, dilihat, diamati, dipelajari, dan terakhir disimpulkan) pasti paham lah sampean mas bro.

9. Selesai…eits satu lagi periksa dulu startup nya, form mana dulu yang akan di eksekusi. Tekan Alt+P trus pilih bawah sendiri project1 Properties, lihat pada Startup Object pastikan frmAnimasi yang tercantum disitu, klik OK

Klik show untuk melihat gambar

10. Jalankan dengan menekan F5

Kalo ada kata yang salah ya saya minta maaf mas bro…sekian project kali ini dan tetep semangat buat belajar yah. Kalo masih bingung download source code nya di bawah sini mas bro. Sekian.

Ditulis oleh paijo_jr

Menghitung Umur Anda

Hmmm...berapa umur anda sekarang?umur saya 29 tahun, yah kalo segitu saya juga tahu hehehe... Kali ini kita akan membuat aplikasi kecil seh untuk menghitung umur anda sekarang, tidak cuman tahunnya saja melainkan sekalian harinya.

Pada aplikasi kali ini kita membutuhkan komponen DTPicker dimana untuk mengaktifkan komponen DTPicker tersebut maka kita terlebih dahulu harus mencentang komponen Micr*soft Wind*ws Common Controls-2 6.0 sehingga komponen DTPicker akan terlihat dalam barisan Toolbox.

Oke nggak usah lama-lama, mari kita buat aplikasi ini :

• Bukalah Micr*soft Visual Basic anda kemudian pilihlah StandardEXE;
• Ganti Caption pada form1 menjadi Aplikasi Menghitung Umur Anda, seperti gambar dibawah ini :

• Aktifkan Micr*soft Wind*ws Common Control-2 6.0 dengan cara menekan Ctrl+T untuk menampilkan Component, kemudian cari ke bawah sampai menemukan  Micr*soft Wind*ws Common Control-2 6.0 lalu klik Apply. Setelah itu lihatlah pada deretan Toolbox maka akan terdapat tambahan lima Tools salah satunya adalah DTPicker;

• Kemudian masukkan sebuah komponen DTPicker ke form1 dan ubahlah properties Format menjadi 0-dtpLongDate, untuk ukuran DTPicker tergantung selera;

• Untuk tambahan masukkan komponen Label dan komponen CommandButton sebagai eksekutor perintah. Ganti caption pada Label1 menjadi "Tanggal Lahir Saya" dan caption pada CommandButton1 menjadi "Hitung Umur Saya", sehingga jadi seperti di bawah ini :

• Klik 2x pada Command1 dan masukkan source code dibawah ini :

  Dim totalhari As Integer
  Dim umur As Integer
  Dim hari As Integer

  totalhari = DateDiff("d", DTPicker1.Value, Date)
  umur = totalhari / 365
  hari = totalhari - (umur * 365)
  MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"

• Selesai.

Untuk melihat hasilnya, tekan Run atau tombol F5. Sekian tutorial kali ini semoga bermannfaat yah ^_^
Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
 

Ditulis oleh paijo_jr

Syntax FileCopy Kill dan Name

Pada pembahasan syntax kali ini, ada 3 (tiga) syntax yang akan kita bahas yakni FileCopy, Kill dan Name. Ketiga syntax tersebut berhubungan dengan file (file nya umum lho, terserah ekor (ekstensi) nya apa). Kali ini kita akan menggunakan ekstensinya notepad yakni ".txt" (dot txt), buat dulu file dari notepad lalu simpan pada direktori "D:/" (terserah juga seh mo disimpan dimana yang penting inget aja tempatnya) dengan nama "tutorial.txt" (isinya notepad nya juga terserah lho mo di isi apa kosongan yang penting simpen pake nama tutorial.txt)

Syntax FileCopy

Digunakan untuk menyalin (copy) sebuah file menjadi file lain.

Syntax dasar :

FileCopy source, destination

Contoh :

- Bukalah Micros*ft Visual Basic 6.0 anda lalu pilihlah StandardExe;

- Tambahkan commandbutton pada lembar aplikasi lalu tekan 2 kali sehingga muncul code editor;

- Lalu masukkan source code dibawah ini!

FileCopy “D:/tutorial.txt”, ”D:/visual_basic.txt”

- Kalau sudah tekan F5, kemudian tekan commandbutton nya.

- Lihat lah file "tutorial.txt" pada direktori "D:/" masih ada khan!tetapi file hasil salinan dengan nama "visual_basic.txt" juga ada (inget lho biasanya ".txt" nya nggak keliatan karena memang di sembunyikan, baca juga postingan Show Super Hidden). Yah itu lah contoh syntax untuk menyalin file.

Syntax Kill

Upss.. bukan untuk membunuh orang lho tetapi syntax ini digunakan untuk menghapus (delete) sebuah file hehehe...

Syntax dasar :

Kill pathname

Contoh :

Kill “D:/tutorial.txt”

- Maka file yang ada dengan nama "tutorial.txt" pada direktori "D" akan terhapus jika syntax tersebut dijalankan.

Syntax Name

Digunakan untuk mengubah nama (rename) sebuah file.

Syntax dasar:

Name oldpathname As newpathname

Contoh :

Name “D:/tutorial.txt” As “D:/belajar_vibi.txt”

- Syntax di atas kalo dijalankan akan mengubah nama file "tutorial.txt" menjadi "belajar_vibi.txt"

Oke sekian dulu pembahasan syntax yang berhubungan dengan file kali ini.

Ditulis ulang oleh paijo_jr(sumber Syntax)

Syntax untuk membuat dan menghapus Folder

Uitssss... lamaaaa skali nggak update nieh blog (maaf lagi sibuuuk skali ^^). Nah pembahasan kali ini syntax yang berhubungan dengan folder, yakni untuk menyatakan "cinta" (upss salaahhh...) menyatakan folder [Dir$()], membuat folder [MkDir] dan menghapus folder [RmDir]. Emang nieh pembahasan kali ini sangaaattt dasar bangets hehehe....

Oke mari kita bahas satu-satu!

Syntax Dir$()

Digunakan untuk menyatakan sebuah direktori. Statemen ini juga dapat digunakan untuk pencarian file.

Syntax dasar :

stringvar = Dir$(path[,attributes])

Contoh :

If Dir$(“C:/tempe.log”) = “” Then
    MsgBox “File tidak ditemukan”
Else
    MsgBox “File ditemukan”
End if

Penjelasan :

Maksud dari contoh di atas yakni penggunaan fungsi if then else yang kalo di jelasin jika file pada alamat C:/tempe.log adalah kosong ("" tuh maksutnya 0 nol atau kosong) maka akan muncul message box yang isinya "File tidak ditemukan", else tuh kalau sebaliknya jika file dengan alamat tersebut ada maka yang muncul message box "File ditemukan", kira-kira begitu penjelasannya hehehe...

Syntax MkDir

Digunakan untuk membuat folder baru.

Syntax dasar :

MkDir path

Contoh :

MkDir “c:\VisualBasic\”

Penjelasan :

Saya rasa cukup jelas lah, cuman yang harus diperhatiin untuk penulisan path nya yang agak berbeda dari syntax Dir$(), kalo untuk mencari file atau menyatakan direktori tuh path nya pake tanda "/" tetapi untuk membuat dan menghapus folder memakai tanda "\", inget yah beda banget tuh!

Syntax RmDir

Digunakan untuk menghapus folder.

Syntax dasar :

RmDir path

Contoh :

RmDir “c:\VisualBasic\”

Penjelasan :
hehehe...idem lah seperti penjelasan syntax MkDir.

Oke sekian dulu pembahasan syntax kali ini, thank's udah ngebaca...^^

Ditulis ulang oleh paijo_jr (sumber Syntax)

Syntax Len Mid$() Left$() Right$()

Setelah membahas syntax Do...Loop dan For... Next, kali ini kita akan membahas syntax yang lainnya yakni syntax Len, Mid$(), Left$(), Right$(). Keempat syntax tersebut dibahas karena sering kali digunakan dalam sebuah project aplikasi visual basic. Mari yuk mari dibahas dan dibongkar satu persatu (kek gudang aje hohohoho...) :

1.       Syntax Len

Digunakan untuk mendapatkan informasi panjang dari sebuah string.

Syntax dasar :

Len (string)

Contoh :

Dim x as String
x = “Tutorial Visual Basic”
MsgBox x & “ = “ & Len(x) & “ karakter”

Penjelasan :

Dim x as String

‘yakni mendefinisikan bahwa “x” bernilai string;

x = “Tutorial Visual Basic”

‘yakni “x” tersebut berisi kalimat Tutorial Visual Basic;

MsgBox x & “ = “ & Len(x) & “ karakter”

 ‘yakni membuat MsgBox yang menampilkan pesan “x” (Tutorial Visual Basic), “& “=”&” (“& “untuk menggabungkan karakter  “x” dengan karakter “ = “(spasi = spasi)), “Len (x)” (mendapatkan informasi panjang dari “x”(Tutorial Visual Basic) yang kalau dihitung adalah 21 (termasuk spasi juga dihitung)), “& “ karakter” (penjelasan sama dengan “& “=”&”).

Hasilnya dalam MsgBox :

Tutorial Visual Basic = 21 karakter

2.       Syntax Mid$()

Digunakan untuk mendapatkan bagian tertentu dari sebuah string.

Syntax dasar :

Mid$ (string, start[, length])

Contoh :

Dim x as String
x = Mid$ (“Tutorial Visual Basic”, 17, 5)
MsgBox x

Penjelasan :

Dim x as String

‘yakni mendefinisikan bahwa “x” bernilai string;

x = Mid$ (“Tutorial Visual Basic”, 17, 5)

‘ yakni  dalam string “Tutorial Visual Basic” tersebut mulai dihitung dari kiri ke kanan 17 karakter (termasuk spasi juga dihitung), setelah didapat 17 karakter tersebut maka itu merupakan titik awalnya (yakni huruf “B”) sedangkan “5” merupakan panjangnya dimulai dari  titik awal (yakni “Basic”).

Hasilnya dalam MsgBox :

Basic

3.       Syntax Left$()

Digunakan untuk mendapatkan bagian tertentu dari sebuah string, yang dimulai dari sisi kiri string.

Syntax dasar :

Left$ (string), length)

Contoh :

Dim x as Sting
x = Left$ (“Tutorial Visual Basic”, 15)
MsgBox x

Penjelasan :

x = Left$ (“Tutorial Visual Basic”, 15)

‘yakni angka 15 maksudnya dari kalimat Tutorial Visual Basic tersebut dibaca dari kiri 15 karakter (termasuk spasi) dan didapat Tutorial Visual.

Hasilnya dalam MsgBox :

Tutorial Visual

4.       Syntax Right$()

Digunakan untuk mendapatkan bagian tertentu dari sebuah string, yang dimulai dari sisi kanan string.

Syntax dasar :

Right$ (string, length)

Contoh :

Dim x as String
x = Right$(“Tutorial Visual Basic”, 12)
MsgBox x

Penjelasan :

x = Right$(“Tutorial Visual Basic”, 12)

‘yakni angka 12 maksudnya dari kalimat Tutorial Visual Basic tersebut dibaca dari kanan 12 karakter (termasuk spasi) dan didapat Visual Basic.

Hasilnya dalam MsgBox :

Visual Basic

Ditulis oleh paijo_jr (sumber Syntax)

Syntax Do... Loop dan For... Next

 

Syntax atau dalam bahasa Indonesia Sintaksis adalah ilmu mengenai prinsip dan peraturan untuk membuat kalimat dalam bahasa alami. Selain aturan ini, kata sintaksis juga digunakan untuk merujuk langsung pada peraturan dan prinsip yang mencakup struktur kalimat dalam bahasa apapun.
Dalam hal ini Syntax yang akan dibahas merupakan Syntax untuk pemrograman Visual Basic 6.0. Dalam Syntax Visual Basic 6.0 terdapat banyak sekali Syntax yang salah satunya adalah syntax perulangan yakni Do... Loop dan For... Next (satu-satu ngebahasnya kalo semua bahhh bisa panjang banget page nya hehehe...)

Syntax Do… Loops
Digunakan sebagai statemen perulangan.

Syntax 1 :

Do Until (Expression)

                (code to execute)

Loop

Contoh : 

Dim x as Integer
x=0
Do Until x = 50
      x = x+1
Loop

Syntax 2 :

Do While (expression)

                (code to execute)

Loop
Contoh :

Dim x as Integer

Do While x = 100

      x = x+1

Loop

Syntax 3 :

Do

                (code to execute)

Loop While (expression)

Contoh :

Dim x as Integer

Do

      x = x+1

Loop While x = 100

Syntax For… Next

Digunakan sebagai statemen perulangan

Syntax dasar :

For counter = start To end [ step step ]

                (code to execute)

Next [ counter ]

Contoh 1 :

Dim x as Integer
For x = 0 To 10
                MsgBox “Nilai x = “ & x
Next x

Contoh 2 :

Dim x as Integer
For x = 0 To 10 step 2
                MsgBox “Nilai x = “ & x
Next x

Ditulis ulang oleh paijo_jr (sumber Syntax) 

Date and Time

 

Pada tutorial kali ini akan saya bahas mengenai date and time alias tanggal dan waktu. Mungkin tutorial ini banyak yang sudah mengerti, tetapi apa boleh buat berhubung ada yang request ya sejenak kita bahas oke. Date and Time saya rasa sudah tahu semua apa maksudnya, yup benar kali ini kita akan mengupas masalah format date and time dalam Visual Basic 6.0. Berikut ini sejumlah contoh penggunaan format date and time :
1. Date pasti semua orang sudah tahu, tanggal bahasa Indonesia nya. Sedangkan format tanggal itu sendiri ada bermacam-macam misal : 19 November 2010, 19 Nov 2010, 19-10-2010, November, 19 2010 dan sebagainya.
2. Time atau waktu pun juga mempunyai format untuk di masukkan dalam program Micr*soft Visual Basic 6.0, sebagai contoh yakni : 20:00, 08.00 PM, dan sebagainya.

Simulasi date and time pada visual basic :
1. Bukalah Micr*soft Visual Basic 6.0 anda dan pilihlah StandardEXE
2. Pilih satu label dan ubah ukuran sesuai dengan yang di inginkan (ingat jangan ubah Name)
3. Klik 2 kali pada form load nya dan isikan sebagai berikut :

Private Sub Form_Load()
Label1.caption= Format(Now, "Long Date")
End Sub

4. Klik run atau F5 maka akan menghasilkan Friday, November 19, 2010

Gantilah Format(Now, "Long Date") dengan berikut ini dan coba klik run atau F5:
Date

1. Format(Now, "Medium Date") >>  19-Nov-10
2. Format(Now, "Short Date") >> 11-19-2010
3. Format(Now, "dd-mm-yyyy") >> 19-11-2010 (dd day, mm month, yyyy year)
etc

Time

1. Format(Now, "Long Time") >> 10:33:00 PM
2. Format(Now, "Medium Time") >> 10:33 PM
3. Format(Now, "Short Time") >> 22:33 (hh hour, mm minutes, ss secon)
4. Format(Now, "hh:mm:ss") >> 22:33:00
5. Format(Now, "hh:mm AM/PM") >> 10:33 PM (sama dengan medium time)

Format di atas hanya sebagian yang ditulis, masih ada kemungkinan-kemungkinan format yang lain. Untuk itu saya sediakan freeware yang berisi format format date and time

Sekian dan terima kasih

Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
 

 Ditulis oleh paijo_jr

Menampilkan Dialog Browse

Sebenarnya bingung juga mo ngasih judul apa pada postingan kali ini tapi akhirnya kuberi judul ini aja “Menampilkan Dialog Browse”. Apa lagi maksudnya itu???secara ringkas tak kasih sedikit gambaran, kalo kamu kamu familiar sama Operating System Wind*ws misalnya yang simple Notepad.exe. Setelah notepad.exe kamu buka maka akan keluar khan notepad nya (ya jelaslah hehehehe…), trus coba kamu tekan File-Open (atau tekan Ctrl+O) maka akan muncul dialog “Open” seperti gambar di bawah ini, nah artikel kali ini saya akan share ilmu “Menampilkan Dialog Browse”.







Ikutilah langkah-langkah dibawah ini :
Tahap pertama, yakni membuat module :
Seperti biasa buka Micros*ft Visual Basic anda dan pilih standardEXE
Pada artikel kali ini, kita membutuhkan sebuah module, jadi tekan Alt+P (Project) lalu pilih Add Module (atau tekan huruf M),

Lalu tekan Open dan muncullah jendela seperti gambar di bawah ini

Isi module dengan source code dibawah ini,

Option Explicit

Private Type BrowseInfo
lngHwnd As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem _
As Long)
Private Declare Function lstrcat Lib "Kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "Shell32" (lpbi _
As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long

Public Function BrowseForFolder(ByVal strPrompt As String) As _
String
On Error GoTo ehBrowseForFolder
Dim intNull As Integer
Dim lngIDList As Long, lngResult As Long
Dim strPath As String
Dim udtBI As BrowseInfo
With udtBI
.lngHwnd = 0
.lpszTitle = lstrcat(strPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lngIDList = SHBrowseForFolder(udtBI)
If lngIDList <> 0 Then
strPath = String(MAX_PATH, 0)
lngResult = SHGetPathFromIDList(lngIDList, strPath)
Call CoTaskMemFree(lngIDList)
intNull = InStr(strPath, vbNullChar)
If intNull > 0 Then
strPath = Left(strPath, intNull - 1)
End If
End If
BrowseForFolder = strPath
Exit Function
ehBrowseForFolder:
BrowseForFolder = Empty
End Function

Kemudian pada properties window ganti nama module menjadi “mdlDialog”
Tahap kedua, yakni menambahkan komponen Common Dialog :
Pada tahap ini kita membutuhkan komponen yang namanya “Common Dialog”, untuk itu aktifkan komponen tersebut dengan melakukan centang pada “Micros*ft Common Dialog Control 6.0”
Langkah-langkahnya tekan Project-lalu pilih Component (atau jalan pintasnya tekan Ctrl+T untuk menampilkan component), scroll ke bawah lalu cari Micros*ft Common Dialog Control 6.0 serta centang dan tekan OK

Setelah itu lihat pada Toolbox, maka akan ada penambahan komponen berupa CommonDialog

Tahap Ketiga :
Masukkan 2 buah TextBox, 2 buah CommandButton dan 1 buah CommonDialog
Atur properties pada masing-masing komponen sebagai berikut : (untuk ukuran/ size terserah )

Form
Name	frmDialog
BorderStyle	1 – Fixed Single
Caption	Menampilkan Dialog Browse
TextBox1
Name	txtFolder
Text	Folder
TextBox2
Name	txtFiles
Text	Files
CommandButton1
Name	cmdFolder
Caption	Browse Folder
CommandButton2
Name	cmdFiles
Caption	Browse Files
CommonDialog
Name	CD1

Lalu atur komponen tersebut seperti dibawah ini :

Buka Code Window dan masukkan source code dibawah ini:

Private Sub cmdFiles_Click()
On Error GoTo akhir
Dim Filename As String
CD1.Filter = "Semua File|*.*" 'kamu bisa merubah kode ini sesuai dengan kebutuhan misal Image|*.jpg
CD1.ShowOpen
Filename = CD1.Filename
akhir:
If Len(Filename) > 0 Then
txtFiles.Text = Filename
End If
End Sub

Private Sub cmdFolder_Click()
Dim brwVal As String
brwVal = BrowseForFolder("Select Drive And Directory:")
If Len(brwVal) > 0 Then
txtFolder.Text = brwVal
End If
End Sub

Selesai, coba tekan Run atau F5
Nah mudah bukan menampilkan dialog browse hehehe… terus belajar bro.


Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
 

Ditulis oleh paijo_jr