如何用VB代码访问并操作OpenFileDialog中的搜索框？

OpenFileDialog的原生搜索框没有直接的.NET属性可直接设置搜索关键词，但可以通过以下几种实用方法实现以Water开头的文件搜索：

方法1：利用FileName属性快速筛选（最简便） #

OpenFileDialog的FileName属性支持通配符，设置为Water*后，打开对话框时会自动筛选所有以Water开头的文件，这是系统原生支持的功能，无需额外API调用。

示例代码：

Dim openFileDialog1 As New OpenFileDialog()
' 设置前缀通配符，自动匹配以Water开头的文件
openFileDialog1.FileName = "Water*"
' 可选：限定文件类型，比如仅显示文本文件
openFileDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
openFileDialog1.Title = "选择以Water开头的文件"

If openFileDialog1.ShowDialog() = DialogResult.OK Then
    ' 处理选中的文件
    MessageBox.Show("选中文件：" & openFileDialog1.FileName)
End If

方法2：通过Windows API填充搜索框文本 #

如果需要主动向对话框的搜索框中填入搜索关键词（而非通过FileName预设），可以借助Windows API找到搜索框控件并发送文本。

示例代码：

Imports System.Runtime.InteropServices
Imports System.Threading

Public Class Form1
    ' 声明Windows API函数
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
    Private Shared Function FindWindowEx(ByVal hwndParent As IntPtr, ByVal hwndChildAfter As IntPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As IntPtr
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
    End Function

    Private Const WM_SETTEXT As Integer = &HC

    Private Sub SelectWaterFilesBtn_Click(sender As Object, e As EventArgs) Handles SelectWaterFilesBtn.Click
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.Title = "搜索以Water开头的文件"

        ' 启动后台线程等待对话框加载，然后填充搜索框
        Dim fillSearchBoxThread As New Thread(Sub()
                                                 ' 等待对话框完全加载（时间可根据系统性能调整）
                                                 Thread.Sleep(500)
                                                 ' 查找对话框窗口（标题需与OpenFileDialog的Title一致）
                                                 Dim dialogHwnd As IntPtr = FindWindowEx(IntPtr.Zero, IntPtr.Zero, "#32770", openFileDialog1.Title)
                                                 If dialogHwnd <> IntPtr.Zero Then
                                                     ' 查找搜索框控件（类名为Edit）
                                                     Dim searchBoxHwnd As IntPtr = FindWindowEx(dialogHwnd, IntPtr.Zero, "Edit", "")
                                                     If searchBoxHwnd <> IntPtr.Zero Then
                                                         ' 向搜索框发送搜索文本
                                                         SendMessage(searchBoxHwnd, WM_SETTEXT, IntPtr.Zero, "Water*")
                                                     End If
                                                 End If
                                             End Sub)
        fillSearchBoxThread.IsBackground = True
        fillSearchBoxThread.Start()

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            MessageBox.Show("选中文件：" & openFileDialog1.FileName)
        End If
    End Sub
End Class

注意：该方法依赖Windows系统控件的类名，在不同Windows版本上可能存在兼容性问题，测试适用于Win10/Win11。

方法3：自定义筛选逻辑（严格校验） #

如果需要对用户选择的文件进行严格校验（比如忽略大小写、结合其他筛选条件），可以在FileOk事件中拦截并验证选中的文件。

示例代码：

Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.Filter = "所有文件(*.*)|*.*"
openFileDialog1.Title = "选择文件"
openFileDialog1.Multiselect = True ' 支持多选

' 绑定FileOk事件，校验选中文件
AddHandler openFileDialog1.FileOk, Sub(sender As Object, e As CancelEventArgs)
                                      Dim dialog As OpenFileDialog = DirectCast(sender, OpenFileDialog)
                                      For Each filePath As String In dialog.FileNames
                                          Dim fileName As String = System.IO.Path.GetFileName(filePath)
                                          ' 校验文件名是否以Water开头（忽略大小写）
                                          If Not fileName.StartsWith("Water", StringComparison.OrdinalIgnoreCase) Then
                                              MessageBox.Show("请选择以Water开头的文件！")
                                              e.Cancel = True ' 阻止对话框关闭
                                              Exit Sub
                                          End If
                                      Next
                                  End Sub

If openFileDialog1.ShowDialog() = DialogResult.OK Then
    ' 处理选中的文件
    For Each filePath As String In openFileDialog1.FileNames
        MessageBox.Show("选中文件：" & filePath)
    Next
End If

内容的提问来源于stack exchange，提问作者user17485293