Binder Class
TOC
Collapse the table of content
Expand the table of content

Binder Class

[ This article is for Windows Phone 8 developers. If you’re developing for Windows 10, see the latest documentation. ]

Selects a member from a list of candidates, and performs type conversion from actual argument type to formal argument type.

System.Object
  System.Reflection.Binder

Namespace:  System.Reflection
Assembly:  mscorlib (in mscorlib.dll)

'Declaration
Public MustInherit Class Binder

The Binder type exposes the following members.

  NameDescription
Protected methodBinderInitializes a new instance of the Binder class.
Top

  NameDescription
Public methodBindToFieldSelects a field from the given set of fields, based on the specified criteria.
Public methodBindToMethodSelects a method to invoke from the given set of methods, based on the supplied arguments.
Public methodChangeTypeChanges the type of the given Object to the given Type.
Public methodEquals(Object)Determines whether the specified Object is equal to the current Object. (Inherited from Object.)
Protected methodFinalizeAllows an object to try to free resources and perform other cleanup operations before the Object is reclaimed by garbage collection. (Inherited from Object.)
Public methodGetHashCodeServes as a hash function for a particular type. (Inherited from Object.)
Public methodGetTypeGets the Type of the current instance. (Inherited from Object.)
Protected methodMemberwiseCloneCreates a shallow copy of the current Object. (Inherited from Object.)
Public methodReorderArgumentArrayUpon returning from BindToMethod, restores the args argument to what it was when it came from BindToMethod.
Public methodSelectMethodSelects a method from the given set of methods, based on the argument type.
Public methodSelectPropertySelects a property from the given set of properties, based on the specified criteria.
Public methodToStringReturns a string that represents the current object. (Inherited from Object.)
Top

Implementations of the Binder class are used by methods such as Type.InvokeMember, which selects from a set of possible members to execute, based on a set of parameter types and argument values; Type.GetMethod, which selects a method based on parameter types; and so on.

A default implementation of the Binder class is provided by the Type.DefaultBinder property.

Notes to Inheritors

When you inherit from Binder, you must override the following members: BindToMethod, BindToField, ReorderArgumentArray, SelectMethod, SelectProperty, and ChangeType.

The following example implements and demonstrates all members of the Binder class. The private method CanConvertFrom finds compatible types for a given type.


Imports System.Reflection
Imports System.Globalization
Imports System.Threading

Public Class MyBinder
   Inherits Binder
   Public Sub New()
      MyBase.new()
   End Sub 
   Private Class BinderState
      Public args() As Object
   End Class 

   Public Overrides Function BindToField(ByVal bindingAttr As BindingFlags, ByVal match() As FieldInfo, ByVal value As Object, ByVal culture As CultureInfo) As FieldInfo
      If match Is Nothing Then
         Throw New ArgumentNullException("match")
      End If
      ' Get a field for which the value parameter can be converted to the specified field type.
      Dim i As Integer
      For i = 0 To match.Length - 1
         If Not (ChangeType(value, match(i).FieldType, culture) Is Nothing) Then
            Return match(i)
         End If
      Next i
      Return Nothing
   End Function 

   Public Overrides Function BindToMethod(ByVal bindingAttr As BindingFlags, ByVal match() As MethodBase, ByRef args() As Object, ByVal modifiers() As ParameterModifier, ByVal culture As CultureInfo, ByVal names() As String, ByRef state As Object) As MethodBase
      ' Store the arguments to the method in a state object.
      Dim myBinderState As New BinderState()
      Dim arguments() As Object = New [Object](args.Length) {}
      args.CopyTo(arguments, 0)
      myBinderState.args = arguments
      state = myBinderState

      If match Is Nothing Then
         Throw New ArgumentNullException()
      End If
      ' Find a method that has the same parameters as those of args.
      Dim i As Integer
      For i = 0 To match.Length - 1
         ' Count the number of parameters that match.
         Dim count As Integer = 0
         Dim parameters As ParameterInfo() = match(i).GetParameters()
         ' Go on to the next method if the number of parameters do not match.
         If args.Length <> parameters.Length Then
            GoTo ContinueFori
         End If
         ' Match each of the parameters that the user expects the method to have.
         Dim j As Integer
         For j = 0 To args.Length - 1
            ' If names is not null, then reorder args.
            If Not (names Is Nothing) Then
               If names.Length <> args.Length Then
                  Throw New ArgumentException("names and args must have the same number of elements.")
               End If
               Dim k As Integer
               For k = 0 To names.Length - 1
                  If String.Compare(parameters(j).Name, names(k).ToString()) = 0 Then
                     args(j) = myBinderState.args(k)
                  End If
               Next k
            End If 
            ' Determine whether the types specified by the user can be converted to parameter type.
            If Not (ChangeType(args(j), parameters(j).ParameterType, culture) Is Nothing) Then
               count += 1
            Else
               Exit For
            End If
         Next j
         ' Determine whether the method has been found.
         If count = args.Length Then
            Return match(i)
         End If
