
470 SOF T WARE ENGINEERING AND TESTING
5. End If
End Sub
2. Validation for Characters
Syntax
Private Sub Text1_KeyPress(KeyAscii As Integer)
1. If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And
KeyAscii <= 122) Or (KeyAscii = vbKeyBack) Or (KeyAscii =
vbKeySpace) Then
2. Exit Sub
3. Else
4. KeyAscii = 0
5. End If
End Sub
3. Validation for Float Numbers
Syntax
Private Sub Text1_KeyPress(KeyAscii As Integer)
1. If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or (KeyAscii =
vbKeyBack) Or (KeyAscii = 46)
2. Then
3. Exit Sub
4. Else
5. KeyAscii = 0
6. End If
End Sub
26.3 OTHER ERROR-HANDLING METHODS
On Error GoTo
When ...