Binder Classe
Important
Certaines informations portent sur la préversion du produit qui est susceptible d’être en grande partie modifiée avant sa publication. Microsoft exclut toute garantie, expresse ou implicite, concernant les informations fournies ici.
Sélectionne un membre dans une liste de candidats et effectue une conversion de type d'argument réel en type d'argument formel.
public ref class Binder abstractC#
public abstract class BinderC#
[System.Runtime.InteropServices.ClassInterface(System.Runtime.InteropServices.ClassInterfaceType.AutoDual)]
[System.Serializable]
public abstract class BinderC#
[System.Runtime.InteropServices.ClassInterface(System.Runtime.InteropServices.ClassInterfaceType.AutoDual)]
[System.Serializable]
[System.Runtime.InteropServices.ComVisible(true)]
public abstract class Bindertype Binder = class[<System.Runtime.InteropServices.ClassInterface(System.Runtime.InteropServices.ClassInterfaceType.AutoDual)>]
[<System.Serializable>]
type Binder = class[<System.Runtime.InteropServices.ClassInterface(System.Runtime.InteropServices.ClassInterfaceType.AutoDual)>]
[<System.Serializable>]
[<System.Runtime.InteropServices.ComVisible(true)>]
type Binder = classPublic MustInherit Class Binder- Héritage
-
Binder
- Attributs
L’exemple suivant implémente et illustre tous les membres de la Binder classe . La méthode CanConvertFrom privée recherche des types compatibles pour un type donné.
using namespace System;
using namespace System::Reflection;
using namespace System::Globalization;
using namespace System::Runtime::InteropServices;
public ref class MyBinder: public Binder
{
public:
MyBinder()
: Binder()
{}
private:
ref class BinderState
{
public:
array<Object^>^args;
};
public:
virtual FieldInfo^ BindToField( BindingFlags bindingAttr, array<FieldInfo^>^match, Object^ value, CultureInfo^ culture ) override
{
if ( match == nullptr )
throw gcnew ArgumentNullException( "match" );
// Get a field for which the value parameter can be converted to the specified field type.
for ( int i = 0; i < match->Length; i++ )
if ( ChangeType( value, match[ i ]->FieldType, culture ) != nullptr )
return match[ i ];
return nullptr;
}
virtual MethodBase^ BindToMethod( BindingFlags bindingAttr, array<MethodBase^>^match, array<Object^>^%args, array<ParameterModifier>^ modifiers, CultureInfo^ culture, array<String^>^names, [Out]Object^% state ) override
{
// Store the arguments to the method in a state Object*.
BinderState^ myBinderState = gcnew BinderState;
array<Object^>^arguments = gcnew array<Object^>(args->Length);
args->CopyTo( arguments, 0 );
myBinderState->args = arguments;
state = myBinderState;
if ( match == nullptr )
throw gcnew ArgumentNullException;
// Find a method that has the same parameters as those of the args parameter.
for ( int i = 0; i < match->Length; i++ )
{
// Count the number of parameters that match.
int count = 0;
array<ParameterInfo^>^parameters = match[ i ]->GetParameters();
// Go on to the next method if the number of parameters do not match.
if ( args->Length != parameters->Length )
continue;
// Match each of the parameters that the user expects the method to have.
for ( int j = 0; j < args->Length; j++ )
{
// If the names parameter is not 0, then reorder args.
if ( names != nullptr )
{
if ( names->Length != args->Length )
throw gcnew ArgumentException( "names and args must have the same number of elements." );
for ( int k = 0; k < names->Length; k++ )
if ( String::Compare( parameters[ j ]->Name, names[ k ] ) == 0 )
args[ j ] = myBinderState->args[ k ];
}
// Determine whether the types specified by the user can be converted to the parameter type.
if ( ChangeType( args[ j ], parameters[ j ]->ParameterType, culture ) != nullptr )
count += 1;
else
break;
}
if ( count == args->Length )
return match[ i ];
}
return nullptr;
}
virtual Object^ ChangeType( Object^ value, Type^ myChangeType, CultureInfo^ culture ) override
{
// Determine whether the value parameter can be converted to a value of type myType.
if ( CanConvertFrom( value->GetType(), myChangeType ) )
// Return the converted Object*.
return Convert::ChangeType( value, myChangeType );
else
return nullptr;
}
virtual void ReorderArgumentArray( array<Object^>^%args, Object^ state ) override
{
// Return the args that had been reordered by BindToMethod.
(safe_cast<BinderState^>(state))->args->CopyTo( args, 0 );
}
virtual MethodBase^ SelectMethod( BindingFlags bindingAttr, array<MethodBase^>^match, array<Type^>^types, array<ParameterModifier>^ modifiers ) override
{
if ( match == nullptr )
throw gcnew ArgumentNullException( "match" );
for ( int i = 0; i < match->Length; i++ )
{
// Count the number of parameters that match.
int count = 0;
array<ParameterInfo^>^parameters = match[ i ]->GetParameters();
// Go on to the next method if the number of parameters do not match.
if ( types->Length != parameters->Length )
continue;
// Match each of the parameters that the user expects the method to have.
for ( int j = 0; j < types->Length; j++ )
{
// Determine whether the types specified by the user can be converted to parameter type.
if ( CanConvertFrom( types[ j ], parameters[ j ]->ParameterType ) )
count += 1;
else
break;
}
// Determine whether the method has been found.
if ( count == types->Length )
return match[ i ];
}
return nullptr;
}
virtual PropertyInfo^ SelectProperty( BindingFlags bindingAttr, array<PropertyInfo^>^match, Type^ returnType, array<Type^>^indexes, array<ParameterModifier>^ modifiers ) override
{
if ( match == nullptr )
throw gcnew ArgumentNullException( "match" );
for ( int i = 0; i < match->Length; i++ )
{
// Count the number of indexes that match.
int count = 0;
array<ParameterInfo^>^parameters = match[ i ]->GetIndexParameters();
// Go on to the next property if the number of indexes do not match.
if ( indexes->Length != parameters->Length )
continue;
// Match each of the indexes that the user expects the property to have.
for ( int j = 0; j < indexes->Length; j++ )
// Determine whether the types specified by the user can be converted to index type.
if ( CanConvertFrom( indexes[ j ], parameters[ j ]->ParameterType ) )
count += 1;
else
break;
// Determine whether the property has been found.
if ( count == indexes->Length )
{
// Determine whether the return type can be converted to the properties type.
if ( CanConvertFrom( returnType, match[ i ]->PropertyType ) )
return match[ i ];
else
continue;
}
}
return nullptr;
}
private:
// Determines whether type1 can be converted to type2. Check only for primitive types.
bool CanConvertFrom( Type^ type1, Type^ type2 )
{
if ( type1->IsPrimitive && type2->IsPrimitive )
{
TypeCode typeCode1 = Type::GetTypeCode( type1 );
TypeCode typeCode2 = Type::GetTypeCode( type2 );
// If both type1 and type2 have the same type, return true.
if ( typeCode1 == typeCode2 )
return true;
// Possible conversions from Char follow.
if ( typeCode1 == TypeCode::Char )
{
switch ( 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;
default:
return false;
}
}
// Possible conversions from Byte follow.
if ( typeCode1 == TypeCode::Byte )
{
switch ( 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;
default:
return false;
}
}
// Possible conversions from SByte follow.
if ( typeCode1 == TypeCode::SByte )
{
switch ( 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;
default:
return false;
}
}
// Possible conversions from UInt16 follow.
if ( typeCode1 == TypeCode::UInt16 )
{
switch ( 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;
default:
return false;
}
}
// Possible conversions from Int16 follow.
if ( typeCode1 == TypeCode::Int16 )
{
switch ( typeCode2 )
{
case TypeCode::Int32:
return true;
case TypeCode::Int64:
return true;
case TypeCode::Single:
return true;
case TypeCode::Double:
return true;
default:
return false;
}
}
// Possible conversions from UInt32 follow.
if ( typeCode1 == TypeCode::UInt32 )
{
switch ( typeCode2 )
{
case TypeCode::UInt64:
return true;
case TypeCode::Int64:
return true;
case TypeCode::Single:
return true;
case TypeCode::Double:
return true;
default:
return false;
}
}
// Possible conversions from Int32 follow.
if ( typeCode1 == TypeCode::Int32 )
{
switch ( typeCode2 )
{
case TypeCode::Int64:
return true;
case TypeCode::Single:
return true;
case TypeCode::Double:
return true;
default:
return false;
}
}
// Possible conversions from UInt64 follow.
if ( typeCode1 == TypeCode::UInt64 )
{
switch ( typeCode2 )
{
case TypeCode::Single:
return true;
case TypeCode::Double:
return true;
default:
return false;
}
}
// Possible conversions from Int64 follow.
if ( typeCode1 == TypeCode::Int64 )
{
switch ( typeCode2 )
{
case TypeCode::Single:
return true;
case TypeCode::Double:
return true;
default:
return false;
}
}
// Possible conversions from Single follow.
if ( typeCode1 == TypeCode::Single )
{
switch ( typeCode2 )
{
case TypeCode::Double:
return true;
default:
return false;
}
}
}
return false;
}
};
public ref class MyClass1
{
public:
short myFieldB;
int myFieldA;
void MyMethod( long i, char k )
{
Console::WriteLine( "\nThis is MyMethod(long i, char k)" );
}
void MyMethod( long i, long j )
{
Console::WriteLine( "\nThis is MyMethod(long i, long j)" );
}
};
int main()
{
// Get the type of MyClass1.
Type^ myType = MyClass1::typeid;
// Get the instance of MyClass1.
MyClass1^ myInstance = gcnew MyClass1;
Console::WriteLine( "\nDisplaying the results of using the MyBinder binder.\n" );
// Get the method information for MyMethod.
array<Type^>^types = {short::typeid,short::typeid};
MethodInfo^ myMethod = myType->GetMethod( "MyMethod", static_cast<BindingFlags>(BindingFlags::Public | BindingFlags::Instance), gcnew MyBinder, types, nullptr );
Console::WriteLine( myMethod );
// Invoke MyMethod.
array<Object^>^obj = {32,32};
myMethod->Invoke( myInstance, BindingFlags::InvokeMethod, gcnew MyBinder, obj, CultureInfo::CurrentCulture );
}
C#
using System;
using System.Reflection;
using System.Globalization;
public class MyBinder : Binder
{
public MyBinder() : base()
{
}
private class BinderState
{
public object[] args;
}
public override FieldInfo BindToField(
BindingFlags bindingAttr,
FieldInfo[] match,
object value,
CultureInfo culture
)
{
if(match == null)
throw new ArgumentNullException("match");
// Get a field for which the value parameter can be converted to the specified field type.
for(int i = 0; i < match.Length; i++)
if(ChangeType(value, match[i].FieldType, culture) != null)
return match[i];
return null;
}
public override MethodBase BindToMethod(
BindingFlags bindingAttr,
MethodBase[] match,
ref object[] args,
ParameterModifier[] modifiers,
CultureInfo culture,
string[] names,
out object state
)
{
// Store the arguments to the method in a state object.
BinderState myBinderState = new BinderState();
object[] arguments = new Object[args.Length];
args.CopyTo(arguments, 0);
myBinderState.args = arguments;
state = myBinderState;
if(match == null)
throw new ArgumentNullException();
// Find a method that has the same parameters as those of the args parameter.
for(int i = 0; i < match.Length; i++)
{
// Count the number of parameters that match.
int count = 0;
ParameterInfo[] parameters = match[i].GetParameters();
// Go on to the next method if the number of parameters do not match.
if(args.Length != parameters.Length)
continue;
// Match each of the parameters that the user expects the method to have.
for(int j = 0; j < args.Length; j++)
{
// If the names parameter is not null, then reorder args.
if(names != null)
{
if(names.Length != args.Length)
throw new ArgumentException("names and args must have the same number of elements.");
for(int k = 0; k < names.Length; k++)
if(String.Compare(parameters[j].Name, names[k].ToString()) == 0)
args[j] = myBinderState.args[k];
}
// Determine whether the types specified by the user can be converted to the parameter type.
if(ChangeType(args[j], parameters[j].ParameterType, culture) != null)
count += 1;
else
break;
}
// Determine whether the method has been found.
if(count == args.Length)
return match[i];
}
return null;
}
public override object ChangeType(
object value,
Type myChangeType,
CultureInfo culture
)
{
// Determine whether the value parameter can be converted to a value of type myType.
if(CanConvertFrom(value.GetType(), myChangeType))
// Return the converted object.
return Convert.ChangeType(value, myChangeType);
else
// Return null.
return null;
}
public override void ReorderArgumentArray(
ref object[] args,
object state
)
{
// Return the args that had been reordered by BindToMethod.
((BinderState)state).args.CopyTo(args, 0);
}
public override MethodBase SelectMethod(
BindingFlags bindingAttr,
MethodBase[] match,
Type[] types,
ParameterModifier[] modifiers
)
{
if(match == null)
throw new ArgumentNullException("match");
for(int i = 0; i < match.Length; i++)
{
// Count the number of parameters that match.
int count = 0;
ParameterInfo[] parameters = match[i].GetParameters();
// Go on to the next method if the number of parameters do not match.
if(types.Length != parameters.Length)
continue;
// Match each of the parameters that the user expects the method to have.
for(int j = 0; j < types.Length; j++)
// Determine whether the types specified by the user can be converted to parameter type.
if(CanConvertFrom(types[j], parameters[j].ParameterType))
count += 1;
else
break;
// Determine whether the method has been found.
if(count == types.Length)
return match[i];
}
return null;
}
public override PropertyInfo SelectProperty(
BindingFlags bindingAttr,
PropertyInfo[] match,
Type returnType,
Type[] indexes,
ParameterModifier[] modifiers
)
{
if(match == null)
throw new ArgumentNullException("match");
for(int i = 0; i < match.Length; i++)
{
// Count the number of indexes that match.
int count = 0;
ParameterInfo[] parameters = match[i].GetIndexParameters();
// Go on to the next property if the number of indexes do not match.
if(indexes.Length != parameters.Length)
continue;
// Match each of the indexes that the user expects the property to have.
for(int j = 0; j < indexes.Length; j++)
// Determine whether the types specified by the user can be converted to index type.
if(CanConvertFrom(indexes[j], parameters[j].ParameterType))
count += 1;
else
break;
// Determine whether the property has been found.
if(count == indexes.Length)
// Determine whether the return type can be converted to the properties type.
if(CanConvertFrom(returnType, match[i].PropertyType))
return match[i];
else
continue;
}
return null;
}
// Determines whether type1 can be converted to type2. Check only for primitive types.
private bool CanConvertFrom(Type type1, Type type2)
{
if(type1.IsPrimitive && type2.IsPrimitive)
{
TypeCode typeCode1 = Type.GetTypeCode(type1);
TypeCode typeCode2 = Type.GetTypeCode(type2);
// If both type1 and type2 have the same type, return true.
if(typeCode1 == typeCode2)
return true;
// Possible conversions from Char follow.
if(typeCode1 == TypeCode.Char)
switch(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;
default : return false;
}
// Possible conversions from Byte follow.
if(typeCode1 == TypeCode.Byte)
switch(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;
default : return false;
}
// Possible conversions from SByte follow.
if(typeCode1 == TypeCode.SByte)
switch(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;
default : return false;
}
// Possible conversions from UInt16 follow.
if(typeCode1 == TypeCode.UInt16)
switch(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;
default : return false;
}
// Possible conversions from Int16 follow.
if(typeCode1 == TypeCode.Int16)
switch(typeCode2)
{
case TypeCode.Int32 : return true;
case TypeCode.Int64 : return true;
case TypeCode.Single : return true;
case TypeCode.Double : return true;
default : return false;
}
// Possible conversions from UInt32 follow.
if(typeCode1 == TypeCode.UInt32)
switch(typeCode2)
{
case TypeCode.UInt64 : return true;
case TypeCode.Int64 : return true;
case TypeCode.Single : return true;
case TypeCode.Double : return true;
default : return false;
}
// Possible conversions from Int32 follow.
if(typeCode1 == TypeCode.Int32)
switch(typeCode2)
{
case TypeCode.Int64 : return true;
case TypeCode.Single : return true;
case TypeCode.Double : return true;
default : return false;
}
// Possible conversions from UInt64 follow.
if(typeCode1 == TypeCode.UInt64)
switch(typeCode2)
{
case TypeCode.Single : return true;
case TypeCode.Double : return true;
default : return false;
}
// Possible conversions from Int64 follow.
if(typeCode1 == TypeCode.Int64)
switch(typeCode2)
{
case TypeCode.Single : return true;
case TypeCode.Double : return true;
default : return false;
}
// Possible conversions from Single follow.
if(typeCode1 == TypeCode.Single)
switch(typeCode2)
{
case TypeCode.Double : return true;
default : return false;
}
}
return false;
}
}
public class MyClass1
{
public short myFieldB;
public int myFieldA;
public void MyMethod(long i, char k)
{
Console.WriteLine("\nThis is MyMethod(long i, char k)");
}
public void MyMethod(long i, long j)
{
Console.WriteLine("\nThis is MyMethod(long i, long j)");
}
}
public class Binder_Example
{
public static void Main()
{
// Get the type of MyClass1.
Type myType = typeof(MyClass1);
// Get the instance of MyClass1.
MyClass1 myInstance = new MyClass1();
Console.WriteLine("\nDisplaying the results of using the MyBinder binder.\n");
// Get the method information for MyMethod.
MethodInfo myMethod = myType.GetMethod("MyMethod", BindingFlags.Public | BindingFlags.Instance,
new MyBinder(), new Type[] {typeof(short), typeof(short)}, null);
Console.WriteLine(myMethod);
// Invoke MyMethod.
myMethod.Invoke(myInstance, BindingFlags.InvokeMethod, new MyBinder(), new Object[] {(int)32, (int)32}, CultureInfo.CurrentCulture);
}
}
Imports System.Reflection
Imports System.Globalization
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 'BindToField
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 'BindToMethod
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)
' Return null.
Else
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 'SelectMethod
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 'SelectProperty
' 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 'CanConvertFrom
End Class
Public Class MyClass1
Public myFieldB As Short
Public myFieldA As Integer
Public Overloads Sub MyMethod(ByVal i As Long, ByVal k As Char)
Console.WriteLine(ControlChars.NewLine & "This is MyMethod(long i, char k).")
End Sub
Public Overloads Sub MyMethod(ByVal i As Long, ByVal j As Long)
Console.WriteLine(ControlChars.NewLine & "This is MyMethod(long i, long j).")
End Sub
End Class
Public Class Binder_Example
Public Shared Sub Main()
' Get the type of MyClass1.
Dim myType As Type = GetType(MyClass1)
' Get the instance of MyClass1.
Dim myInstance As New MyClass1()
Console.WriteLine(ControlChars.Cr & "Displaying the results of using the MyBinder binder.")
Console.WriteLine()
' 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)
Console.WriteLine(MyMethod)
' Invoke MyMethod.
myMethod.Invoke(myInstance, BindingFlags.InvokeMethod, New MyBinder(), New [Object]() {CInt(32), CInt(32)}, CultureInfo.CurrentCulture)
End Sub
End Class
Les implémentations de la Binder classe sont utilisées par des méthodes telles que Type.InvokeMember, qui sélectionne parmi un ensemble de membres possibles à exécuter, en fonction d’un ensemble de types de paramètres et de valeurs d’argument ; Type.GetMethod, qui sélectionne une méthode basée sur les types de paramètres , et ainsi de suite.
Une implémentation par défaut de la Binder classe est fournie par la Type.DefaultBinder propriété .
Lorsque vous héritez de Binder, vous devez remplacer les membres suivants : BindToMethod(BindingFlags, MethodBase[], Object[], ParameterModifier[], CultureInfo, String[], Object), BindToField(BindingFlags, FieldInfo[], Object, CultureInfo), SelectMethod(BindingFlags, MethodBase[], Type[], ParameterModifier[])ReorderArgumentArray(Object[], Object), , SelectProperty(BindingFlags, PropertyInfo[], Type, Type[], ParameterModifier[])et ChangeType(Object, Type, CultureInfo).
|
Bind |
Sélectionne un champ à partir d'un ensemble de champs donné, en tenant compte des critères spécifiés. |
|
Bind |
Sélectionne une méthode à appeler à partir de l'ensemble de méthodes donné, en fonction des arguments fournis. |
|
Change |
Convertit le type du |
| Equals(Object) |
Détermine si l'objet spécifié est égal à l'objet actuel. (Hérité de Object) |
|
Get |
Fait office de fonction de hachage par défaut. (Hérité de Object) |
|
Get |
Obtient le Type de l'instance actuelle. (Hérité de Object) |
|
Memberwise |
Crée une copie superficielle du Object actuel. (Hérité de Object) |
|
Reorder |
Après le retour de la méthode BindToMethod(BindingFlags, MethodBase[], Object[], ParameterModifier[], CultureInfo, String[], Object), rétablit l'argument |
|
Select |
Sélectionne une méthode dans l'ensemble de méthodes donné, en fonction du type de l'argument. |
|
Select |
Sélectionne une propriété dans un ensemble de propriétés donné, en tenant compte des critères spécifiés. |
|
To |
Retourne une chaîne qui représente l'objet actuel. (Hérité de Object) |
| Produit | Versions |
|---|---|
| .NET | Core 2.0, Core 2.1, Core 2.2, Core 3.0, Core 3.1, 5, 6, 7, 8, 9 |
| .NET Framework | 1.1, 2.0, 3.0, 3.5, 4.0, 4.5, 4.5.1, 4.5.2, 4.6, 4.6.1, 4.6.2, 4.7, 4.7.1, 4.7.2, 4.8, 4.8.1 |
| .NET Standard | 2.0, 2.1 |
Collaborer avec nous sur GitHub
La source de ce contenu se trouve sur GitHub, où vous pouvez également créer et examiner des problèmes et des demandes de tirage (pull requests). Pour plus d’informations, consultez notre guide du contributeur.
Commentaires sur .NET
.NET est un projet open source. Sélectionnez un lien pour fournir des commentaires :