ContinueFori:
      Next i
      Return Nothing
   End Function 

   Public Overrides Function ChangeType(ByVal value As Object, ByVal myChangeType As Type, ByVal culture As CultureInfo) As Object
      ' Determine whether the value parameter can be converted to a value of type myType.
      If CanConvertFrom(value.GetType(), myChangeType) Then
         ' Return the converted object.
         Return Convert.ChangeType(value, myChangeType, culture)
      Else
         ' Return null.
         Return Nothing
      End If
   End Function 'ChangeType

   Public Overrides Sub ReorderArgumentArray(ByRef args() As Object, ByVal state As Object)
      'Redimension the array to hold the state values.
      ReDim args(CType(state, BinderState).args.Length)
      ' Return the args that had been reordered by BindToMethod.
      CType(state, BinderState).args.CopyTo(args, 0)
   End Sub 

   Public Overrides Function SelectMethod(ByVal bindingAttr As BindingFlags, ByVal match() As MethodBase, ByVal types() As Type, ByVal modifiers() As ParameterModifier) As MethodBase
      If match Is Nothing Then
         Throw New ArgumentNullException("match")
      End If
      Dim i As Integer
      For i = 0 To match.Length - 1
         ' Count the number of parameters that match.
         Dim count As Integer = 0
         Dim parameters As ParameterInfo() = match(i).GetParameters()
         ' Go on to the next method if the number of parameters do not match.
         If types.Length <> parameters.Length Then
            GoTo ContinueFori
         End If
         ' Match each of the parameters that the user expects the method to have.
         Dim j As Integer
         For j = 0 To types.Length - 1
            ' Determine whether the types specified by the user can be converted to parameter type.
            If CanConvertFrom(types(j), parameters(j).ParameterType) Then
               count += 1
            Else
               Exit For
            End If
         Next j ' Determine whether the method has been found.
         If count = types.Length Then
            Return match(i)
         End If
ContinueFori:
      Next i
      Return Nothing
   End Function 

   Public Overrides Function SelectProperty(ByVal bindingAttr As BindingFlags, ByVal match() As PropertyInfo, ByVal returnType As Type, ByVal indexes() As Type, ByVal modifiers() As ParameterModifier) As PropertyInfo
      If match Is Nothing Then
         Throw New ArgumentNullException("match")
      End If
      Dim i As Integer
      For i = 0 To match.Length - 1
         ' Count the number of indexes that match.
         Dim count As Integer = 0
         Dim parameters As ParameterInfo() = match(i).GetIndexParameters()

         ' Go on to the next property if the number of indexes do not match.
         If indexes.Length <> parameters.Length Then
            GoTo ContinueFori
         End If
         ' Match each of the indexes that the user expects the property to have.
         Dim j As Integer
         For j = 0 To indexes.Length - 1
            ' Determine whether the types specified by the user can be converted to index type.
            If CanConvertFrom(indexes(j), parameters(j).ParameterType) Then
               count += 1
            Else
               Exit For
            End If
         Next j ' Determine whether the property has been found.
         If count = indexes.Length Then
            ' Determine whether the return type can be converted to the properties type.
            If CanConvertFrom(returnType, match(i).PropertyType) Then
               Return match(i)
            Else
               GoTo ContinueFori
            End If
         End If
