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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال لاخفاء عمود في الليست فيو Emam emam 2 73 25-11-18, 12:10 AM
آخر رد: Emam emam
  ضبط وضع الكتابة داخل الليست بوكس ابو روضة 4 127 13-11-18, 02:23 AM
آخر رد: ابو روضة
  [VB.NET] كيفية عرض column الليست فيو عموديا و تفعيل خاصية الشيك بوكس larbihamri 0 71 22-10-18, 09:38 AM
آخر رد: larbihamri
  كيف اجعل الكلمات تحت بعضها فى الليست بوكس ابو روضة 5 272 16-07-18, 01:34 AM
آخر رد: elgokr
  [سؤال] اختيار عناصر من الليست بوكس وإضافتها إلى قاعدة البيانات waelalmsry75 2 234 11-01-18, 09:11 AM
آخر رد: waelalmsry75
  [سؤال] جعل النص فى الوسط داخل الليست بوكس ابو روضة 6 376 10-01-18, 08:39 PM
آخر رد: ابو روضة
  كود افراغ الليست بوكس anes 1 226 07-12-17, 02:21 PM
آخر رد: طالب برمجة
  [سؤال] ظهور نتائح البحث داخل الليست بوكس ابو روضة 0 249 25-11-17, 01:47 AM
آخر رد: ابو روضة
  استفسار حوال التركيز في الادوات المتألق9 6 602 13-05-17, 07:05 PM
آخر رد: أسامة السالمي
  اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات makky 3 645 16-10-16, 06:09 PM
آخر رد: makky

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


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