2705.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 25 行

HTML
25
字号
<html>
  <head>
    <title>物件的复制</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>物件的复制</h1>
    </center>

<HR><p>
Posted by <a href="mailto:daniel@wsmc.com.tw">Daniel Lin</a> on April 28, 1998 at 23:21:50:<p>
<br>小弟曾于一书中读及<p>     : 建立具体物件方法三<br>     : DIM OX2 As Object<br>     : set OX2 = OX1 '将OX1的具体物件指定给OX2<br>     : 此一方法的意义是把某一个物件变数的具体物件复制给另一个物件变数<p><br>小弟曾尝试利用此法来复制物件, 但似乎OX2 指到的具体物件OX1为相同<br>一个, 若我改了 OX1 的属性1, 则OX2的属性也跟着被更改了, 如下例<br>      DIM OX2 As Object<br>      DIM OX1 As New Class1<br>      OX1.Property1 = "Here"<br>      Set OX2 = OX1<br>      Debug.Print OX2.Property1<br>      OX1.Propery1 = "There"<br>      Debug.Print OX2.Property1<p>      印出之结果为<br>      Here<br>      There<p>问题: 此法是否无法具体物件复制给另一个物件变数呢? 有甚么方式可作<br>到呢?<br>      (如让上例印出之结果皆为 Here)<p>补充, 我的重点是OX2 是OX1的复制,而不是指向同一具体物件.<br>即OX1的所有Properties的值 皆复制至OX2的Properties. 之后, OX1有任<br>何Property之改变皆不会影响OX2的Property.<br>记得Smalltalk 有 物件Copy的Method, 可作到我上面的要求. 不知VB是<br>否有此能力.<br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2705-->
<!--top: 2706--><li><a href="2706.html"><b>没有好方法</b></a> 小吴 <i>00:39:24 4/29/98</i>
(<!--responses: 2706-->0)
<ul><!--insert: 2706-->
</ul><!--end: 2706-->
</ul><!--end: 2705-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?