منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مساعدة مشكلة وقت نسخ النص المعروض

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

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

كود :

 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)

(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)

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

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

shady2020

سامي محمد

shady2020