无法处理另一个类中的事件

Question

我对 Visual Basic 有点陌生，想知道是否可以根据表单中的操作触发类中的事件。

所以以下是我的问题： 我有一个名为 Main 的表单，带有一个名为 picPID 的图片框 还有一个叫 add_new 的类

我想做的是： 单击鼠标右键时，事件处理的代码将放在名为 add_new 的类中

我想我可以通过以下方式声明它：

Sub meMouseDown(sender As Object, e As MouseEventArgs) 处理 Main.picPID.MouseDown

但我收到一个错误，说我必须用Events 声明它，我试图将图片框声明为：

Public shared withEvents as picturebox

但它没有帮助，有什么建议吗？将代码放在 Main 窗体中没有问题，但会导致大量代码，所以我希望将其拆分。

Answer 1

所以你有一个带有事件处理程序的类：

Public Class add_new

    Public Sub PictureBoxEventHandler(sender As Object, e As MouseEventArgs)
        'Your Implementation
    End Sub

End Class

那么你需要在包含图片框的表单中创建一个此类的实例：

Public Class Form1

    Private add_New_Command As New add_new ' hold a reference to the command

    'constructor
    Public Sub New()

        InitializeComponent()

        ' and add the handler to the event of the picture box ... hook it up
        AddHandler PictureBox1.MouseDown, AddressOf add_New_Command.PictureBoxEventHandler

    End Sub

End Class