十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是过滤后的字符串,没有"TMD",
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:主机域名、网站空间、营销软件、网站建设、黄岩网站维护、网站推广。
还有:if textbox1.text.indexOf("TMD") -1 then exit sub
就这个之类的
Public Class Form1
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) Then '判断是否为数字
e.Handled = True ‘如果不是数字,取消操作,不显示字符
End If
End Sub
End Class
这样就好啦
这个功能非常不容易的,大致的流程如下
1,combobox 设置为编辑(重要)
2, 首先收起combobox(必要)
在文本框中,输入过滤字符时,循环combobox的记录,将满足条件的记录存放到数组,并且记录满足条件的记录的数量
然后,清空combobox
3 ,
数组(满足条件的记录)不为空,则将数组中的记录赋值给combobox,展开下拉框
如果 数组(满足条件的记录)为空,则收起combobox,重新载入所有记录
该功能在 路之遥软件网 中经常被使用,可以查看下
str = "hello,everybody. " 返回false,位置0。(不含汉字和汉语标点符号)
str = "hello,ererybody。 " 返回false,位置16。(最后一个句号是汉语标点符号)
先谢过大家了!