タイトル : オブジェクトの代入 投稿日 : 2007/12/07(Fri) 13:46 投稿者 : mar
下記コードを実行すると p1,p2どちらもnameが"Joe"になってしまいます。 p1.name = "Mar" p2.name = "Joe" にするにはどうしたらよいのでしょうか? ==== Code ==== Private Class Data name as string age as integer End Class Private p1 as Data Private p2 as Data Sub Main dim dat As New Data dat.name = "Mar" dat.age = 19 p1 = dat p2 = dat p2.name = "Joe" End Sub |