اجبار المستخدم على ادخال حروف فقط ؟؟؟

السلام عليكم

استخدمي هذا الكود للحروف الانجليزية وهو معروض من احد الاخوة من قبل وكان بشكل مختلف لغرض الارقام.

 If Not (Char.IsLetter(e.KeyChar) Or Char.IsControl(e.KeyChar)) Then
			e.Handled = True
		End If

أما اللغة العربية فحتاج إلى تقنية التعبير النظامي Regex بالتوفيق إن شاء الله.

اقتباس

لو عندي TextBox

وأريد المستخدم يقوم بادخال احرف واعداد انجليزية فقط وليست عربية

ماهو الكود المستخدم؟؟؟

السلام عليكم

استخدمي التعبير النظامي لحل هذه المشكلة على سبيل المثال :

اصنعي Module وضعي فيه هذا الكود

Imports System.Text.RegularExpressions

Module Rgex

#Region " Constant Variables "

	Const Phenomenon As String = "^[a-zA-Z0-9]\b"


#End Region

#Region " Validate Alphanumeric Letters "

	Public Function ValidateEachAlphanumeric(ByVal Letters As String) As Boolean
		Try
			Dim rx As New Regex(Phenomenon)
			Return rx.IsMatch(Letters)
		Catch ex As FormatException
			Throw ex
		Catch ex As Exception
			Throw ex
		End Try
	End Function


#End Region

End Module

ثم في حدث الضغط على ازرار لوحة المفاتيح keyPress

اكتبي الكود التالي:

 Private Sub KPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

		If Not ValidateEachAlphanumeric(e.KeyChar.ToString) Then
			e.Handled = True
		End If

		' if ' backspace key pressed or space key pressed
		If e.KeyChar = Microsoft.VisualBasic.ChrW(32) OrElse _
		e.KeyChar = Microsoft.VisualBasic.ChrW(8) Then
			e.Handled = False
		End If

	End Sub

بالتوفيق إن شاء الله.

(( عُذراً ))

أختي أحسن الله إليكِ , لا تشاركين بنفس الموضوع اكثر من مرة.

فقد يأتي الجواب في ساعة وقد يطول الانتظار الى أكثر من شهر.

وهذه دعوة عامة لقراءة قواعد الطرح و المشاركة قبل المضي في كتابةِ موضوعٍ ما.

السلام عليكم.

ValidateAlphaNumericTextBox.rar

يحبر المستخدم على عدم إدخال ارقام

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
		TextBox1.Select(TextBox1.Text.Length, 0)
		Dim s As Integer
		For n As Integer = 0 To 9
			Do Until s = -1
				s = TextBox1.Text.IndexOf(CStr(n))
				If s < 0 Then Exit Do

				TextBox1.Text = TextBox1.Text.Remove(s, 1)

			Loop
			s = 0
		Next

	End Sub

مسألة الارقام عربية او هندية

تعتمد على Regional and Language

هنالك تتم تهيئة الارقام و بالتحديد من digit substitution

طيب الكود يعمل على النسختين, فتبعي التعليمات في الاعلى لتطبق الشرح

السلام عليكم.

::

مرحبا أخي الغملاسي

عذراً ولكن في فقرة الكود في حدث الـ keypress

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
		If Not ValidateEachAlphanumeric(e.KeyChar.ToString) Then
			e.Handled = True
		End If

		' if ' backspace key pressed or space key pressed
		If e.KeyChar = Microsoft.VisualBasic.ChrW(32) OrElse _
		e.KeyChar = Microsoft.VisualBasic.ChrW(8) Then
			e.Handled = False
		End If
	End Sub

ChrW(32)

ChrW(8) ماذا تعني

لاحظت انه لا يتم ادخال علامة الـ @

هل هنالك من اضافة على الكود كي تتم كتابة الأحرف الخاصة؟؟

انتظر الرد أخوتي الكرام

الوردية

انا كنت منزل اداة جاهزة هل لم تكن تفي بالغرض؟

/index.ph...=113387&hl=

ام المطلوب الكود؟

Romantic_touch كتب:

انا كنت منزل اداة جاهزة هل لم تكن تفي بالغرض؟

/index.ph...=113387&hl=

ام المطلوب الكود؟

السلام عليكم,,,

الطريقة ChrW تقبل وسيطة من النوع عدد صحيح يمثل رمز الحرف وتعود بالحرف المقابل له بجدول الاسكى Ascii

جربى هذا الكود يسمح بطباعة الاحرف الانجليزية الكبيرة والصغيرة والارقام والاحرف الخاصة يكتب فى الحدث KeyPress

If Not e.KeyChar >= ChrW(32) Or Not e.KeyChar <= ChrW(172) Then
			e.Handled = True

		End If

بالتوفيق

جزاك الله خيراااااااااااااااااا

يعجبني تفكيرك يا SOLO.NET

كلامك صحيح 100%