تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة مشكلة وقت نسخ النص المعروض
#1
Photo 
بوجدود هذا لكود في زر التالي بحيث ينتقل على السطر التالي وضعت خذا الكود  ولكن توجد مشكلة وقت نسخ النص المعروض في 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)
الرد
تم الشكر بواسطة:
#2
لحذف الاسطر الفارغة  بداية ونهاية النص وبين الاسطر ايضا ...... ضع الكود في زر وليس في حدث التابة للتكس

كود :
 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)
الرد
تم الشكر بواسطة: ابو روضة
#3
(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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] اظهار نص عند تحرك النص على جزء معين من Picturebox Doctor GME 3 39 , 04:13 AM
آخر رد: ابراهيم ايبو
  [VB.NET] مساعدة في كود لفاتورة مشتريات stiger 2 62 , 01:34 PM
آخر رد: stiger
  [سؤال] مشكلة , برنامج عند فتحه يقفل وكان يعمل قبل كدا aqarfinder 2 54 29-05-20, 12:56 AM
آخر رد: ابراهيم ايبو
  مساعدة في خل مشكلة فيجوال بيسك mennad sofiane 4 75 28-05-20, 03:10 AM
آخر رد: mennad sofiane
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 75 27-05-20, 11:49 PM
آخر رد: momani33
  مشكلة معقدة بعرض البيانات بالدتاجريد على ما فكرت فيها لم اجد لها حل ابو محمد محمد محمد 10 268 24-05-20, 12:16 PM
آخر رد: ابو محمد محمد محمد
  مشكلة رسالة overflow لمابعمل حفظ mazentq 3 68 24-05-20, 08:46 AM
آخر رد: mazentq
  [سؤال] مشكلة في اتصال قاعدة البيانات اكسس mazentq 9 200 24-05-20, 08:45 AM
آخر رد: mazentq
  مشكلة webbrowser بالتعامل مع المواقع Basil Abdallah 0 37 22-05-20, 08:18 AM
آخر رد: Basil Abdallah
  هل مساعدة developermedo111 2 57 21-05-20, 05:57 AM
آخر رد: developermedo111

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم