以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于菜单查找功能设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73546)
--  作者：fox20150629
--  发布时间：2015/8/21 10:28:00
--  关于菜单查找功能设置
狐表的查找功能可以将查找位置设为当前表所有字段，匹配方式默认任意位置，而按下enter是查找下一个不需要用鼠标去点一下吗
--  作者：Hyphen
--  发布时间：2015/8/21 10:34:00
--  
这个跟Execl的操作方式是一样的
--  作者：fox20150629
--  发布时间：2015/8/21 10:37:00
--  
还是有不一样，需要鼠标点击查找下一个，而excel可以按enter
--  作者：fox20150629
--  发布时间：2015/8/21 10:39:00
--  
匹配方式多用的是任意位置，每次需要用鼠标选择有点浪费时间
--  作者：大红袍
--  发布时间：2015/8/21 10:45:00
--  

全局代码

 

Public Sub textBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter
    sender.parent.Controls("FindNext").PerformClick
End If
End Sub

 

计划管理

 

Dim frm = Windows.forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.name = "Class108" Then
        Dim ContentFind As windows.Forms.ComboBox = frm.controls("ContentFind")
        removehandler ContentFind.Keydown, addressof textbox1_keydown
        addhandler ContentFind.Keydown, addressof textbox1_keydown
    End If
End If
--  作者：大红袍
--  发布时间：2015/8/21 10:48:00
--  
以下是引用fox20150629在2015/8/21 10:39:00的发言：
匹配方式多用的是任意位置，每次需要用鼠标选择有点浪费时间

 

那就只能自己做一个类似的窗口了。

 

http://www.foxtable.com/help/topics/0552.htm