textchanged事件,写代码
Dim txt As String = e.Sender.TextIf txt > "" Then Dim pattern As String = "[*? ]" Dim str As String = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"") e.Sender.Text = str e.sender.SelectionStart = str.LengthEnd If