تحديث ايقونة التنبيه للتاريخ

للامانه لم احمل المرفق و لكن يبدو ان المشكله في انك ادخلت قيمه لكن هذه القيمه لم تظهر الا بعد اعادة تشغيل الرن تايم

هناك خيار وهو اضغط على الفورم لتنشيطه في وضع التصميم و من ايفنت اي حدث اختر اكتيفيتيد اي تنشيط و اضغط عليه مرتان لكي يضهر لك الحدث و ما تريد ان تفعله في حالة التنشيط

KJLQ8 كتب:

للامانه لم احمل المرفق و لكن يبدو ان المشكله في انك ادخلت قيمه لكن هذه القيمه لم تظهر الا بعد اعادة تشغيل الرن تايم

هناك خيار وهو اضغط على الفورم لتنشيطه في وضع التصميم و من ايفنت اي حدث اختر اكتيفيتيد اي تنشيط و اضغط عليه مرتان لكي يضهر لك الحدث و ما تريد ان تفعله في حالة التنشيط

شكرا اخي الكريم KJLQ8 على المساعدة...

سـ أجرب وضع الكود ضمن الحدث Form Activated وبشوف النتيجة...

تحياتي لك...

لم يعمل الكود ضمن الحدث Form Activated :(

للتوضيح اكثر:

المشروع به 3 Datetimepicker و3 ايقونات مختلفة للتنبيه عند اختلاف التواريخ عن التاريخ الحالي موجودة ضمن Resources

الكود كاملا للمشروع:

Public Class Form1


	Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
		My.Settings.Save()
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", _
		Global.DateTimeAlert.My.MySettings.Default, "Date1", _
		True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))

		Me.DateTimePicker2.DataBindings.Add(New System.Windows.Forms.Binding("Value", _
		Global.DateTimeAlert.My.MySettings.Default, "Date2", _
		True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))

		Me.DateTimePicker3.DataBindings.Add(New System.Windows.Forms.Binding("Value", _
		Global.DateTimeAlert.My.MySettings.Default, "Date3", _
		True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))


		ShowErrorIcon(DateTimePicker1)
		ShowErrorIcon(DateTimePicker2)
		ShowErrorIcon(DateTimePicker3)
	End Sub

	Private Sub ShowErrorIcon(ByVal dtPicker As DateTimePicker)

		Dim errProvider As ErrorProvider

		Try
			errProvider = New ErrorProvider
			errProvider.SetIconPadding(dtPicker, 3)

			Select Case DateDiff(DateInterval.Day, Now, dtPicker.Value)
				Case Is > 2
					errProvider.Icon = My.Resources.OK
					errProvider.SetError(dtPicker, "more than two days")
					errProvider.BlinkStyle = ErrorBlinkStyle.NeverBlink

				Case Is < 1

					errProvider.Icon = My.Resources.Urgent
					errProvider.SetError(dtPicker, "less than one day")
					errProvider.BlinkStyle = ErrorBlinkStyle.NeverBlink


				Case Else

					errProvider.Icon = My.Resources.Attention
					errProvider.SetError(dtPicker, "between one and two days")
					errProvider.BlinkStyle = ErrorBlinkStyle.NeverBlink

			End Select
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try


	End Sub



End Class

ارجو المساعدة في كود تحديث ايقونة التواريخ اثناء تغير قيمة التواريخ عندما يكون الفورم شغال Form runtime