ContinueFori:
      Next i
      Return Nothing
   End Function 

   ' Determine whether type1 can be converted to type2. Check only for primitive types.
   Private Function CanConvertFrom(ByVal type1 As Type, ByVal type2 As Type) As Boolean
      If type1.IsPrimitive And type2.IsPrimitive Then
         Dim typeCode1 As TypeCode = Type.GetTypeCode(type1)
         Dim typeCode2 As TypeCode = Type.GetTypeCode(type2)
         ' If both type1 and type2 have same type, return true.
         If typeCode1 = typeCode2 Then
            Return True
         End If ' Possible conversions from Char follow.
         If typeCode1 = TypeCode.Char Then
            Select Case typeCode2
               Case TypeCode.UInt16
                  Return True
               Case TypeCode.UInt32
                  Return True
               Case TypeCode.Int32
                  Return True
               Case TypeCode.UInt64
                  Return True
               Case TypeCode.Int64
                  Return True
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from Byte follow.
         If typeCode1 = TypeCode.Byte Then
            Select Case typeCode2
               Case TypeCode.Char
                  Return True
               Case TypeCode.UInt16
                  Return True
               Case TypeCode.Int16
                  Return True
               Case TypeCode.UInt32
                  Return True
               Case TypeCode.Int32
                  Return True
               Case TypeCode.UInt64
                  Return True
               Case TypeCode.Int64
                  Return True
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from SByte follow.
         If typeCode1 = TypeCode.SByte Then
            Select Case typeCode2
               Case TypeCode.Int16
                  Return True
               Case TypeCode.Int32
                  Return True
               Case TypeCode.Int64
                  Return True
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from UInt16 follow.
         If typeCode1 = TypeCode.UInt16 Then
            Select Case typeCode2
               Case TypeCode.UInt32
                  Return True
               Case TypeCode.Int32
                  Return True
               Case TypeCode.UInt64
                  Return True
               Case TypeCode.Int64
                  Return True
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from Int16 follow.
         If typeCode1 = TypeCode.Int16 Then
            Select Case typeCode2
               Case TypeCode.Int32
                  Return True
               Case TypeCode.Int64
                  Return True
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from UInt32 follow.
         If typeCode1 = TypeCode.UInt32 Then
            Select Case typeCode2
               Case TypeCode.UInt64
                  Return True
               Case TypeCode.Int64
                  Return True
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from Int32 follow.
         If typeCode1 = TypeCode.Int32 Then
            Select Case typeCode2
               Case TypeCode.Int64
                  Return True
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from UInt64 follow.
         If typeCode1 = TypeCode.UInt64 Then
            Select Case typeCode2
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from Int64 follow.
         If typeCode1 = TypeCode.Int64 Then
            Select Case typeCode2
               Case TypeCode.Single
                  Return True
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If ' Possible conversions from Single follow.
         If typeCode1 = TypeCode.Single Then
            Select Case typeCode2
               Case TypeCode.Double
                  Return True
               Case Else
                  Return False
            End Select
         End If
      End If
      Return False
   End Function 
End Class 


Public Class Example
   Public myFieldB As Short
   Public myFieldA As Integer
   Private Shared outputBlock As System.Windows.Controls.TextBlock

   Public Overloads Sub MyMethod(ByVal i As Long, ByVal k As Char)
      outputBlock.Text += String.Format("This is MyMethod(Long i, Char k).") & vbCrLf
   End Sub 

   Public Overloads Sub MyMethod(ByVal i As Long, ByVal j As Long)
      outputBlock.Text += String.Format("This is MyMethod(Long i, Long j).") & vbCrLf
   End Sub 

   Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      Example.outputBlock = outputBlock

      ' Get the type of Example.
      Dim myType As Type = GetType(Example)

      ' Get the instance of Example.
      Dim myInstance As Object = New Example()

      outputBlock.Text &= "Displaying the results of using the MyBinder binder." & vbCrLf

      ' Get the method information for MyMethod.
      Dim myMethod As MethodInfo = _
         myType.GetMethod("MyMethod", _
                          BindingFlags.Public Or BindingFlags.Instance, _
                          New MyBinder(), _
                          New Type() {GetType(Short), GetType(Short)}, _
                          Nothing)
      outputBlock.Text &= myMethod.ToString() & vbCrLf

      ' Invoke MyMethod using an instance of MyBinder.
      myType.InvokeMember("MyMethod", _
                          BindingFlags.InvokeMethod, _
                          New MyBinder(), _
                          myInstance, _
                          New Object() {CInt(32), CInt(32)})
   End Sub 
End Class 

' This code produces the following output:
'
'Displaying the results of using the MyBinder binder.
'Void MyMethod(Int64, Int64)
'This is MyMethod(Long i, Long j).


Windows Phone OS

Supported in: 8.1, 8.0, 7.1, 7.0

Windows Phone

Any public static (Shared in Visual Basic) members of this type are thread safe. Any instance members are not guaranteed to be thread safe.

Show:
© 2017 Microsoft