以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何为Foxtable的系统窗口（例如命令窗口）添加窗口关闭前事件？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136675)
--  作者：诚学思行
--  发布时间：2019/6/18 22:06:00
--  如何为Foxtable的系统窗口（例如命令窗口）添加窗口关闭前事件？
如何为Foxtable的系统窗口（例如命令窗口）添加窗口关闭前事件？
--  作者：有点蓝
--  发布时间：2019/6/18 22:48:00
--  
全局代码
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

需要注意的是，对系统底层的一些控制操作可能会损坏项目，请谨慎使用！
--  作者：诚学思行
--  发布时间：2019/6/19 12:54:00
--  回复：（有点蓝）全局代码Public Sub Form1_FormClosi...
好的，谢谢提醒！