هل يوجد حدث على مستوى الفورم ........

السلام عليكم

في مثل هذه الحالات لا ينفع إلا الإنتخاب وهي وظيفة تعرف بـ Delegate

يتم تعريف الـ Delegate بأبسط الحالات بهذا الشكل , بحيث نقوم بعملية ربط للحدث بشكل مباشر للإجراء دون وساطة الـ Delegate

مثلاً لمراقبة العناصر على النموذج عند إيجاد التركيز GotFocus سيكون بهذا الشكل

'Delegate That Monitor the (Got Focus) of any Control
    Private Sub MonitorGotFocus(ByVal sender As Object, _
    ByVal e As System.EventArgs)
        Me.Label1.Text = _
        "You are in the Control Name : " & sender.name.ToString
    End Sub

الخطوة الثانية فقط أن نقوم بربط أحداث العناصر بهذا الإجراء أو مجازاً الـ Delegate بهذا الشكل

 Dim crl As Control
        For Each crl In Me.Controls
            AddHandler crl.GotFocus, AddressOf MonitorGotFocus
                  Next

هذا الكلام ينطبق على جميع الأحداث بشرط أن يتوافق الـ Delegate مع الممررات للحدث Arguments

والله أعلم

ControlsMonitor.zip