مساعدة مشكلة وقت نسخ النص المعروض

مساعدة مشكلة وقت نسخ النص المعروض - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة مشكلة وقت نسخ النص المعروض (/showthread.php?tid=34210)

مساعدة مشكلة وقت نسخ النص المعروض - shady2020 - 07-04-20

بوجدود هذا لكود في زر التالي بحيث ينتقل على السطر التالي وضعت خذا الكود ولكن توجد مشكلة وقت نسخ النص المعروض في Label1.Text اذا كان سطر فارغ وجربت كل الطرق ما زبط معي

اكيد الفكرة وصلت
ضغط زر التالي ينتقل على السطر الاخر ويعرض في Label1.Text ومن ثم ينسخ الموجود في Label1.Text
عندما يقابل اول سطر فارغ اول اخر سطر مع العلم انه موجود كوذ تفريغ السطور ولايكن بفضل السطر الاول والاخير موجود فية سطر فارغ فما الحل ؟؟؟
الحلول المطروحة

كتابة كود انة يتم الكتابة او لصق النص من اول سطر في TextBox2.Text تلقائيا بحيث لا يتم الصف او الكتابة في السطر الثاني

ارجو ان تكون الفكرة وصلت

المشكلة التي تظهر

System.ArgumentNullException: 'لا يمكن أن تكون القيمة فارغة.

اسم المعلمة: text'

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

TextBox2.Text = System.Text.RegularExpressions.Regex.Replace(TextBox2.Text, "\r\s+", vbNewLine)

        'التالي

        If i = TextBox2.Lines.Count - 1 Then i = -1

        i += 1

        Label1.Text = TextBox2.Lines(i)

        If TextBox2.SelectedText.Length = 0 Then MessageBox.Show("حدد رقم ليتم النسخ") : Exit Sub

        Clipboard.SetText(Label1.Text)

RE: مساعدة مشكلة وقت نسخ النص المعروض - سامي محمد - 07-04-20

لحذف الاسطر الفارغة بداية ونهاية النص وبين الاسطر ايضا ...... ضع الكود في زر وليس في حدث التابة للتكس

كود :

 TextBox2.Text = System.Text.RegularExpressions.Regex.Replace(TextBox2.Text, "\r\s+", vbNewLine)

        TextBox2.Text = System.Text.RegularExpressions.Regex.Replace(TextBox2.Text, "(^|$)\s+", "")

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

كود :

    If Label2.Text.Trim = Nothing Then MessageBox.Show("حدد النص المراد نسخة") : Exit Sub

        Clipboard.SetText(Label2.Text)

RE: مساعدة مشكلة وقت نسخ النص المعروض - shady2020 - 07-04-20

(07-04-20, 07:18 PM)سامي محمد كتب : لحذف الاسطر الفارغة بداية ونهاية النص وبين الاسطر ايضا ...... ضع الكود في زر وليس في حدث التابة للتكس

كود :

TextBox2.Text = System.Text.RegularExpressions.Regex.Replace(TextBox2.Text, "\r\s+", vbNewLine) TextBox2.Text = System.Text.RegularExpressions.Regex.Replace(TextBox2.Text, "(^|$)\s+", "")

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

كود :

If Label2.Text.Trim = Nothing Then MessageBox.Show("حدد النص المراد نسخة") : Exit Sub Clipboard.SetText(Label2.Text)

شكرا لك اخي سامي لجهودك نجح الكود والامور تمام ان شالله