سؤال بشان التكست بوكس

الطريقة التي تستخدمها جيدة

وإذا أردت القيام بذلك بشرط واحد يمكنك استخدام Regular Expressions

تابع الموضوع التحقق من السلاسل النصية والأرقام والتواريخ, باستخدام Regular Expressions ففيه شرح كافي عن استخدامها لهذه الأغراض

عفوا بس انا بستحدم vb.net 2003 ولما استعملت الطريقة هي ما اشتغلت

هل استخدمت الاستيراد التالي في بداية ملفك

Imports System.Text.RegularExpressions

التعابير النظامية Regular Expressions ليست خاصة بـ 2005 هذا الدرس يستفيد منه كل من يعملون على الـ 2002 و الـ 2003 و الـ 2005

ضع الكود الذي لم يعمل معك ليصححه الاخوان في المنتدى

Imports System.Textbox1.text.RegularExpressions

	Dim pa As String
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		pattern = "$"
		If Regex.IsMatch(Text, pattern) Then
			MsgBox("false")
		Else
			pa = TextBox1.Text
		End If
		MsgBox("data save")
	End Sub
End Class

يعيني لو سمحت ترفق مثال وشكرا كتيييييييييييييييييييييييير

جرب التالي

Imports System.Text.RegularExpressions

	Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
		Dim pattern As String = "\D"
		If Not Regex.IsMatch(TextBox1.Text, pattern) Then
			MsgBox(True)
		Else
			MsgBox(False)
		End If
	End Sub

سوري غلبتك معاي بس مازبط في المرفقات في صورة علي البيطلع معاي وشكرا

يرجى شرح المشكلة بالتفصيل - لم أرى مرفقات

Imports System.Text.RegularExpressions في خط تحت جملة imports مع ان هاي الجملة بالون الازرق

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

Dim pattern As String = "\D"

If Not Regex.IsMatch(TextBox1.Text, pattern) Then في خط تخت جملة regex

MsgBox(True)

Else

MsgBox(False)

End If

End Sub

End Class

الخطاء الاول هو ( 'Imports' statements must precede any declarations)

الخطاء الثاني هو ( 'Regex' is not declared.)

مع ان Imports System.Text.RegularExpressions في منطقة declarations

يبدو أنك وضعت عبارة imports في المكان الخطأ

عبارة Imports يجب أن تظهر في بداية الملف قبل كل شئ وحتى قبل تعريف كلاس Form يعني أول سطر بالملف

انظر الصورة المرفقة

شكرا كتير كتير يسلمو ايدك وشكراااااااااااااااااااااااااااااااااااااااا كتيرررررررررررررررررررررررررررررررررررررررررررررررررررررررررررر

ضع Imports System.Text.RegularExpressions في اول الصفحة اي خارج اي كلاس

او استخدمة هكذا

Dim pattern As String = "\D"
If Not System.Text.RegularExpressions.Regex.IsMatch(TextBox1.Text, pattern) Then
	MsgBox(True)
Else
	 MsgBox(False)
End If