بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لدي ليست فيو، يتم استعراض الملاحظات فيها
عند الضغط على زر الحذف، يتم حذف الملاحظة المرغوب بحذفها بكل نجاح
[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]