VB 搜索代码示例：实现简单文本搜索功能

以下是一个简单的 VB 搜索程序的示例代码，演示如何实现文本搜索功能：

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
    Dim searchString As String = txtSearch.Text.Trim() ' 获取搜索关键字
    
    ' 进行搜索操作
    If Not String.IsNullOrEmpty(searchString) Then
        ' 在此处编写搜索的逻辑代码，例如遍历数据源，查找匹配项等
        ' 这里只是一个简单的示例，仅供参考
        Dim searchResult As String = SearchData(searchString)
        
        ' 显示搜索结果
        If Not String.IsNullOrEmpty(searchResult) Then
            MessageBox.Show('搜索结果：' & searchResult)
        Else
            MessageBox.Show('未找到匹配项')
        End If
    End If
End Sub

Private Function SearchData(ByVal searchString As String) As String
    ' 模拟搜索操作，返回搜索结果
    Dim data As String() = {'苹果', '香蕉', '橙子', '西瓜'}
    For Each item As String In data
        If item.Contains(searchString) Then
            Return item
        End If
    Next
    Return ""
End Function

上述代码中，btnSearch_Click 是搜索按钮的点击事件处理程序。在该事件处理程序中，首先获取搜索关键字，然后调用 SearchData 函数进行搜索操作。SearchData 函数是一个简单的示例，它遍历数据源（这里用一个字符串数组代替），查找包含搜索关键字的项，并返回搜索结果。最后，根据搜索结果显示相应的消息框。