Private Sub Form_Click()
Dim S As New StdFont
Dim A As StdFont
Dim B As StdFont
'给原始对象赋值
S.Size = 72
'将 A 指向 S.
'注意: 此处若是去掉 Set 就会报错. 因为 A 实际上并未非配内存空间.
Set A = S
'为 B 申请空间, 并将 S 的值赋予 B. 实际上是一个 Copy 的过程.
Set B = New StdFont
B = S
'修改内容
A.Size = 12
B.Size = 24
'输出结果
Print "原始对象的值应该是72,但实际上是: ", S.Size
Print "对象A实际上是一个指向S的指针,所以修改A就等于修改S: ", A.Size
Print "只有 New 过的对象才具有自己的内存空间: ", B.Size
End Sub
Dim S As New StdFont
Dim A As StdFont
Dim B As StdFont
'给原始对象赋值
S.Size = 72
'将 A 指向 S.
'注意: 此处若是去掉 Set 就会报错. 因为 A 实际上并未非配内存空间.
Set A = S
'为 B 申请空间, 并将 S 的值赋予 B. 实际上是一个 Copy 的过程.
Set B = New StdFont
B = S
'修改内容
A.Size = 12
B.Size = 24
'输出结果
Print "原始对象的值应该是72,但实际上是: ", S.Size
Print "对象A实际上是一个指向S的指针,所以修改A就等于修改S: ", A.Size
Print "只有 New 过的对象才具有自己的内存空间: ", B.Size
End Sub
摘自:网络整理
相关文章: