[shady2020]

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

[shady2020]

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

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