正在阅读：.Net进阶:实现Prototype设计模式.Net进阶:实现Prototype设计模式

            mstrLName = Value

        End Set

    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext, ByVal intIndex As Integer)

        mstrFName = CStr(info.GetValue("emp_fname" & intIndex, GetType(String)))

        mstrLName = CStr(info.GetValue("emp_lname" & intIndex, GetType(String)))

    End Sub

    Public Sub GetObjectData(ByVal info As SerializationInfo, ByVal context As StreamingContext, ByVal intIndex As Long)

        info.AddValue("emp_fname" & intIndex, mstrFName)

        info.AddValue("emp_lname" & intIndex, mstrLName)

    End Sub

End Class