使用文本框
我们希望直接在工具栏中输入内容,然后单击某个按钮,在当前列查找所输入的内容。
首先在功能组中增加一个工具栏,在工具栏中增加以下项目:
类型 | 名称 | 小图标 |
文本框 | StringToFind | |
标准按钮 | FindNext | find.ico |
这里为什么要使用工具栏?因为功能组中的项目是按垂直顺序排列,只有工具栏中的项目是按水平顺序排列的。
将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
下图是我们设计的结果,在文本框中输入查询内容,单击右边的按钮即可进行查询: