*.* 所有类型所有文件
目前成都创新互联已为上千家的企业提供了网站建设、域名、虚拟空间、网站托管、服务器租用、企业网站设计、巨野网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
| 回车上面 】的右边 、这个键按住shift
一个|的左右两边为一组 左边代表要显示给用户看的提示文本 右边代表具体要过滤的文件类型
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
这样就好啦
