VB.NET: Wie kann ich Ereignisse, die einen Wert zurückgeben, wie kann ich in C#?

In C#, ich kann dies tun:

public partial class _Default : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        Class1 c1 = new Class1();

        c1.OnNeedInt += new Class1.NeedInt(c1_OnNeedInt);

        int i = c1.GetInt();
    }

    int c1_OnNeedInt()
    {
        return 1;
    }
}

public class Class1
{
    public delegate int NeedInt();
    public event NeedInt OnNeedInt;

    public int GetInt()
    {
        return OnNeedInt == null ? 0 : OnNeedInt();
    }
}

Beachte die Zeile int i = c1.GetInt();. Ich kann nicht scheinen, um VB.NET 4.0 zu tun etwas ähnliches. Keine Hilfe?

InformationsquelleAutor oscilatingcretin | 2011-10-14
  1. 1

    Ist das nicht möglich vb.net Ereignisse ausgelöst werden muss, mit der RaiseEvent-Anweisung. Es gibt keinen Wert zurück. Es ist eine ziemlich fragwürdige Praxis in jedem Fall, ein event können keine oder mehrere Abonnenten. Nicht abzusehen, was die Rückkehr Wert sein könnte. Verwenden Sie einfach einen Delegaten statt:

    Class Page
    Public Sub New()
        Dim obj As New Class1
        Dim dlg As New Func(Of Integer)(AddressOf obj.GetInt)
        Dim i As Integer = dlg()
    End Sub
End Class

Class Class1
    Public Function GetInt() As Integer
        Return 42
    End Function
End Class
    InformationsquelleAutor Hans Passant
  2. 1

    In VB, brauchen Sie nicht zu überprüfen, um zu sehen, ob jemand an deinem event-handler. Sie können einfach anrufen RaiseEvent und wenn jemand hört, funktioniert es. Doch die Veranstaltung ist nicht gedacht, um einen Wert zurückzugeben. Sie könnten versuchen, kleben Sie es in ein Ereignis arg und pass herum, aber das wird chaotisch.

    @HansPassant die Lösung ist nah, aber nicht ganz das, was Sie baten. Verändern seine Lösung ein wenig:

    Delegate Function FetchIt() As Integer
Class Page
    Public Sub New()
        Dim obj As New Class1
        Dim i As Integer = obj.GetInt(AddressOf c1_OnNeedInt)
    End Sub
    Function c1_OnNeedInt() As Integer
        Return 42
    End Function
End Class

Class Class1
    Public Function GetInt(fetcher As FetchIt) As Integer
        Return fetcher()
    End Function
End Class

    Alternativ, Sie könnten dies tun, ohne die benutzerdefinierten Delegaten mithilfe von Lambda:

    Class Page
    Public Sub New()
        Dim obj As New Class1
        Dim dlg As New Func(Of Integer)(AddressOf c1_OnNeedInt)
        Dim i As Integer = obj.GetInt(dlg)
    End Sub
    Function c1_OnNeedInt() As Integer
        Return 42
    End Function
End Class

Class Class1
    Public Function GetInt(fetcher As Func(Of Integer)) As Integer
        Return fetcher()
    End Function
End Class
    InformationsquelleAutor Jim Wooley
  3. 1

    Fand ich eine Antwort auf meine Frage. In der Basis-Klasse, die mein ASP.NET Benutzer-Steuerelemente Erben, habe ich dieses:

    Dim _Connection As MyConnection
Public Property Connection As MyConnection
    Get
        If _Connection Is Nothing Then
            RaiseEvent OnNeedConnection(_Connection)
        End If
        Return _Connection
    End Get
    Set(value As MyConnection)
        _Connection = value
    End Set
End Property

Public Delegate Sub NeedConnection(ByRef Connection As MyConnection)
Public Event OnNeedConnection As NeedConnection

    In meinem web-form-codebehind, ich wire es manuell auf diesen:

    Sub ServeConnection(ByRef Connection As MyConnection)

    Connection = oConn

End Sub

    Die eigentliche Verbindung gehostet wird, die auf der webform-codebehind, aber ich habe mehrere Benutzer-Steuerelemente, die mit dieser Verbindung. Jedes mal, wenn eines der Bedienelemente muss die Verbindung, deren base-class-Anfragen und die host-Seite dient es. Möglich wird dies durch die ByRef Stichwort.

    Dies ist die nächste C# - äquivalent könnte ich zusammen stellen.

    InformationsquelleAutor oscilatingcretin
  4. 0

    Ich denke seine sogar einfacher als die meisten Leute denken...

    Class MyClass
   Public Event MyEvent(ByRef MyVariable as String)

   Private Sub DoSomething()
       Dim SomethingINeed as String = String.Empty
       RaiseEvent MyEvent(SomethingINeed)

       'SomethingINeed will now contain "Goodbye Cruel World"

   End sub

End Class

    Dann in der Klasse, welches das Ereignis...

    Class MyOtherClass

    Private Sub New()
        AddHandler MyClass.MyEvent, Addressof MyEventHandler
    End Sub

    Private Sub MyEventHandler(ByRef StringToPassBack as String)
        StringToPassBack = "Goodbye Cruel World"
    End Sub

End Class

    Es ist alles über die ByRef keywords in den Ereignis-Deklaration und die sub-Event-Handler.

    InformationsquelleAutor Destek
Schreibe einen Kommentar