Vb.net 复制类

Public Class Form1
Public Class A1 : Implements ICloneable
Public para1 As String = "111"
Public para2 As String = "222"

Public Function Clone() As Object Implements System.ICloneable.Clone
Return MemberwiseClone()
End Function
End Class

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click Dim a As A1 Dim b As A1 = a.Clone b.para1 = "333" b.para2 = "444" Dim tmp1 As String = a.para1 Dim tmp2 As String = a.para2 End Sub End Class

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!