主题：疑惑

第三方事件

全局：Public  Sub Form_Activated(ByVal sender As Object, ByVal e As System.EventArgs)
'定义一个窗体被激活的事件
    If forms.ActiveForm IsNot Nothing Then
        Functions.Execute("Form_Activated")  ’这里自己写个函数处理
    End If
End Sub

 

 

窗口AfterLoad

 

AddHandler e.form.baseform.Activated, AddressOf Form_Activated

 

 

窗口激活的函数，千万别写对话框，会死循环的。