使用文本框

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

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

类型 名称 小图标
文本框 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

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


本页地址:http://www.foxtable.com/webhelp/topics/1069.htm