[shady2020]

(06-04-20, 04:38 AM)سامي محمد كتب : يبدو انك ادخلت المتغير داخل حدث النقر 

إقتباس :Dim i As Integer = -1

أخرج هذا المتغير من حديث النقر .... وجعله في قسم التصريحات العامة

---

----------------
ليكون في النهاية بهذا الشكل
    'متغير في قسم التصريحات العامة

كود :

    Dim i As Integer = -1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'التالي
        If i = TextBox2.Lines.Count - 1 Then i = -1
        i += 1
        TextBox1.Text = TextBox2.Lines(i)
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         'السابق
        If i <= 0 Then i = TextBox2.Lines.Count
        i -= 1
        TextBox1.Text = TextBox2.Lines(i)
    End Sub

---

تم التعديل جربة الآن

يسلمو يارب ومشكور كثير نجح الكود وتم التنقل بين السجلات ولكن عند نهاية السجل في زر التالي تظهر هذه الرسالة 
System.IndexOutOfRangeException: 'الفهرس خارج حدود الصفيف.'

تم نجاح الكود يسلمو يارب ومشكوووووووووور كثير 
الخلل طلع مع عندي بدل ما اضع - وضعت + وتم حل الموضوع