تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات makky 3 158 16-10-16, 06:09 PM
آخر رد: makky
  الادخال والتعديل من خلال الليست بوكس makky 2 118 19-09-16, 07:57 PM
آخر رد: أبو عمر
  [سؤال] تكرار الصوت فى الليست بوكس ابو روضة 2 133 13-08-16, 09:28 AM
آخر رد: سعود
  [VB.NET] كيفية عمل حلقة تكرارية للداتا جريد فيو على الليست فيووالليست بوكس الماجيك مسعد 8 404 04-04-16, 09:01 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية عرض عناصر الليست فيو الى اداة الكومبو بوكس؟ الماجيك مسعد 3 375 17-03-16, 04:30 PM
آخر رد: hassan
  [VB.NET] طلب : طريقة اظهار بيانات "اسماء العملاء" في الليست بوكس من قاعدة البيانات hamada salah90 2 230 26-02-16, 12:24 AM
آخر رد: hamada salah90
  [VB.NET] مشكلة StackOverflowException was unhandled فى الليست بوكس الماجيك مسعد 35 955 03-02-16, 05:10 AM
آخر رد: الماجيك مسعد
  مطلوب كود لعرض حقول الجدول في الليست بوكس AHMED SHARAF 4 352 16-11-15, 03:19 AM
آخر رد: AHMED SHARAF
  [سؤال] سؤال في أداة الليست بوكس أرجوكم إجابة فراس صلاح 1 297 21-08-15, 10:48 PM
آخر رد: أبو عمر
  [سؤال] أرجوكم مساعة في أداة الليست بوكس فراس صلاح 9 806 21-08-15, 01:45 AM
آخر رد: سعود

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


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