[khaled12345]

(04-12-17, 09:47 PM)المهندس الاول كتب : الاخ خالد السلام علكيم قد يساعدك الكود التالي فانه مختصر وجزى الله خيرا الاخ الذي وضح لك حل المشكلة لكن لاحظ هذا الكود يضمن لك حذف الفرغات من النص في حالة الضغط على مفتاح المسطرة (space) والله الموفق

 Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown

        If e.KeyCode = Keys.Enter Then

            If RichTextBox1.Text = "" Then
                RichTextBox1.Text = Trim(sender.Text)
            Else
                RichTextBox1.Text = RichTextBox1.Text + vbNewLine + sender.Text
            End If
            sender.Clear()
        End If

    End Sub

وعليكم السلام  ورحمة الله وبركاته اخي الحبيب


و ربنا يبارك فيك يا هندسة وفي علمك يارب

مع جزيل الاحترام والشكر