使用文本框

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

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

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

将FindText的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

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