2

我想隐藏/覆盖 VB.NET 中的事件。

我这样做只是因为我必须在此对象中实现一个接口，该接口包含与基础对象本身相同的事件，并且我需要保持此基础事件不变，无需修改或补充事件添加。

我该怎么做？

Public Shadows Event VisibleChanged As EventHandler Implements IVisibleChanged

所以，我想实现一个包含 VisibleChanged 事件的接口，但也要保持 myBase VisibleChanged 事件的功能。

  Public Shadows Event VisibleChanged As EventHandler Implements IVisibleChanged
    AddHandler(ByVal value As EventHandler)
      AddHandler MyBase.VisibleChanged, value
    End AddHandler
    RemoveHandler(ByVal value As EventHandler)
      RemoveHandler MyBase.VisibleChanged, value
    End RemoveHandler
  End Event

像这样的东西，但似乎 Visual Studio 无法识别这样的语法......

我的意思是，在 C# 中我是这样实现的：

public new event EventHandler VisibleChanged
{
    add { base.VisibleChanged += value; }
    remove { base.VisibleChanged -= value; }
}
4

4 回答 4

1 
Option Strict On
Option Explicit On

Public Class Form1
  Public Sub New()
    ' This call is required by the Windows Form Designer.'
    InitializeComponent()

    ' Add any initialization after the InitializeComponent() call.'
    Dim b As New MyButton
    Me.Controls.Add(b)
    b.Name = "customButton"
    b.Location = New Point(10, 10)
    b.Text = "Hit me!"
    AddHandler CType(b, IMyInterface).Click, AddressOf MyButton1_Click
  End Sub

  Private Sub MyButton1_Click( _ 
      ByVal sender As System.Object, ByVal e As System.EventArgs)
    Debug.Print("{0} clicked!; ", CType(sender, Control).Name)
  End Sub
End Class

' ------- interface'
Public Interface IMyInterface
  Event Click As EventHandler
End Interface

' ------- class'
Public Class MyButton
  Inherits System.Windows.Forms.Button
  Implements IMyInterface
  ' ============ HERE IS THE SOLUTION'
  Private Event Click1 As EventHandler Implements IMyInterface.Click

  Private Sub ResendClick( _ 
      ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Click
    RaiseEvent Click1(sender, e)
  End Sub
  ' END HERE IS THE SOLUTION ============ '
End Class
于 2009-11-27T10:29:39.960 回答
0 
  Public Shadows Event VisibleChanged As EventHandler Implements IVisibleChanged
    AddHandler(ByVal value As EventHandler)
      AddHandler MyBase.VisibleChanged, value
    End AddHandler
    RemoveHandler(ByVal value As EventHandler)
      RemoveHandler MyBase.VisibleChanged, value
    End RemoveHandler
  End Event

像这样的东西，但似乎 Visual Studio 无法识别这样的语法......

我的意思是，在 C# 中我是这样实现的：

public new event EventHandler VisibleChanged
{
    add { base.Click += value; }
    remove { base.Click -= value; }
}
于 2009-11-25T18:20:05.570 回答
0

在 VB.NET 中实现接口时，无需将实现命名为与接口相同的名称。

示例界面： 

Public Interface IFoo
    Event Bar As EventHandler
End Interface

示例实现：

Public Class FooImplementation
    Implements IFoo

    ' This is the built-in Bar event, specific to this class.
    Public Event Bar As EventHandler

    ' This is the implemented IFoo.Bar event.
    Public Event IFooBar As EventHandler Implements IFoo.Bar

End Class

当有人以 IFoo 的身份与您联系时，他们将获得您的 IFooBar 事件：

Dim instance As IFoo = New FooImplementation()
AddHandler instance.Bar, AddressOf IFooBarHandler

当它们作为 FooImplementation 附加到您时，它们将获得 Bar 事件并且它们也将能够附加到 IFooBar：

Dim instance As New FooImplementation()
AddHandler instance.Bar, AddressOf BarHandler
AddHandler instance.IFooBar, AddressOf IFooBarHandler
于 2009-11-25T18:47:40.727 回答
0

您可以覆盖派生类中的处理程序吗？

Public Class OverriddenClass
Inherits OriginalClass
Protected Overrides Function ProcessVisibleChanged(ByRef msg as Message, value as ...) As Boolean
  value = value + 1
  ProcessVisibleChanged = MyBase.ProcessVisibleChanged(msg, value)
  ' or use OnVisibleChanged to avoid the base handler
End Function
end class
于 2009-11-25T21:28:29.547 回答