Common Dialog Dengan Menggunakan API

Pada kesempatan kali ini admin akan membahas tentang Dialog Box versi Common Dialog Control pada Microsoft Visual Basic 6.0, tentunya untuk komponenn yang satu ini pasti sobat-sobat programmer baik junior maupun senior sudah sangat tidak asing lagi bahkan sering kita gunakan dalam pembuatan sebuah aplikasi. Untuk komponen ocx ini terdapat pada C:\Windows\System32\comdlg32.ocx bagi pengguna windows 32Bit akan tetapi bagi pengguna Windows 64Bit C:\Windows\SysWow\comdlg32.ocx dan tuntuk mengaktifkan komponen tersebut klik menu Project - Components atau dengan menekan ShootKey CTRL + T maka akan muncul kotak dialog cari dan ceklist Microsoft Common Dialog Control 6.0.

Akan tetapi kali ini admin akan coba menerapkan metode Common Dialog dengan menggunakan API, atau bisa dikatakan tanpa ocx, angsung saja pada pokok pembahasan, buka Microsoft Visual Basic 6.0 dilanjutkan dengan form tambahkan satu buah CommonButton pada form tersebut. Double klik pada form copykan syntak dibawah ini pada posisi General - Declaration

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Setelah itu dilanjutkan double klik juga pada CommonButton yang telah kita tambahkan diawal pembuatan form copykan juga syntak dibawah ini

Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = Form1.hwnd
    OpenFile.hInstance = App.hInstance
    sFilter = "Files Image" & Chr(0) & "*.jpg;*.bmp" & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = "C:\"
 
    OpenFile.lpstrTitle = "Cari dan Pilih Logo"
    OpenFile.flags = 0
    lReturn = GetOpenFileName(OpenFile)
 
    If lReturn <> 0 Then
       MsgBox Trim(OpenFile.lpstrFile)
    Else
       MsgBox "Anda belum memilih file"
    End If

Sekarang Simpan terlebih dahulu dan coba RUN (F5)......