主题：[分享]一个小示例给大家

  我们浏览器都有搜索功能,只要符合的数据,全部会用颜色标出,我这个做了两个按钮,一个是筛选,一个是搜索,所有只要符合窗口文本框数据的,在表中会用黄色标出.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:筛选和搜索并标记好.table

  为什么看不明白?在窗口的文本框输入一个如PD01的数据,旁边不是有两个按钮吗,你试一下看看什么效果?

  你可以根据我做的修改一下,关键是做到不用按钮.在文本框中输入数据时立马可以搜索.在加入颜色标记功能就OK了.

MR-725兄,没有改进的,只是人家翻出来了.

我看看改一个你看看.

打开窗口2，在文本框中输入数据回车就可以了.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:筛选和搜索并标记好.table

如黑色:Color.black

使用编辑框

我们希望直接在工具栏中输入内容，然后单击某个按钮，在当前列查找所输入的内容。

首先在功能组中增加一个工具栏，在工具栏中增加以下项目：

类型	名称	小图标
编辑框	StringToFind
标准按钮	FinxNext	find.ico

这里为什么要使用工具栏？因为功能组中的项目是按垂直顺序排列，只有工具栏中的项目是按水平顺序排列的。

将FinxText的Click事件的代码设置如下：

'获得编辑框中输入的内容,保存在变量Val中,实际编写代码的时候，组件名称应该改为真实的名称。
Dim Val As String = RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("StringToFind").Text
Dim Index As Integer
With CurrentTable
    Index = .FindRow(.Cols(.ColSel).Name & " = '" & Val & "'", .Position + 1,True)
    If Index >= 0 Then
    .Position = Index
    End If
End With

初次接触的代码只有下面这一行：

Dim Val As String = RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("StringToFind").Text

其实这行代码很好理解，就是获得指定功能区、指定功能组、指定工具栏中某一指定编辑框的Text属性值，并保存到变量Val中。
RibbonTabs是一个全局集合，返回指定名称的变量；Goups也是一个集合，返回指定名称的功能组；Items也是一个集合，返回指定名称的组件，可用于功能组以及组合按钮、菜单按钮、工具栏等容器类组件；Text是编辑框的一个属性，获得编辑框中的内容。此外Groups和Items都是默认属性，所以这一行代码可以简化为：

Dim Val As String = RibbonTabs("功能区1")("功能组1")("工具栏1")("StringToFind").Text

下图是我们设计的结果，在编辑框中输入查询内容，单击右边的按钮即可进行查询：