منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي اثنين DateTimePicker

اريد اذا غيرت قيمة picker1 تتغير معاها picker2 
ولكن التغير يكون بالنسبة للسنة والشهر فقط
اما بالنسبة لقيمة اليوم في picker2 ف يعطيني اخر يوم بالشهر

هل في طريقة اسويها لاني عجزت 
الله يسعدكم
(09-11-23, 05:42 AM)Adel27213 كتب : [ -> ]عندي اثنين DateTimePicker

اريد اذا غيرت قيمة picker1 تتغير معاها picker2 
ولكن التغير يكون بالنسبة للسنة والشهر فقط
اما بالنسبة لقيمة اليوم في picker2 ف يعطيني اخر يوم بالشهر

هل في طريقة اسويها لاني عجزت 
الله يسعدكم

في الحدث valuechanged للpicker1
كود :
Private Sub picker1_ValueChanged(sender As Object, e As EventArgs) Handles picker1.ValueChanged
   Dim a = Date.DaysInMonth(picker1.Value.Year, picker1.Value.Month)
   picker2.Value = New Date(picker1.Value.Year, picker1.Value.Month, a)
End Sub
(09-11-23, 12:22 PM)Ashraf10 كتب : [ -> ]
(09-11-23, 05:42 AM)Adel27213 كتب : [ -> ]عندي اثنين DateTimePicker

اريد اذا غيرت قيمة picker1 تتغير معاها picker2 
ولكن التغير يكون بالنسبة للسنة والشهر فقط
اما بالنسبة لقيمة اليوم في picker2 ف يعطيني اخر يوم بالشهر

هل في طريقة اسويها لاني عجزت 
الله يسعدكم

في الحدث valuechanged للpicker1
كود :
Private Sub picker1_ValueChanged(sender As Object, e As EventArgs) Handles picker1.ValueChanged
   Dim a = Date.DaysInMonth(picker1.Value.Year, picker1.Value.Month)
   picker2.Value = New Date(picker1.Value.Year, picker1.Value.Month, a)
End Sub
يعطيك العافية اخوي ما قصرت