Для того что бы проверить какое количество букв в поле, необходимо
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Dim q As String = TextBox1.Text Dim chCode As Integer = 0 Dim count As Integer = 0 For Each ch As Char In q chCode = AscW(ch) 'код символа из таблицы юникода If (chCode > 1039 And chCode < 1104) Or chCode = 1025 Or chCode = 1105 Then 'А-Я - 1040-1071, а-я - 1071-1103, Ё - 1025, ё - 1105 count += 1 End If Next TextBox2.Text = count.ToString() |