[moftah70]

(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

بصراحة اجد نفسي عاجزاً عن شكرك فمهما انتقيت من كلمات لن اوفيك حقك ولكن لا يمكنني الا ان اقول رحم الله البطن التي انجبتك