منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : التركيز لا ينتقل الى الليست فيو؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم

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

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

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

[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]
انقل كود الفوكس قبل كود الكلوز
بالنسبة للتركيز فهو بالتأكيد ينتقل بالحدث
ListView1.Focus
لكن قصدك هو التحديد جرب هذا الكود

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

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

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

على اجابتك

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

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

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


والف شكر
[/b]
اولآ صرح عن متغير من نوع 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
الف شكر
اخي
3booody

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

نجح الامر
بارك الله فيك