(04-12-15, 02:46 PM)HASAN6.0 كتب : هل المطلوب اضافة b  ثم  c ثم e  هكذا ؟

(04-12-15, 05:18 PM)حريف برمجة كتب : وعليكم السلام ،،،
هذا هو الكود المطلوب .

كود :

 TextBox2.Text = TextBox1.Text.Substring(1, 3) & "a"
       TextBox3.Text = TextBox1.Text.Substring(1, 3) & "b"
       TextBox4.Text = TextBox1.Text.Substring(1, 3) & "c"
       TextBox5.Text = TextBox1.Text.Substring(1, 3) & "d"
       TextBox6.Text = TextBox1.Text.Substring(1, 3) & "e"

       TextBox7.Text = TextBox1.Text.Substring(1, 2) & "ba"
       TextBox8.Text = TextBox1.Text.Substring(1, 2) & "bb"
       TextBox9.Text = TextBox1.Text.Substring(1, 2) & "bc"
       TextBox10.Text = TextBox1.Text.Substring(1, 2) & "bd"
       TextBox11.Text = TextBox1.Text.Substring(1, 2) & "be"

       TextBox12.Text = TextBox1.Text.Substring(1, 2) & "ca"
       TextBox13.Text = TextBox1.Text.Substring(1, 2) & "cb"
       TextBox14.Text = TextBox1.Text.Substring(1, 2) & "cc"
       TextBox15.Text = TextBox1.Text.Substring(1, 2) & "cd"
       TextBox16.Text = TextBox1.Text.Substring(1, 2) & "ce"

       TextBox17.Text = TextBox1.Text.Substring(1, 2) & "da"
       TextBox18.Text = TextBox1.Text.Substring(1, 2) & "db"
       TextBox19.Text = TextBox1.Text.Substring(1, 2) & "dc"
       TextBox20.Text = TextBox1.Text.Substring(1, 2) & "dd"
       TextBox21.Text = TextBox1.Text.Substring(1, 2) & "de"

       TextBox22.Text = TextBox1.Text.Substring(1, 2) & "ea"
       TextBox23.Text = TextBox1.Text.Substring(1, 2) & "eb"
       TextBox24.Text = TextBox1.Text.Substring(1, 2) & "ec"
       TextBox25.Text = TextBox1.Text.Substring(1, 2) & "ed"
       TextBox26.Text = TextBox1.Text.Substring(1, 2) & "ee"

(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

(04-12-15, 07:21 PM)hamada558 كتب : بسيطة

كود :

textBox.Text = "aaa" & Chr(Asc("a") + y) & Chr(Asc("a") + x)

---

اقصد aa بدل aaa