(05-04-20, 08:21 PM)aljzazy كتب : تفضل هذا مثال كامل على ازرارالتنقل بين السجلات

(06-04-20, 02:03 AM)سامي محمد كتب : أعتقد يا اخ ابراهيم ان السائل يريد التنقل في حقل ادخال Textbox
فلربما تكون المدخلات يدوية
---------
هذا الكود تستطيع من خلالة التنقل بين اسطر التكس

كود :

 'متغير في قسم التصريحات العامة

    Dim i As Integer = -1
  Dim i As Integer = -1
  'التالي
        If i = TextBox2.Lines.Count - 1 Then i = -1
        i += 1
        TextBox1.Text = TextBox2.Lines(i)

   'السابق
        If i <= 0 Then i = TextBox2.Lines.Count
        i -= 1
        TextBox1.Text = TextBox2.Lines(i)

(05-04-20, 09:24 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
قرات السؤال اكثر من 20 مرة والذي فهمته 
ان لديك TextBox (تحديدا) وفيه عدد من الاسطر 
تريد الانتقال من سطر الى أخر صعودا او هبوطا
لكن دائما نعاني من مشكلة توصيف السائل للحالة المطلوب الاجابة عليها
1 - ان كان التنقل بين سجلات في قاعدة البيانات فالمثال الذي اورده لك اخي Aljazazy مشكورا جزاه الله خيرا
2 - ان كان التنقل بين سطور الـ textBox وليس لها اي علاقة مع سجلات قاعدة البيانات فهنا توجد بعض الاشكاليات
أ- يجب ان تكون السطور لها تمييز حتى يمكن تحديد سطر ما بدلالة التمييز ( بالرغم ان الامر يحتاج الى ايجاد كود)
ب - من الافضل والاصح والاسهل في كتابة الكود هو ان تستخدم ListBox  بدل الـ TextBox  وبهذا يمكن ربطها مع السجلات ايضا
نصيحة عامة :
كلما كان توصيف السؤال واضحا كلما تمت الاجابة بسرعة
دمت بخير اخي الكريم
الملف الذي ارفقته انت للتوضيح فيه فيروس لم نتمكن من مشاهدته

---

ان استعملت listBox فهذين الكودين للانتقال بين العناصر هبوطا وصعودا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If ListBox1.SelectedIndex = ListBox1.Items.Count - 1 Then
           ListBox1.SelectedIndex = ListBox1.Items.Count - 1
           MsgBox("هذا اخر عنصر")
       Else
           ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
       End If


   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If ListBox1.SelectedIndex = 0 Then
           ListBox1.SelectedIndex = 0
           MsgBox("هذا اول عنصر")
       Else
           ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
       End If
   End Sub

(06-04-20, 02:03 AM)سامي محمد كتب : أعتقد يا اخ ابراهيم ان السائل يريد التنقل في حقل ادخال Textbox
فلربما تكون المدخلات يدوية
---------
هذا الكود تستطيع من خلالة التنقل بين اسطر التكس

كود :

 'متغير في قسم التصريحات العامة

    Dim i As Integer = -1
  Dim i As Integer = -1
  'التالي
        If i = TextBox2.Lines.Count - 1 Then i = -1
        i += 1
        TextBox1.Text = TextBox2.Lines(i)

   'السابق
        If i <= 0 Then i = TextBox2.Lines.Count
        i -= 1
        TextBox1.Text = TextBox2.Lines(i)

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

(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

---

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