緩やかなデリゲート変換 (Visual Basic)

緩やかなデリゲート変換を使用すると、シグネチャが同じでない場合でも、サブと関数をデリゲートまたはハンドラーに割り当てることができます。 そのため、デリゲートへのバインドは、メソッド呼び出しで既に許可されているバインディングと一致します。

パラメーターと戻り値の型

厳密なシグネチャの一致の代わりに、緩やかな変換では、 Option Strict が On に設定されている場合、次の条件を満たす必要があります。

• 各デリゲート パラメーターのデータ型から、割り当てられた関数または Subの対応するパラメーターのデータ型への拡大変換が存在する必要があります。 次の例では、デリゲート Del1 には 1 つのパラメーター ( Integer) があります。 割り当てられたラムダ式のパラメーター mには、LongやDoubleなど、Integerからの拡大変換があるデータ型が必要です。

  ' 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
  

  縮小変換は、 Option Strict が Off に設定されている場合にのみ許可されます。

  ' 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
  

• 拡大変換は、代入された関数の戻り値の型とは反対の方向に存在するか、デリゲートの戻り値の型に Sub する必要があります。 次の例では、割り当てられた各ラムダ式の本体は、del1の戻り値の型がIntegerされるため、Integerに拡大するデータ型に評価する必要があります。

  ' 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)
  

Option StrictがOffに設定されている場合、拡大の制限は双方向で削除されます。

' 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)

パラメーターの指定を省略する

緩やかなデリゲートを使用すると、割り当てられたメソッドでパラメーターの指定を完全に省略することもできます。

' 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))

一部のパラメーターを指定したり、他のパラメーターを省略したりすることはできないことに注意してください。

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

パラメーターを省略する機能は、複数の複雑なパラメーターが関係するイベント ハンドラーの定義などの状況で役立ちます。 一部のイベント ハンドラーの引数は使用されません。 代わりに、ハンドラーはイベントが登録されているコントロールの状態に直接アクセスし、引数を無視します。 緩やかなデリゲートを使用すると、あいまいさの結果がない場合に、このような宣言の引数を省略できます。 次の例では、完全に指定されたメソッド OnClick を RelaxedOnClickとして書き換えることができます。

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 の例

ラムダ式は、型リレーションシップを見やすくするために、前の例で使用されています。 ただし、 AddressOf、 Handles、または AddHandlerを使用するデリゲートの割り当てにも、同じ緩和が許可されます。

次の例では、関数 f1、 f2、 f3、 f4 はすべて Del1に割り当てることができます。

' 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

次の例は、 Option Strict が Off に設定されている場合にのみ有効です。

' 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))

関数の戻り値を削除する

緩やかなデリゲート変換を使用すると、関数を Sub デリゲートに割り当て、関数の戻り値を実質的に無視できます。 ただし、関数デリゲートに Sub を割り当てることはできません。 次の例では、関数doublerのアドレスがデリゲート Del3Sub割り当てられます。

' 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))

こちらも参照ください

• ラムダ式
• 拡大変換と縮小変換
• 代表者
• 方法: Visual Basic でプロシージャを別のプロシージャに渡す
• ローカル型推論
• オプション ストリクト ステートメント