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

(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

(20-10-22, 02:50 PM)Taha Okla كتب : [ -> ]وهذا كود آخر إن فهمته فهو أفضل، ولكن الأول هو أبسط للفهم :

كود :

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

       Dim x As Integer

       While RealFromDate <= DateTimePicker2.Value

           For Each c As TextBox In Me.Controls.OfType(Of TextBox)()
               x = Val(Replace(c.Name, "TextBox", ""))
               If x = Val(RealFromDate.ToString("MM")) Then
                   c.Text = RealFromDate.ToString("MMMM")
               End If
           Next

           RealFromDate = RealFromDate.AddMonths(1)
       End While