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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الفلترة ضمن الليست بوكس EMADSSS 0 21 أمس, 10:31 PM
آخر رد: EMADSSS
  تعبئة الليست بوكس عند الإختيار من الكومبوكس مصمم هاوي 1 45 16-02-19, 03:09 AM
آخر رد: أحمد النجار
  تغيير الليست بكس بالداتاجريد فيو محمد خيري 5 102 15-02-19, 09:09 PM
آخر رد: princelovelorn
  تعبئة الليست بوكس ابو روضة 5 165 02-02-19, 04:46 AM
آخر رد: حريف برمجة
  عرض بيانات في الليست فيو Emam emam 5 148 01-02-19, 11:13 PM
آخر رد: asemshahen5
  توسيع اداة الليست بوكس ابو روضة 7 247 24-12-18, 05:29 PM
آخر رد: a.wagdi
  سؤال لاخفاء عمود في الليست فيو Emam emam 2 157 25-11-18, 12:10 AM
آخر رد: Emam emam
  ضبط وضع الكتابة داخل الليست بوكس ابو روضة 4 286 13-11-18, 02:23 AM
آخر رد: ابو روضة
  [VB.NET] كيفية عرض column الليست فيو عموديا و تفعيل خاصية الشيك بوكس larbihamri 0 140 22-10-18, 09:38 AM
آخر رد: larbihamri
  كيف اجعل الكلمات تحت بعضها فى الليست بوكس ابو روضة 5 354 16-07-18, 01:34 AM
آخر رد: elgokr

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


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