VB.NET中AddHandler使用demo

最新推荐文章于 2017-12-12 18:55:26 发布

真心笑容

最新推荐文章于 2017-12-12 18:55:26 发布

阅读量5.6k

点赞数 2

分类专栏： VB.NET

本文链接：https://blog.csdn.net/qincode/article/details/12945547

版权

VB.NET 专栏收录该内容

33 篇文章 5 订阅

订阅专栏

这是一个很简单的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，可以正常的触发事件了。