[shady2020]

عملت برنامج عند الضغط على زر التالي يتم النزول للرقم التالي وزر السابق العكس  في قائمة 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

[سامي محمد]

كود :

 TextBox2.Select(TextBox2.GetFirstCharIndexFromLine(i), TextBox1.TextLength)