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

نسخة كاملة : إضافة أيام للتاكس بكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
من فضلكم اخواني كيف يمكن لما اختار رقم من الكومبوبوكس يطلعلي بالتاكست بوكس 3 تاريخ اليوم يلي بتاكست1 زائد عدد الايام يلي اخترتهم بالتاكست 2
تاكست 3 يساوي تاكست 1 زائد تاكست 2
شكرا كثيرا وبارك الله فيكم
وعليكم السلام ورحمة الله وبركاتة

كود :
   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       TextBox2.Text = ComboBox1.Text

       ' يجب التحويل إلى تاريخ أولا للقيام بعملية إضافة عدد الأيام
       Dim MyDate As Date = TextBox1.Text
       ' تحويل عدد الأيام من نص إلى رقم
       Dim NumberOfDaysToAdd As Integer = TextBox2.Text

       ' MyDate الموجودة في التاريخ AddDays الآن نستخدم الوظيفة
       TextBox3.Text = MyDate.AddDays(NumberOfDaysToAdd)

   End Sub


الوظيفة AddDays تقوم بإظافة عدد الأيام ثم ترجع التاريخ الجديد بعد الإظافة



المشروع بعد التعديل :
[attachment=17654]
ربنا يبارك فيك استاذ عبد الله الدوسري.تمام هذا المطلوب جزاك الله خير مع الشكر