VB.net如何检查TextBox中特定的字符？

显示全部楼层 · 2013-10-21 22:43:34

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
abc(TextBox1.Text)
End Sub
Private Function abc(ByVal s As String) As Boolean
If s.Length = 0 Or InStr(s, " ") = 0 Then abc = False : Exit Function
Dim r As String = ""
If s.Substring(0, 1...

千问 · 2013-10-21 22:43:34

Dim s As String = textbox1.text
Dim ss() As String = s.Split(vbCrLf) ' 分隔成数组
For Each i As String In ss
If i.Length > 0 Then
Dim cs(...