如何实现VB.NET中可取消事件的创建？

本文共计317个文字，预计阅读时间需要2分钟。

在VB.NET中，虽然不是C#，但同样可以编写创新性的代码。以下是一个简短的示例：

vb' 在VB.NET中实现一个简单的计算器Module SimpleCalculator Sub Main() Dim num1 As Integer=10 Dim num2 As Integer=5 Dim sum As Integer=num1 + num2 Console.WriteLine(The sum of & num1 & and & num2 & is & sum) End SubEnd Module

在VB.NET(而不是c#)…

我想创建一个可以被侦听器取消的事件.就像你可以取消winforms表格的结束事件一样,在这种情况下表格不会关闭.

我已经从EventArgs实现了一个派生类,它具有可设置的Cancel属性,如下所示：

Public Class AnnounceNavigateEventArgs Inherits EventArgs Private _cancel As Boolean = False ''' <summary> ''' Initializes a new instance of the AnnounceNavigateEventArgs class. ''' </summary> Public Sub New(ByRef cancel As Boolean) _cancel = cancel End Sub Public Property Cancel() As Boolean Get Return _cancel End Get Set(ByVal value As Boolean) _cancel = value End Set End Property End Class

请注意,我将取消参数byRef传递给构造函数.

我设置的监听器将属性设置为Cancel = True.我想为ByRef意味着既_cancel并取消将指向堆栈上的相同位置,并且设置_cancel = TRUE因此将使取消=真.但这不是我得到的行为. _cancel在setter中变为true但我猜构造函数的参数仍为false.

在vb.net中执行此操作的正确方法是什么？

赛斯

您可以在.NET框架中重用System.ComponentModel.CancelEventArgs类.

Public Event Announcing As EventHandler(Of AnnounceNavigateEventArgs) Protected Sub OnAnnounce() Dim e As New AnnounceNavigateEventArgs RaiseEvent Announcing(Me, e) If Not e.Cancel Then ' announce End If End Sub Public Class AnnounceNavigateEventArgs Inherits System.ComponentModel.CancelEventArgs End Class