كيفية اجبار المستخدم على ادخال التاريخ

إذا كان لديك على الفروم MaskedTextBox باسم MaskedTextBox1 وتريد التأكد من إدخال التاريخ بشكل صحيح نستخدم الحدث Validating لهذا الغرض بشكل شبيه بالتالي

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

		' التأكد من صحة التاريخ
		If Not IsDate(Me.MaskedTextBox1.Text) Then
			' إن لم يكن صحيحا
			' أظهر رسالة
			Dim msg As String = "You must enter a valid date"
			MsgBox(msg)
			' ألغي العملية
			e.Cancel = True
			' لايمكن للمستخدم الخروج من التحكم حتى يقوم بإدخال تاريخ صحيح
		End If

	End Sub

شكرا كتير كتير

شكرا كتير كتير

السلام عليكم ورحمة الله وبركاته

لو سمحت ما تقصد بال

MaskedTextBox

ولك جزيل الشكر

eng_seham كتب:

السلام عليكم ورحمة الله وبركاته

لو سمحت ما تقصد بال

MaskedTextBox

ولك جزيل الشكر

الـ MaskedTextBox باختصار هو تحكم يمكنك اعتباره TextBox مطور نستفيد منه في وضع شكل - Mask - نجبر فيه المستخدم على الإدخال بشكل معين نرغبه كتنسيق تاريخ مثلا أو غيرها من التنسيقات حسب حاجة برنامجك وهو من الأدوات الأساسية التي تأتي مع VB2005