以下是引用king在2010-9-7 12:03:00的发言:
谢谢blackzhu
如果这个文本框放在菜单的“配置栏”里面又该如何?
[此贴子已经被作者于2010-9-7 12:05:31编辑过]
使用编辑框
我们希望直接在工具栏中输入内容,然后单击某个按钮,在当前列查找所输入的内容。
首先在功能组中增加一个工具栏,在工具栏中增加以下项目:
类型 |
名称 |
小图标 |
编辑框 |
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
下图是我们设计的结果,在编辑框中输入查询内容,单击右边的按钮即可进行查询: