+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة/// كود تمير بتحديد لون وقت النسخ (/showthread.php?tid=34223)
مساعدة/// كود تمير بتحديد لون وقت النسخ - shady2020 - 08-04-20
عملت برنامج عند الضغط على زر التالي يتم النزول للرقم التالي وزر السابق العكس في قائمة textbox ويتم عرض الرقم في اعلى البرنامج وقت الضغط على الزر ولكن المشكلة
انه لم يتم النزول في التحديد الازرق على الرقم الذي تم اختيارو
بمعنى انه كل ما يتم ضغط الزر على التالي او السابق يجب ان يتم تحديد الرقم المختار بلون او بتحديد الماوس (التضليل) في قائمة الارقام textbox
فرضنا عندنا 100 رقم ووصلنا لرقم 50 اكيد مش حنعرف لوين وصلنا لازم تحديد للرقم المختار
مرفق صورة توضيحية مع الكود المستخدم
ارجو ان تكون الفكرة وصلت
الكود المستخدم
كود :
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 TextBox2.SelectedText.Length = 0 Then MessageBox.Show("حدد الرقم المراد نسخة") : Exit Sub
'التالي
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("حدد الرقم المراد نسخة") : Exit Sub
'Clipboard.SetText(Label1.Text)
My.Computer.Clipboard.SetText(Label1.Text)هذه صورة توضيحية
المعروض رقم 00003
والمؤشر على رقم 00001
يجب ان يكون المؤشر على الرقم المعروض او تميز الرقم بلون أخر من قائمة الارقام textbox
RE: مساعدة/// كود تمير بتحديد لون وقت النسخ - سامي محمد - 08-04-20
كود :
TextBox2.Select(TextBox2.GetFirstCharIndexFromLine(i), TextBox1.TextLength)