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

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