全局代码
Public Sub Form1_FormClosing(sender As Object, e As system.windows.forms.FormClosingEventArgs)
msgbox("命令窗口")
End Sub
绑定事件
For Each f As object In Application.OpenForms
Output.Show(f.name & "," & f.text)
If f.text = "命令窗口" Then
Dim frm As system.windows.Forms.Form = ctype(f,system.windows.Forms.Form )
AddHandler frm.FormClosing, AddressOf Form1_FormClosing
End If
Next
需要注意的是,对系统底层的一些控制操作可能会损坏项目,请谨慎使用!