منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم الاخوة الاعزاء

انا عملت مشروع بسيط بحيث اي قيمة اكتبها في ال TextBox

تنتقل الي ال RichBox

ولكن تنتقل المعلومات بجانب بعضها في ال RichBox

وانا اريد ان تنتقل المعلومات من كل TextBox  في سطر منفصل

اي التكست بوكس الاول يكون في السطر الاول في ال Rich box

و التكست بوكس الثاني يكون في السطر الثاني في ال Rich box


وهكذا

برجاء فحص المرفقات

مع الشكر

(26-11-17, 12:21 AM)Rabeea Qbaha كتب : [ -> ]

كود :

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

السلام عليكم

شكرا اخي الحبيب علي المشاركة 
نفذت الكود ولكن وجدت حروف التكست بوكس تكتب بشكل راسي كما بالصورة

مع الشكر

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

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

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


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

(26-11-17, 03:34 AM)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 سيقوم بالعمليه

 

مشكووووور يا هندسة

الكود يعمل تمام

مع جزيل الشكر

وربنا يبارك فيك وفي علمك يارب

الاخ خالد السلام علكيم قد يساعدك الكود التالي فانه مختصر وجزى الله خيرا الاخ الذي وضح لك حل المشكلة لكن لاحظ هذا الكود يضمن لك حذف الفرغات من النص في حالة الضغط على مفتاح المسطرة (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

(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

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


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

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