Create a multi line textbox that can accept any type of character.
On passing a button ‘COUNT’ display total alphabets, numbers, and
special symbols In text.
Public Class app4
Dim s As String = ""
Dim i As Integer
Dim al, no, sp As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
al = 0
no = 0
sp = 0
s = TextBox1.Text
For i = 0 To s.Length - 1
If Asc(s(i)) >= 65 And Asc(s(i)) <= 90 Or Asc(s(i)) >= 97 And Asc(s(i)) <= 122 Then
al += 1
ElseIf Asc(s(i)) >= 48 And Asc(s(i)) <= 57 Then
no += 1
Else
sp += 1
End If
Next
Label3.Text = al
Label5.Text = no
Label7.Text = sp
'al = 0
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
' MsgBox(Asc(e.KeyChar))
End Sub
End Class
Made By: Yadav Roshani R. from Third Year of BCA
Comments
Post a Comment