[مالكـ]

تفضل اخي

لمنع الارقام

PHP كود :

If IsNumeric(e.KeyChar) Then
            e.Handled = True
            MessageBox.Show("لابد من ادخال حروف")
        End If 


لمنع الرموز

PHP كود :

Dim _allowedCharacters As String = ("?:<*&^%$##@؟!ّ")
        If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            e.Handled = True
        End If 


الكود كامل

PHP كود :

Public Class Form1

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If IsNumeric(e.KeyChar) Then
            e.Handled = True
            MessageBox.Show("لابد من ادخال حروف")
        End If

        Dim _allowedCharacters As String = ("?:<*&^%$##@؟!ّ")
        If _allowedCharacters.Contains(e.KeyChar) AndAlso e.KeyChar <> ChrW(Keys.Back) Then
            e.Handled = True
        End If

    End Sub
End Class