private sub test
Call PopulateColorsWithMasterIdentity(Colors, Id)
Call PopulatePartsWithMasterIdentity(Parts, Id)
Call PopulateSaloonsWithMasterIdentity(Saloons, Id)
End sub
Private Sub PopulateColorsWithMasterIdentity(ByRef MyList As List(Of entclsCriticalPartSetColor), ByVal Id As Integer)
For index As Byte = 0 To MyList.Count - 1
MyList.Item(index).CriticalPartsSetId = Id
Next
End Sub
Private Sub PopulatePartsWithMasterIdentity(ByRef MyList As List(Of entclsCriticalPartSetPart), ByVal Id As Integer)
For index As Byte = 0 To MyList.Count - 1
MyList.Item(index).CriticalPartsSetId = Id
Next
End Sub
Private Sub PopulateSaloonsWithMasterIdentity(ByRef MyList As List(Of entclsCriticalPartSetSaloon), ByVal Id As Integer)
For index As Byte = 0 To MyList.Count - 1
MyList.Item(index).CriticalPartsSetId = Id
Next
End Sub
* EDIT実際 *
.....私は/最適化し、このコードをリファクタリング助けてください、それが "多型" を使用することは可能ですか?私の代わりにpopulateXXXWithMasterIdentityの3つの異なる部分を有するので、私はこの1つのような1 PopulateListWithMasterIdentityを持つことができ、意味:
Private Sub PopulateListWithMasterIdentity(MyList As IList(Of entclsCriticalPartsBase), Id As Integer)
.....
End Sub
はあなたがすべてのオブジェクトを変異されているアップデートで
このコードはどのような問題を解決しようとしていますか?それをリファクタリングする動機は何ですか? – Sapph
@Sapph、私は自分の投稿を編集したばかりです:3の代わりに1つのPopulateXXXをどうすればできますか? – odiseh