السلام عليكــم ورحمـة الله وبركاتــه ،،
ارجوكم اين الخطا فى هدة الجملة
اريد زيادة سنة للتاريخ
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
TextBox1.Text = DateAdd(DateInterval.Year, 10, CDate(DateTimePicker1.Text))
End Sub
TextBox1.Text = DateAdd(DateInterval.Year, 1, CDate(DateTimePicker1.Text))
اسف حدث خطا
TextBox1.Text = DateAdd(DateInterval.Year, 1, CDate(DateTimePicker1.Text))
اخي الكريم الكود صحيح ولكن مكانه غير صحيح
يجب عليك ان تضعه داخل button
السبب
لان الحدث في DateTimePicker1 هو ValueChanged
اي عند التغيير وهدا لايصلح لان DateTimePicker1 تتغير مع الوقت للجهاز
لدلك يجب استخدام button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = DateAdd(DateInterval.Year, 1, CDate(DateTimePicker1.Text)) End Sub
هكدا الكود يجب ان يكون وهو مجرب
بالتوفيق اخي الكريم
تم تعديل هذه المشاركة بواسطة عبدالرحمن المرشود في 18 يوليو 2009 في 11:21
بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم