[moftah70]

(20-10-22, 02:32 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

هذا الكود بشكل مفصل (ولكن لا تنسى تعديل مكان تموضع التكست بوكس كل واحدة تحت الرقم الذي يشير إليها) :

كود :

       Dim RealFromDate = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)

       While RealFromDate <= DateTimePicker2.Value
           'MsgBox(RealFromDate.ToString(" MMM"))

           Select Case Val(RealFromDate.ToString("MM"))
               Case 1
                   TextBox1.Text = RealFromDate.ToString("MMMM")
               Case 2
                   TextBox2.Text = RealFromDate.ToString("MMMM")
               Case 3
                   TextBox3.Text = RealFromDate.ToString("MMMM")
               Case 4
                   TextBox4.Text = RealFromDate.ToString("MMMM")
               Case 5
                   TextBox5.Text = RealFromDate.ToString("MMMM")
               Case 6
                   TextBox6.Text = RealFromDate.ToString("MMMM")
               Case 7
                   TextBox7.Text = RealFromDate.ToString("MMMM")
               Case 8
                   TextBox8.Text = RealFromDate.ToString("MMMM")
               Case 9
                   TextBox9.Text = RealFromDate.ToString("MMMM")
               Case 10
                   TextBox10.Text = RealFromDate.ToString("MMMM")
               Case 11
                   TextBox11.Text = RealFromDate.ToString("MMMM")
               Case 12
                   TextBox12.Text = RealFromDate.ToString("MMMM")
           End Select

           RealFromDate = RealFromDate.AddMonths(1)
       End While

بارك الله فيك ورحم الله والديك واسأل الله ان يحفظك ويحميك انت مبدع ماشاء الله تبارك الله الله يزيدك من علمه ويسدد خطاك لما فيه الخير والصلاح
هذا مااريده بالضبط الله ينور عليك ويرحم والديك