Articles & Source Code

Donation Info

BeGo Resources

Download Products

Sites Info

List Of Category

New Category, Add-Ins/Plugins, Database & Reporting, Snippet Function, Network & Internet, Compilation Code, Security Focus, Tutorial & Articles, Tool & Utilities, Top Category

Search Source

SKIN II VB

NO*IA CDMA SMS SENDER

Simple Image Browser

Smada Lock Folder

Tiny Typing Tutor 0.1a

---

Find Dialog

Menampilkan Dialog Find, seperti halnya anda menggunakan find yang ada pd start menu

Code: Select all

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

Const SW_SHOW = 5
Sub ShowFindDialog(Optional InitialDirectory As String)
ShellExecute 0, "find", _
IIf(InitialDirectory = "", "", InitialDirectory), _
vbNullString, vbNullString, SW_SHOW
End Sub

Private Sub Command1_Click()
Call ShowFindDialog("C:\Windows")
End Sub


Comment: 0 | Read: 1631 | Date: 15/05/2005 | Publisher: Admin

Back | To Top

---

Mendapatkan No Seri Windows . Mendapatkan status menubar . Memutar (Rotate) Gambar . Membuat Menu StyleXP . Membuat Multi Directory . Menghilangkan semua item process pada Task Manager . Membuat Report Dengan Excel . Logika Pemrograman Sidik Jari Bag-I Dengan VB  . Virus 4k51k4 . WinXPC Engine 1.0.0 (Open Source code) . Fungsi Environ Di Visual Basic . VB Console . Mendapatkan Format Clipboard . Membuat Cue Banner & Tips . Fungsi Undo Pada VB . Mendapatkan Password MyOB Accounting . Yahoo Invisible Detector(Beta) . Menyimpan Gambar Ke Database SQL Server . Mendapatkan No Seri Windows . Custom TextBox .