- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Textbox输入字符问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48587)
-- 发布时间：2014/4/1 13:57:00
-- Textbox输入字符问题
有没有办法让textbox输入字符完毕，但是不需要离开控件的时候才执行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:筛选设置.table |
With t
If e.Sender.Text <> "" Then
.StopRedraw
.filter = "第一列 like \'%" & e.Sender.Text & "%\'"
.ResumeRedraw
Else
e.Form.Controls("Table1").Table.filter = ""
End If
End With
-- 发布时间：2014/4/1 14:04:00
--
用textchanged 数据量多就采取分页加载.
-- 发布时间：2014/4/1 14:08:00
--
KeyDown
If e.KeyCode = Keys.Enter Then
Dim t As Table = e.Form.Controls("Table1").Table
With t
If e.Sender.Text <> "" Then
.StopRedraw
.filter = "第一列 like \'%" & e.Sender.Text & "%\'"
.ResumeRedraw
Else
e.Form.Controls("Table1").Table.filter = ""
End If
End With
End If
如果还有其他控件，又不想焦点离开本查询框：
If e.KeyCode = Keys.Enter Then
e.Cancel = True
Dim t As Table = e.Form.Controls("Table1").Table
With t
If e.Sender.Text <> "" Then
.StopRedraw
.filter = "第一列 like \'%" & e.Sender.Text & "%\'"
.ResumeRedraw
Else
e.Form.Controls("Table1").Table.filter = ""
End If
End With
End If
e.Sender.Select
-- 发布时间：2014/4/1 14:16:00
--
或者直接检测 Ctrl + V 按键
If e.Control AndAlso e.KeyCode = Keys.V Then
msgbox(1)
End If
-- 发布时间：2014/4/1 14:19:00
--
或者另一个思路，检测触发textchanged的时间间隔，做不同操作。
-- 发布时间：2014/4/1 14:23:00
--
要不就在KEyDown检测按下回车再搜索.
-- 发布时间：2014/4/1 15:28:00
--
谢各位，以前以为只有textChanged能够即时响应的，其实使用KeyUp就能完美支持这个，唯一的区别是不能响应代码复制的信息。