[shady2020]

(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)

نعم اخي سامي مشكور لجهودك نجح الكود ولكن يعرض فقط اول سطر من اعلى  واخر سطر من اسفل فما الحل ؟؟
بان كل ضغطة زر ينتقل لسطر الثاني