كيف يتم عدم نقل التركيز من مربع نص الي مربع نص آخر

يتم ذلك بمعالجة الحدث Validating لـ TextBox وعندما لايتحقق الشرط الذي تريد استخدم e.Cancel = True لمنع انتقال التركيز إلى التحكم التالي

مثال

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

		If CDate(TextBox1.Text) < CDate("14-02-2007") Then
			MsgBox("What ever")
			e.Cancel = True
		End If

	End Sub

جواب الاستاذ محمد صحيح

بس حبيت اضيف بعض التعديلات للتأكد من حاجتين :

1. تحويل التاريخ من نص الى تاريخ

2. اخذ تاريخ اليوم بنفس صيغة التاريخ المدخل وعلى هيئة تاريخ لا نص

وطلع معاي الكود التالي

Dim d1 As Date = Date.TryParseExact(T4.Text, "dd/MM/yyyy", New Globalization.CultureInfo("en-us"))
		If d1 < Format(Today, "dd/MM/yyyy") Then
			MsgBox("What ever")
			e.Cancel = True
		End If

الكود على 2005

اخواني الكرام

أشكركم بعمق علي المجهودات المبذولة من أجل مساعدتي ومساعدة جميع الاعضاء

الاخ Scoool

اضافتك زادت المشاركة حلاوة

شكرا لك

وشكر خاص لاستاذنا محمد سامر

أخواني الافاضل

إواجه مشكلة في هذا الكود ولا استطيع الوصول للحل الصحيح

Private Sub MaskedTextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MaskedTextBox1.Validating
		If MaskedTextBox1.Text < Now().ToString("dd/MM/yyy") Then
			MsgBox("لا يمكن تسجيل بيانات بتاريخ سابق", MsgBoxStyle.Critical, "warning")
			e.Cancel = True
		End If
	End Sub

عند كتابة تاريخ اليوم تظهر الرساله تفيد بأنني لا يمكن تسجيل بيانات بتاريخ سابق مع ان تاريخ اليوم ليس تاريخ سابق

وعند كتابة تاريخ غدا لا تظهر هذه الرساله

فبرجاء مساعدتي في هذه المشكلة

علماً بأنني استخدم VB.net 2005

أيضاً الكود المطروح من الاخ Schoool يعطيني أخطاء كما هو موضح في الصورة

ايه الحل

أخواني الافاضل

المشكلة كلها تكمن في الاتي

لو تم عمل MaskedTextBox1 لا يعمل الكود بالطريقة الصحيحة . .

أما في حاله عمل مربع نص عادي Textbox1 يعمل الكود زي الحلاوة

فبرجاء الافاده لماذا الكود لا يعمل بالطريق الصحيحة في MaskedTextBox1

شكرا لكم