Assalamualikum,
Tutorial Visual Basic 6 kali ini
akan memberikan trik mengenai
Penggunaan
Common Dilog tanpa file comdlg32.ocx. atau yang sering di sebut OpenDialog.exe
seperti gambar berikut ini :
Untuk menampilkan OpenDialog tanpa penggunaan
comdlg32.ocx paste kode berikut kedalam aplikasi anda.
Paste pada CommandButton :
Private Sub
Command1_Click()
'Dim theTemp As String
theTemp = OpenDialog(Me, "Exe files (*.exe)|*.exe",
"Select File...", App.Path)
End Sub
Note: ganti .exe sesuai format file yang ingin
anda Open.
Kemudian buat 1 buah Module dengan cara Klik
kanan Project1 Propeties, kemudian pilih ADD lalu pilih Module.
Dan paste kode berikut kedalamnya :
Option
Explicit
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
Public Const OFN_READONLY = &H1
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_SHOWHELP = &H10
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOLONGNAMES = &H40000
Public Const OFN_EXPLORER = &H80000
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_LONGNAMES = &H200000
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0
Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias
"GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
'Browse Folder
Private Type BrowseInfo
hWndOwner 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
Public Const BIF_STATUSTEXT = &H4&
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const WM_USER = &H400
Public Const BFFM_INITIALIZED = 1
Public Const BFFM_SELCHANGED = 2
Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
Public Const BFFM_SETSELECTION = (WM_USER + 102)
Private Declare Sub CoTaskMemFree Lib "ole32.exe" (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
Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir
As String) As String
Dim ofn As OPENFILENAME
Dim A As Long
Dim theTemp As String
ofn.lStructSize = Len(ofn)
ofn.hWndOwner = Form1.hWnd
ofn.hInstance = App.hInstance
If Right$(Filter, 1) <> "|" Then Filter =
Filter + "|"
For A = 1 To Len(Filter)
If Mid$(Filter, A, 1) =
"|" Then Mid$(Filter, A, 1) = Chr$(0)
Next
ofn.lpstrFilter = Filter
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = InitDir
ofn.lpstrTitle = Title
ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST
A = GetOpenFileName(ofn)
If (A) Then
theTemp = Trim$(ofn.lpstrFile)
If Asc(Right$(theTemp, 1)) = 0 Then
theTemp = Left$(theTemp, Len(theTemp) - 1)
OpenDialog = theTemp
Else
OpenDialog = ""
End If
End Function
Cukup sekian
saja Tutorial Visual Basic 6 pda kali ini, dengan Judul :
Penggunaan Common Dilog tanpa file
comdlg32.ocx pada Visual Basic 6, mohon koreksi jika ada kesalahan J, Wassalam….
Judul : Penggunaan Common Dialog tanpa file comdlg32.ocx pada Visual Basic 6
Deskripsi : Assalamualikum, Tutorial Visual Basic 6 kali ini akan memberikan trik mengenai Penggunaan Common Dilog tanpa file comdlg32.ocx . atau yang ...