[الاصيله]

(04-12-15, 06:34 PM)hamada558 كتب : شوفي هاد الكود يمكن تطلعني منه بفكره

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       For y = 0 To 4
           For x = 0 To 4
               Dim textBox As New TextBox
               textBox.Text = Chr(Asc("a") + y) & Chr(Asc("a") + x)
               textBox.Location = New Point(100 + ((textBox.Width + 5) * x), 100 + ((textBox.Height + 5) * y))
               Me.Controls.Add(textBox)
           Next
       Next
   End Sub

شكرا لك هذا الكود جدا رائع لكنه يعرض حرفين في كل صندوق نص لو اردنا ان نجعله يعرض كالتالي المربع الاول aaaa والثاني aaab والثالث aaac الى المربع الخامس من المصفوفه ثم السطر الثاني يكون aaba,aabb,aabc,aabd,aabe ثم السطر الثالث يكون aaca,aacb,aacc,aacd,aace وهكذا الى السطر الخامس من المصفوفه كما في المثال المرفق كيف سيكون الكود مع خالص الشكر والتقدير