VB.NET中AddHandler使用demo

这是一个很简单的demo，就是实验一下AddHandler的作用，用VS2010新建一个工程，点开主窗体，添加一个方法，这个方法，提供关闭窗体的服务，里面添加了询问的操作，具体代码，如下：

    Private Sub CloseWindow(ByVal sender As System.Object,ByVal e As System.Windows.Forms.FormClosingEventArgs)
        Dim closeFlag As DialogResult = DialogResult.None
        closeFlag = MsgBox("是否关闭窗体?",MessageBoxButtons.YesNo + MessageBoxOptions.ServiceNotification)
        If closeFlag = DialogResult.No Then
            e.Cancel = True
        End If
    End Sub

然后运行程序，发现点击窗体的关闭按钮，这个事件，并未被执行，说明这个事件和窗体的程序没有绑定在一起，添加如下操作：

    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler MyBase.FormClosing,AddressOf CloseWindow
    End Sub

再次运行，OK，可以正常的触发事件了。

原文地址：https://www.jb51.cc/vb/258431.html