[Rabeea Qbaha]

صديقي ارفق المشروع و اشرح لي ما الذي تريده بالضبط

هل ال rich سوف تاخذ من textbox واحد فقط ام من جميع textboxs التي بالفورم 

اذا من الكل استخدم الاتي :

كود :

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox1.Text
               TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox1.Text
               'TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
               TextBox1.Clear()
           End If
           TextBox2.Select()
       End If
   End Sub

   Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox2.Text
               TextBox2.Text = TextBox2.Text.Substring(0, TextBox2.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox2.Text
               'TextBox2.Text = TextBox2.Text.Substring(0, TextBox2.Text.Length - 1)
               TextBox2.Clear()
           End If
           TextBox3.Select()
       End If
   End Sub

   Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox3.Text
               TextBox3.Text = TextBox3.Text.Substring(0, TextBox3.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox3.Text
               'TextBox3.Text = TextBox3.Text.Substring(0, TextBox3.Text.Length - 1)
               TextBox3.Clear()
           End If
           TextBox4.Select()
       End If
   End Sub

   Private Sub TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox4.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox4.Text
               TextBox4.Text = TextBox4.Text.Substring(0, TextBox4.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox4.Text
               ' TextBox4.Text = TextBox4.Text.Substring(0, TextBox4.Text.Length - 1)
               TextBox4.Clear()
           End If
           TextBox5.Select()
       End If
   End Sub
   Private Sub TextBox5_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox5.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox5.Text
               TextBox5.Text = TextBox5.Text.Substring(0, TextBox5.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox5.Text
               'TextBox5.Text = TextBox5.Text.Substring(0, TextBox5.Text.Length - 1)
               TextBox5.Clear()
           End If
           TextBox6.Select()
       End If
   End Sub
   Private Sub TextBox6_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox6.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox6.Text
               TextBox6.Text = TextBox6.Text.Substring(0, TextBox6.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox6.Text
               'TextBox6.Text = TextBox6.Text.Substring(0, TextBox6.Text.Length - 1)
               TextBox6.Clear()
           End If
           TextBox7.Select()
       End If
   End Sub
   Private Sub TextBox7_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox7.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox7.Text
               TextBox7.Text = TextBox7.Text.Substring(0, TextBox7.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox7.Text
               'TextBox7.Text = TextBox7.Text.Substring(0, TextBox7.Text.Length - 1)
               TextBox7.Clear()
           End If
           TextBox8.Select()
       End If
   End Sub
   Private Sub TextBox8_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox8.KeyDown
       If e.KeyCode = Keys.Enter Then
           If RichTextBox1.Text = "" Then
               RichTextBox1.Text = TextBox8.Text
               TextBox8.Text = TextBox8.Text.Substring(0, TextBox8.Text.Length - 1)
           Else
               RichTextBox1.Text = RichTextBox1.Text + vbNewLine + TextBox8.Text
               'TextBox8.Text = TextBox8.Text.Substring(0, TextBox8.Text.Length - 1)
               TextBox8.Clear()
           End If
       End If
   End Sub

عند الضغط على زر enter سيقوم بالعمليه