以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何使文本框每输入一个字符或汉字都做出响应?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18145)

--  作者:新福星
--  发布时间:2012/4/4 4:55:00
--  [求助]如何使文本框每输入一个字符或汉字都做出响应?
如在一个文本框录入姓名,输入一个李时,就把所有李姓名单找出来,接着输入广字时,把所有李广名单找出来!以此类推。就是每输入一个字符或一个汉字后,文本框中的哪个事件能做出响应呢?如何实现呢?
--  作者:xongyijd
--  发布时间:2012/4/4 7:48:00
--  

用文本框TextChanged事件


--  作者:新福星
--  发布时间:2012/4/4 8:08:00
--  
TextChanged是把整个名字输完才有触发这个事件,无法满足我刚才说的要求。
--  作者:新福星
--  发布时间:2012/4/4 8:12:00
--  
我想要的效果类似ComboBox控件,启动了输入助手那效果
--  作者:xongyijd
--  发布时间:2012/4/4 8:41:00
--  
是不是这样?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例1.table


--  作者:程兴刚
--  发布时间:2012/4/4 9:40:00
--  
楼主要动手,不要仅仅想当然,二楼告诉您的那个事件正是您的需要!
--  作者:新福星
--  发布时间:2012/4/4 10:46:00
--  
多谢各位老师,我不是想的,我在多个事件下做了试验都没有达到 ComboBox控件启动输入助手的那个效果
--  作者:xongyijd
--  发布时间:2012/4/4 10:49:00
--  

Dim q As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim w As String = q.Text
If w = "" Then
    Tables("表A").Filter = ""
Else
    w = "\'*" & w & "*\'"
    Tables("表A").Filter = "第一列  Like " & w & ""
End If

 

这样

[此贴子已经被作者于2012-4-4 10:51:55编辑过]

--  作者:新福星
--  发布时间:2012/4/4 10:54:00
--  
我又一次试textChange事件,和 启动输入助手的区别是, textChange事件是在输入完后必须离开这个控件时才触发这个事件,而 输入助手 是录完一个汉字后,立即下面就跟随显示出来了!请各位大师费心
--  作者:xongyijd
--  发布时间:2012/4/4 11:04:00
--  
你发文件吧,我试了是达到你的要求呀