Freigeben über

Gelockerte Delegatenkonvertierung (Visual Basic)

Mit der gelockerten Delegatkonvertierung können Sie Delegaten oder Handlern Subs und Funktionen zuweisen, auch wenn deren Signaturen nicht identisch sind. Daher ist die Bindung an Delegate mit der bereits für Methodenaufrufe zulässigen Bindung vereinbar.

Parameter und Rückgabetyp

Anstelle einer exakten Signaturübereinstimmung erfordert die gelockerte Konvertierung, dass die folgenden Bedingungen erfüllt sind, wenn Option Strict auf On festgelegt ist:

  • Es muss eine erweiternde Konvertierung vom Datentyp jedes Delegatenparameters zum Datentyp des entsprechenden Parameters der zugewiesenen Funktion oder Sub vorhanden sein. Im folgenden Beispiel verfügt der Delegat Del1 über einen Parameter, einen Integer. Der Parameter m in den zugewiesenen Lambda-Ausdrücken muss einen Datentyp haben, für den eine Erweiterungskonvertierung von Integer möglich ist, wie Long oder Double.

    ' Definition of delegate Del1.
Delegate Function Del1(ByVal arg As Integer) As Integer

    ' Valid lambda expression assignments with Option Strict on or off:

' Integer matches Integer.
Dim d1 As Del1 = Function(m As Integer) 3

' Integer widens to Long
Dim d2 As Del1 = Function(m As Long) 3

' Integer widens to Double
Dim d3 As Del1 = Function(m As Double) 3

    Verengungsumwandlungen sind nur zulässig, wenn Option Strict auf Off gesetzt ist.

    ' Valid only when Option Strict is off:

Dim d4 As Del1 = Function(m As String) CInt(m)
Dim d5 As Del1 = Function(m As Short) m

  • Eine erweiternde Konvertierung muss in entgegengesetzter Richtung vom Rückgabetyp der zugewiesenen Funktion oder Sub zum Rückgabetyp des Delegaten vorhanden sein. In den folgenden Beispielen muss der Textkörper jedes zugewiesenen Lambdaausdrucks zu einem Datentyp ausgewertet werden, der sich auf Integer erweitert, da der Rückgabetyp von del1Integer ist.

    ' Valid return types with Option Strict on:

' Integer matches Integer.
Dim d6 As Del1 = Function(m As Integer) m

' Short widens to Integer.
Dim d7 As Del1 = Function(m As Long) CShort(m)

' Byte widens to Integer.
Dim d8 As Del1 = Function(m As Double) CByte(m)

Wenn Option Strict auf Off festgelegt ist, wird die Erweiterungseinschränkung in beide Richtungen entfernt.

' Valid only when Option Strict is set to Off.

' Integer does not widen to Short in the parameter.
Dim d9 As Del1 = Function(n As Short) n

' Long does not widen to Integer in the return type.
Dim d10 As Del1 = Function(n As Integer) CLng(n)

Auslassen von Parameterspezifikationen

Mit gelockerten Delegaten können Sie Parameterspezifikationen in der zugewiesenen Methode auch vollständig weglassen:

' Definition of delegate Del2, which has two parameters.
Delegate Function Del2(ByVal arg1 As Integer, ByVal arg2 As String) As Integer

' The assigned lambda expression specifies no parameters, even though
' Del2 has two parameters. Because the assigned function in this 
' example is a lambda expression, Option Strict can be on or off.
' Compare the declaration of d16, where a standard function is assigned.
Dim d11 As Del2 = Function() 3

' The parameters are still there, however, as defined in the delegate.
Console.WriteLine(d11(5, "five"))

' Not valid.
' Console.WriteLine(d11())
' Console.WriteLine(d11(5))

Beachten Sie, dass Sie einige Parameter nicht angeben und andere auslassen können.

' Not valid.
'Dim d12 As Del2 = Function(p As Integer) p

Die Möglichkeit, Parameter auszulassen, ist in einer Situation hilfreich, z. B. das Definieren eines Ereignishandlers, bei dem mehrere komplexe Parameter beteiligt sind. Die Argumente für einige Ereignishandler werden nicht verwendet. Stattdessen greift der Handler direkt auf den Zustand des Steuerelements zu, für das das Ereignis registriert ist, und ignoriert die Argumente. Mit vereinfachten Delegierungen können Sie die Argumente in solchen Deklarationen weglassen, sofern keine Mehrdeutigkeiten entstehen. Im folgenden Beispiel kann die vollständig angegebene Methode OnClick als RelaxedOnClick umgeschrieben werden.

Sub OnClick(ByVal sender As Object, ByVal e As EventArgs) Handles b.Click  
    MessageBox.Show("Hello World from" + b.Text)  
End Sub  
  
Sub RelaxedOnClick() Handles b.Click  
    MessageBox.Show("Hello World from" + b.Text)  
End Sub

AddressOf-Beispiele

Lambda-Ausdrücke werden in den vorherigen Beispielen verwendet, um die Typbeziehungen leicht zu erkennen. Die gleichen Lockerungen sind jedoch für Stellvertretungszuweisungen zulässig, die AddressOf, Handles, oder AddHandler verwenden.

Im folgenden Beispiel können Funktionen f1, f2, f3, und f4 alle zugewiesen Del1werden.

' Definition of delegate Del1.
Delegate Function Del1(ByVal arg As Integer) As Integer

' Definitions of f1, f2, f3, and f4.
Function f1(ByVal m As Integer) As Integer
End Function

Function f2(ByVal m As Long) As Integer
End Function

Function f3(ByVal m As Integer) As Short
End Function

Function f4() As Integer
End Function

' Assignments to function delegate Del1.

' Valid AddressOf assignments with Option Strict on or off:

' Integer parameters of delegate and function match.
Dim d13 As Del1 = AddressOf f1

' Integer delegate parameter widens to Long.
Dim d14 As Del1 = AddressOf f2

' Short return in f3 widens to Integer.
Dim d15 As Del1 = AddressOf f3

Das folgende Beispiel ist nur gültig, wenn Option Strict auf Off eingestellt ist.

' If Option Strict is Off, parameter specifications for f4 can be omitted.
Dim d16 As Del1 = AddressOf f4

' Function d16 still requires a single argument, however, as specified
' by Del1.
Console.WriteLine(d16(5))

' Not valid.
'Console.WriteLine(d16())
'Console.WriteLine(d16(5, 3))

Weglassen von Funktionsrückgaben

Eine flexible Delegatenkonvertierung ermöglicht es Ihnen, einer Sub Delegaten eine Funktion zuzuweisen, wodurch der Rückgabewert der Funktion effektiv ignoriert wird. Sie können einem Funktionsdelegierten jedoch keinen Sub zuweisen. Im nachfolgenden Beispiel wird die Adresse der Funktion doubler dem Delegat SubDel3 zugewiesen.

' Definition of Sub delegate Del3.
Delegate Sub Del3(ByVal arg1 As Integer)

' Definition of function doubler, which both displays and returns the
' value of its integer parameter.
Function doubler(ByVal p As Integer) As Integer
    Dim times2 = 2 * p
    Console.WriteLine("Value of p: " & p)
    Console.WriteLine("Double p:   " & times2)
    Return times2
End Function

' You can assign the function to the Sub delegate:
Dim d17 As Del3 = AddressOf doubler

' You can then call d17 like a regular Sub procedure.
d17(5)

' You cannot call d17 as a function. It is a Sub, and has no 
' return value.
' Not valid.
'Console.WriteLine(d17(5))

Siehe auch