控件变量的复制如何实现?
A控件和B控件是一样的.比如都是TREEVIEW或者都是TEXT或控纽控件.

A控件已经有一定的属性或变量了.
想直接把它的所有变量属性全部传递给B.

如何实现?

[解决办法]
中秋快乐~~~

好久没来CSDN了呵呵

看明白了楼主所要的效果了.

其实就是想让现在窗口里面的一个控件原样显示到另一个窗口是吧..?

本来想直接试着直接复制指针,发现无效:

'FOMR1里的代码,里面放一个TEXT1(0),数组控件,设定好大小,内容等属性以便区分
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32.dll " Alias "RtlMoveMemory " ( _
ByVal Destination As Long, _
ByVal Source As Long, _
ByVal Length As Long)

Private Sub Command1_Click()
Load Form2
Form2.Controls.Add "VB.TextBox ", "Text1 "
Call CopyMemory(Form2.GetObjPtr, ObjPtr(Me.Text1(0)), 4) '复制指针
Form2!Text1.Visible = True
Form2.Show , Me
End Sub

'FORM2内代码:

Option Explicit

Public Function GetObjPtr() As Long
GetObjPtr = ObjPtr(Me!Text1)
End Function

结果无效....不知道是不是没搞对....

然后又想了一下....楼主不是要视觉上的效果嘛~~~

那何不简单点,只让另一个窗体作为一个显示容器?

思路:

以当前控件为样本,载入一个一样的控件,再 "放 "到另一个窗体里面....

代码:

'FORM1内,控件与上面代码一样

Option Explicit

Private Declare Function SetParent Lib "user32.dll " ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

Private Sub Command2_Click()
Load Form2
Load Text1(1)
Call SetParent(Text1(1).hWnd, Form2.hWnd)
Text1(1).Visible = True
Form2.Show
End Sub

'FORM2内就什么也不用了,一个空窗体就OK

运行后点COMMAND2(这按钮得要....忘了说明-_-)

FORM2里就有一个一模一样的东西了.....

不过不知道这办法是不是合适你的具体应用....看着办吧,反正这是一个大约的思路