将对象列表转换为另一个对象列表，即使它们不是同一类型

Question

我想将 ViewModel 和 Mode（数据访问对象或数据成员）分开。请看下文。

主要的 DAO

Public Class Major

       Public MajorID as Integer
       Public MajorName as String

End Class

主要虚拟机

Public Class MajorVM

       Public Major as Major

End Class

但主要视图模型为专业提供参考。在这种情况下，我想将主要对象转换为 majorvm 对象列表。请看下文。

Dim MajorList as list(of Major) = GetAllMajorList()
Dim MajorVMList as List(of MajorVM)

MajorVMList = MajorList

我该如何解决这个问题？谢谢。

Answer 1

试试这个。

Dim MajorVMList as New List(of MajorVM)

For each item as Major in MajorList 

 Dim m as new Major
 Major.MajorID = item.MajorID
 Major.MajorName = item.MajorName

 MajorVMList.Add(Major)


Next