有一定难度：怎样复制容器控件及容器内控件

Question

像Form一样
Private Sub Command1_Click()
   Dim frm As New Form1
   frm.Show
End Sub
这样就可以产生一Form及其上所有控件的副本今要对Picture控件及其内所有控件生成一副本，该如何做？
如果只要Picture的副本是很容易的，主要是其内部的控件有点难度。

Answer 1

枚举窗口中的所有控件，然后判断其parent属性，如果是picture ，则创建。╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯

Answer 2

楼上的方法倒是可以解决，只是我还为每个在Picture中的控件一一指定位置及一些其它属性
这样有点繁有没有更好一点的办法?

Answer 3

Dim obj As Object
    For Each obj In Picture1.Container
        Debug.Print obj
    Next

Answer 4

因为Picture中的控件类型及数量是不定的
所以无法先做成控件

Answer 5

你可以循環所有控件,並判斷此控件的容器對象(父對象)
之后並記錄其所有屬性,利用Set MyObject(i) = Controls.Add("VB.控制對象類型", 新控件名)的方法動態生成新的對象

Answer 6

你在项目里添加一个“用户控件”，把你的Picture和子控件包装到用户控件里面，这样会好些。

Answer 7

因为Picture中的控件类型及数量是不定的
所以无法先做成控件
=========================================
其实你可以把生成这些控件的方法也一起封装到Usercontrol里面然后做用户控件啊

Answer 8

楼上的说得有道理
不过你说的"把生成这些控件的方法也一起封装到Usercontrol里面然后做用户控件"我倒还滑做过
能否具体说点？
分不够还可另开贴加嘛