If IsNumeric(tb_empFname.Text) = True Then
MessageBox.Show("ชื่อต้องเป็นตัวอักษรเท่านั้น", "Warning !!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
tb_empFname.Clear()
tb_empFname.Focus()
Exit Sub
End If
Private Sub MyText_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyText.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8
e.Handled = True
Case Else
End Select
End Sub
เอา เลข 8 ออก ก็จะสามารถใช้ Back space ได้ครับ เพราะ Asscii ของ Back space ก็คือ 8 ครับ Code (VB.NET)
Private Sub MyText_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyText.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57
e.Handled = True
Case Else
End Select
End Sub
Load balance : Server 04
