Character and Numbers Validation

السلام عليكم ورحمة الله وبركاته

هذا الكود لعمل Validation للبيانات المدخلة من قبل المستخدم

 Public Function OnlyNumeric(ByVal Key As Integer) As Boolean
		If (Key >= 48 And Key <= 57) Or Key = 8 Or Key = 26 Then
			OnlyNumeric = False
		Else
			OnlyNumeric = True
		End If
	End Function

 Public Function OnlyCharacter(ByVal key As String) As Boolean
		If (key >= 65 And key <= 90) Or (key >= 97 And key <= 122) Or key = 8 Or key = 26 Then
			OnlyCharacter = False
		Else
			OnlyCharacter = True
		End If
	End Function

			e.Handled = OnlyNumeric(Asc(e.KeyChar))

			e.Handled = OnlyCharacter(Asc(e.KeyChar))

بالتوفيق ;)

تحياتى