كيف يمكنني تعطيل أيام نهاية الإسبوع من الرزنامة

أهلا فرح 7 ...

حسنا ، حسب ما فهمته ... إن لم أكن مخطئة ..

مطلوب من المستخدم تحديد تاريخ معين ...

الحقل لتحديد التاريخ ، يتم عرض بواسطة الـ Calender Control ..

في حالة ، تحديد أحد أيام العطل .. يتم ظهور للمستخدم تفيد بعدم إمكانية ذلك ...

و كذلك ، عدم تمكين المستخدم من تحديدها ...

حسنا ...اذا كان ذلك صحيحا ...

هذا الكود سوف يعمل معك بإذن الله ...

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged</P> 
		'Name of Day
		Dim day As String = Calendar1.SelectedDate.DayOfWeek.ToString()</P> 
		'Date 
		Dim SDate As Date = Calendar1.SelectedDate()</P> 
 </P> 

		If day = "Friday" Then</P> 
			'Change selected date to next week "Saturday"
			Dim sss As Date = SDate.AddDays(1)
			Calendar1.SelectedDate = sss</P> 
			'Inform User
			MsgBox("This day is not available for selecting! ", MsgBoxStyle.OkOnly, "Warning")</P> 

		End If</P> 
	End Sub

المرجع :

http://www.thescripts.com/forum/thread338100.html

، تحياتي لك.