by Peter Elisa Souhoka (21 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Wed 19th November 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Window Search Result
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 mShowCmd as long) as long
‘constanta
Private Cons SW_SHOWNORMAL =1
Private sub cmd_Click()
Dim strDir As String
strDir =”D:\”
’show dialog box search results
Call ShellExecute(Me.hwnd, “find”,strDir,vbNullString,vbNullString,SH_SHOWNORMAL)
End Sub