/ Published in: Visual Basic
This copies all property values from Class A to Class B. Useful if you have many unrelated classes that share similar properties and you are constantly writing code like:
shirt.Color = pants.Color
shirt.Pattern = pants.Pattern
shirt.Style = pants.Style
Could change to:
pants.CopyPropertiesTo(shirt)
shirt.Color = pants.Color
shirt.Pattern = pants.Pattern
shirt.Style = pants.Style
Could change to:
pants.CopyPropertiesTo(shirt)
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
<System.Runtime.CompilerServices.Extension()> _ Public Sub CopyPropertiesTo(ByVal src As Object, ByVal dest As Object) If dest Is Nothing Then Exit Sub End If Dim srcType As Type = src.GetType() Dim destType As Type = dest.GetType() Dim pi() As PropertyInfo = srcType.GetProperties(BindingFlags.Public Or BindingFlags.GetProperty Or BindingFlags.Instance) For Each p1 As PropertyInfo In pi Dim p2 As PropertyInfo = destType.GetProperty(p1.Name, BindingFlags.Public Or BindingFlags.SetField Or BindingFlags.Instance) If p2 IsNot Nothing Then If p2.PropertyType Is p1.PropertyType Then p2.SetValue(dest, p1.GetValue(src, Nothing), Nothing, Nothing, Nothing, Nothing) End If End If Next End Sub
Comments
Subscribe to comments
