Advanced Search

Return to Snippet

Revision: 13625
at April 29, 2009 14:23 by delm
Initial Code 
Public Sub Asimilar(of T)(ByVal target as T, ByVal source As T)
  Dim propiedades As PropertyInfo()
  Dim type As Type = target.GetType()
  propiedades = type.GetProperties()

  For Each pi As PropertyInfo In propiedades
    If pi.CanWrite Then pi.SetValue(target, pi.GetValue(source, Nothing), Nothing)
  Next
End Sub
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Dado un objeto original, este método copia los valores de ese objeto en un segundo objeto de la misma clase, utilizando reflection.

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Asimilar valores de un objeto de la misma clase

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
copy

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
VB.NET