如何在使用Visual Basic的应用程序中为特定文件夹打开“Windows Search Companion”或“Windows Basic Search”?如何在Visual Basic应用程序中打开“Windows搜索”?
我发现this article,但它不是我要找的。
如何在使用Visual Basic的应用程序中为特定文件夹打开“Windows Search Companion”或“Windows Basic Search”?如何在Visual Basic应用程序中打开“Windows搜索”?
我发现this article,但它不是我要找的。
是否这样?
VBA/VB6代码
Option Explicit
'~~> API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch& 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)
Private Const SW_SHOWNORMAL = 1
Const drv As String = "C:\"
Sub Sample()
ShellSearch 0, "Find", drv, "", "", SW_SHOWNORMAL
End Sub
在VBA
测试在Win XP
在Win 7
VB.NET(测试的Visual Studio旗舰版64位)
'~~> API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer
Private Const SW_SHOWNORMAL = 1
Const drv As String = "C:\"
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
ShellSearch(0, "Find", drv, "", "", SW_SHOWNORMAL)
End Sub
标签是混乱的,vb.Net,VB6,VBA,你要哪一个? –
@AkshayJoy所有版本,如果可能的话。 – Andriel
我不知道这是你所期待的http://www.ehow.com/how_7536490_do-windows-search-vb.html –