تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة//سبب هذه المشكلة وقت تنفيذ البرنامج
#1
السلام عليكم 
ما هي سبب هذه المشكلة وقت تنفيذ البرنامج
البرنامج يعمل بشكل طبيعي جدا في حالة الكتابة اليدوية من الكيبورد (لوحة المفاتيح) عند الضغط على زر التالي او السابق يتم النزول للسطر التالي والعكس في زر السابق 
ولكن المشكلة اذا نسخت نص خارجي  ولصقته في textbox   او اختصار الصق (ctrl+ v) مثلاً مجموعة ارقام في اكسل و عند الضغط على زر التالي اخر سطر تضهر رسالة "حدد الرقم المراد نسخة" في حين انه محدد  وعند الظغط على موافق يرجع التحديد من اول السطر من جديد وهكذا 
هذه المشكلة تحدث فقط وقت النسخ واللصق من مستند نص او اكسل او اية بيانات لم تدخل كتابة يدوية على لوحة المفاتيح 
وفي حال كتابة الارقام يدويا لم تظهر هذه الرسالة وعند الوصول لنهاية السطر الاخير ترجع من اول السطر من جديد دون اية مشاكل او رسائل ادخل الرقم

وممكن كود كتابة رقم السطر الذي يحدده الماوس مثلا عندنا 100 رقم وكان المحدد رقم 30ان يكتب رقم السطر في التحديد في label5  رقم 30

مرفق صورة توضيحية + الكود المستخدم 

ارجو ان تكون المشكلة واضحة وان يوجد لها حل 

كود :
Public Class Form1
   Dim i As Integer = -1
   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)
       TextBox2.Text = System.Text.RegularExpressions.Regex.Replace(TextBox2.Text, "(^|$)\s+", "")

       'التالي
       If i = TextBox2.Lines.Count - 1 Then i = -1
       i += 1
       Label1.Text = TextBox2.Lines(i)
       If Label1.Text.Trim = Nothing Then MessageBox.Show("حدد النص المراد نسخة") : Exit Sub
       'If TextBox2.SelectedText.Length = 0 Then MessageBox.Show("حدد الرقم المراد نسخة")
       Clipboard.SetText(Label1.Text)
       My.Computer.Clipboard.SetText(Label1.Text)
       TextBox2.Select(TextBox2.GetFirstCharIndexFromLine(i), Label1.Text.Length)
   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف اضيف صوت تنبيه عند انتهاء وقت محدد في البرنامج mazentq 5 73 , 10:16 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف يتم برمجة البرنامج عند نهاية الشهر باصدار صوت او رنين rochdi191 9 111 , 08:37 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف يتم برمجة البرنامج عند نهاية الشهر باصدار صوت rochdi191 4 81 22-05-20, 11:34 PM
آخر رد: rochdi191
  ما سبب هذة المشكلة vb-2010 new_programer 1 57 22-05-20, 06:18 PM
آخر رد: alsouf
  هل مساعدة developermedo111 2 51 21-05-20, 05:57 AM
آخر رد: developermedo111
  تثبيت البرنامج علي نظام أبل محمد نافع 3 1,144 15-05-20, 03:39 PM
آخر رد: أمجد وضاح
  السلام عليكم محتاج مساعدة .؟؟؟ nazarakrawi 5 136 10-05-20, 09:38 AM
آخر رد: asemshahen5
  سوال محتاج مساعدة بسيطة في كود برمجي العطر الرايق 2 84 10-05-20, 02:20 AM
آخر رد: العطر الرايق
  [VB.NET] مشكلة في تنصيب البرنامج عند العميل بعد الانتهاء Codack 7 195 08-05-20, 07:21 PM
آخر رد: Codack
  مساعدة في انشاء TextBox مثل هذا Mustafa Shaker 7 197 06-05-20, 01:56 PM
آخر رد: paveldida

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


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