Memeriksa Karakter yang Diinput di TextBox

PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
1.	TextBox	1	MultiLine	True
2.	Frame	1	Caption	Informasi karakter:
3.	Label	8	Caption	Upper Case :	Label1.Capion
				Lower Case :	Label2.Caption
				Alpha :	Label3.Caption
				Alpha / Numeric :	Label4.Caption
			Name(Index)	INFo(0)	Label5.Caption
				INFo(1)	Label6.Caption
				INFo(2)	Label7.Caption
				INFo(3)	Label8.Caption

Gambar Memeriksa Karakter yang Diinput di TextBox

Masukkan souce ini ke dalam Form :Private Sub Text1_KeyPress(KeyAscii As Integer) INFo(0).Caption = IsCharUpper(KeyAscii) INFo(1).Caption = IsCharLower(KeyAscii) INFo(2).Caption = IsCharAlpha(KeyAscii) INFo(3).Caption = IsCharAlphaNumeric(KeyAscii) End Sub

Masukkan souce ini ke dalam Module :Declare Function IsCharUpper Lib "user32" Alias "IsCharUpperA" (ByVal cChar As Byte) As Long Declare Function IsCharLower Lib "user32" Alias "IsCharLowerA" (ByVal cChar As Byte) As Long Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA" (ByVal cChar As Byte) As Long Declare Function IsCharAlphaNumeric Lib "user32" Alias "IsCharAlphaNumericA" (ByVal cChar As Byte) As Long