Делегат по объекту

Question

Я видел некоторое обходное решение с C#, но я использую vb.net, и я не могу назвать делегата для свойства, в elast I doN, t know how, и никто не кажется имеют прямой прямой ответ

Так что, если кто-то делать: Как добавить или создать делегат для свойства

Answer 1

имущества под названием PropertyName типа TProp основной реализация 2 методов:

• function get_PropertyName() as TProp
• sub set_PropertyName(value as TProp)

---

Вот пример для свойства строки:

Public Delegate Function StringGetter() As String 
Public Delegate Sub StringSetter(value As String) 

Class Test 
    Public Property MyProp As String 
End Class 

Public Sub Main() 

    Dim testObj As New Test With {.MyProp = "Hello"} 

    Dim getter = [Delegate].CreateDelegate(GetType(StringGetter), testObj, "get_MyProp") 
    If CType(getter.DynamicInvoke(), String) <> "Hello" Then Throw New Exception("get failed") 

    Dim setter = [Delegate].CreateDelegate(GetType(StringSetter), testObj, "set_MyProp") 
    setter.DynamicInvoke("Hello2") 
    If testObj.MyProp <> "Hello2" Then Throw New Exception("set failed") 

End Sub