Textbox输入字符问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有没有办法让textbox输入字符完毕，但是不需要离开控件的时候才执行

valueChanged事件：需要焦点离开控件

textChanged事件：即时响应。

现在遇到问题：

当用户复制字符串到文本框的时候，textchanged事件对每个复制字符都会响应，当表格数据较多时候，filter就会出现白屏，输入结束后才会正常。

ValueChanged事件，要焦点离开才行，不符合要求。

有没有办法当复制到textbox，只响应一次，当用户手动输入时，即时响应？

注例子中可能是数据不多，没有出现这种情况

下载信息 [文件大小：下载次数： ]
点击浏览该文件:筛选设置.table

附上解决方案，textchanged代码直接放到keyup事件中即可，不需要判断按钮

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

[此贴子已经被作者于2014-4-1 15:30:02编辑过]

用textchanged 数据量多就采取分页加载.

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

或者直接检测 Ctrl + V 按键

If e.Control AndAlso e.KeyCode = Keys.V Then
msgbox(1)
End If

或者另一个思路，检测触发textchanged的时间间隔，做不同操作。

要不就在KEyDown检测按下回车再搜索.

谢各位，以前以为只有textChanged能够即时响应的，其实使用KeyUp就能完美支持这个，唯一的区别是不能响应代码复制的信息。

主题：Textbox输入字符问题