تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] التركيز لا ينتقل الى الليست فيو؟
#1
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

لدي ليست فيو، يتم استعراض الملاحظات فيها

عند الضغط على زر الحذف، يتم حذف الملاحظة المرغوب بحذفها بكل نجاح

[b]ولكن المشكلة
انه بعد اغلاق شاشة الحذف، لا يعود التركيز على الليست فيو، رغم انني وضعت الكود
التالي
كود :
Private Sub btn_Delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Delete.Click
        Dim delete_frm As New Note_Delete_frm

        Try
            DeleteHim(txt_Note_id.Text)

            Dim f As Form
            For Each f In Main_Control_frm.MdiChildren
                If TypeOf f Is Note_List_frm Then
                    DirectCast(f, Note_List_frm).PopulateListView()
                End If
            Next f

            Call Beda_List_frm.PopulateListView()
            Me.Close()
            Note_List_frm.ListView1.Focus()

        Catch ex As Exception
            Throw ex
        End Try
    End Sub

ارجو التوجيه والارشاد
والف شكر
[/b]


الملفات المرفقة صورة/صور
               
الرد }}}
تم الشكر بواسطة:
#2
انقل كود الفوكس قبل كود الكلوز
Heart أشهد ان لا اله الا الله وان محمد رسول الله Heart
الرد }}}
تم الشكر بواسطة: 3booody
#3
بالنسبة للتركيز فهو بالتأكيد ينتقل بالحدث
ListView1.Focus
لكن قصدك هو التحديد جرب هذا الكود

كود :
ListView1.Focus()
        ListView1.Items(0).Selected = True

راح يتحدد العنصر الاول وطبعآ تقدر تحدد العنصر الي بعد المحذوف
موفق

لفت نظري عبارة Try في كودك مافائدتها اذا كنت قد وضعت رمي استثناء في حالة حدوث خطأ؟
الرد }}}
تم الشكر بواسطة: kafi2030
#4
الف شكر
اخي 3booody

على اجابتك

فعلا اصبح التحديد على العنصر الاول بالليست فيو

إقتباس :وطبعآ تقدر تحدد العنصر الي بعد المحذوف

[b]كيف استطيع ان احدد العنصر هلي بعد المحذوف من اجل ان اجعل التركيز عليه، بدلاً من ان يكون التركيز على العنصر الاول


والف شكر
[/b]
الرد }}}
تم الشكر بواسطة:
#5
اولآ صرح عن متغير من نوع Integer واعطي هذا المتغير قيمة العنصر المحذوف في القائمة

كود :
Public n As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        n = Me.ListView1.FocusedItem.Index
    End Sub


كود :
ListView1.Focus()
Try
            Form1.ListView1.Items(Form1.n).Selected = True
        Catch ex As Exception
            Form1.ListView1.Items(Form1.n - 1).Selected = True
        End Try
الرد }}}
تم الشكر بواسطة: ناجي إبراهيم , kafi2030
#6
الف شكر
اخي
3booody

على ماتفضلت به

نجح الامر
بارك الله فيك
الرد }}}
تم الشكر بواسطة: 3booody


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تعبئة الليست بوكس من ال resources ابو روضة 6 663 22-12-22, 01:18 AM
آخر رد: ابو روضة
  [سؤال] كيفية حفظ عناصر في مجلد بحسب ترتيبها في الليست بوكس asmarsou 1 624 13-07-22, 06:42 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف اجعل داتا جريد فيو ينتقل مع تاكست بوكس bilgacim 1 1,008 28-01-22, 04:30 AM
آخر رد: سعود
  السلام عليكم عندي سؤال في الليست بوكس اليوم السابع 1 1,172 21-06-21, 02:35 PM
آخر رد: alfaiz678
  التأكد من أن الليست بوكس خالية من البيانات aftfm 1 1,005 12-03-21, 09:08 PM
آخر رد: 3booody
  حفظ ما بداخل الليست بوكس بهذه الطريقة ابو روضة 8 2,382 01-12-20, 01:22 AM
آخر رد: ابو روضة
  [سؤال] كيفيه التحقق إذا كانت الليست بوكس متصله بقاعدة بيانات منه 2 1,351 30-08-20, 12:39 AM
آخر رد: diggitalk2017@gmail.com
  [سؤال] هل توجد طريقه للتحقق إذا كانت الليست بوكس أو الكومبوبوكس متصله بقاعدة بيانات منه 1 1,181 29-08-20, 06:28 PM
آخر رد: Anas Mahmoud
  السلام عليكم ممكن توضيح بسيط بخصوص البحث داخل الليست بوكس اليوم السابع 5 1,796 21-08-20, 01:40 PM
آخر رد: اليوم السابع
  نقل التركيز الى الخلية التالية في الداتا جريد بعد كتابة رقمين ismaeel 0 1,408 09-08-20, 05:09 PM
آخر رد: ismaeel

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم