在VB.NET中使用我的c＃事件

Question

我已经用C＃编写了一个DLL，我想从一个事件中获取回调。

在C＃中，我通过以下方式对其进行区分：

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.IO;
using SevenZipControl;

namespace Utlility
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            Zipper.ProgressEvent += ProgressChanged;
        }

        delegate void ProgressChangedCallback(int value);

        private void ProgressChanged(object sender, ProgressChangedEventArgs e)
        {
            SetProgressBarValue(e.ProgressPercentage);
        }

        private void SetProgressBarValue(int progress)
        {
            if (this.progressBar1.InvokeRequired)
            {
                ProgressChangedCallback d = new ProgressChangedCallback(SetProgressBarValue);
                this.Invoke(d, new object[] { progress });
                return;
            }
            progressBar1.Value = progress;
        }

我在VB.NET中尝试了同样的方法，但是IDE已经抱怨我的AddHandler方法：

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.IO
Imports SevenZipControl

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler Zipper.ProgressEvent, AddressOf ProgressChanged(Zipper, ProgressChangedEventArgs)
    End Sub

    Private Sub ProgressChanged(sender As Object, e As ProgressChangedEventArgs)
        SetProgressBarValue(e.ProgressPercentage)
    End Sub
    Private Sub SetProgressBarValue(progress As Integer)
        ProgressBar1.Value = progress
    End Sub
End Class

C＃实现工作正常，但是在VB.NET中，IDE告诉我“ Zipper”和“ ProgressChangedEventArgs”是一种类型，不能用作表达式。

有人可以告诉我我在做什么错吗？ 而且，它告诉我

Answer 1

您在AddHandler行中的信息太多。 做就是了：

AddHandler Zipper.ProgressEvent, AddressOf ProgressChanged

Answer 2

解决方案要困难得多。 我必须创建一个即兴函数：

    Zipper.Compress(uPathIn, uPathOut, Function(l1, l2)
                                           SetProgressBarValue(0)
                                       End Function)

我不确定这是否是最干净的解决方案，编译器警告我函数Function（l1，l2）可能没有有效的返回值，但它可以执行我想要的一切。