怎么动态复制控件啊

Question

我用setwindowrgn弄了个不规则图片框pic1(0),现在我想把他复制好几个,pic(1),pic(2)什么的,要像一般性图片框一样响应事件的,怎么弄呢,好像有一次我复制按钮,结果复制是复制出来了,就是没用的,光有个样子,不响应事件,呵呵,各位,请教了

Answer 1

其实事件都是在pic1上发生的，因为他们是同一个类的不同实例而已，在事件发生的时候只要判断index就可以分辨是哪一个pic1产生的事件了。
vb中复制的控件只能是控件组。

Answer 2

例如:要复制 控件数组PICTURE1(0)
     DIM INDEX AS LONG 
     INDEX=PICTURE1(PICTURE1.COUNT-1)
     LOAD PICTURE1(INDEX)
     PICTURE1(INDEX).Visible=TRUE
     PIMTURE1(INDEX).MOVE LEFT,TOP
当然,你不想用数组也可以.
    先在窗体模块中声明:
    Private WithEvents Ev_Pic As PICTUREBOX
    这里候系统已经有一个EV_PIC的图片框了,你可以在IDE窗口的对象列表中看得到.
    
  在某个事件中设置该图片框的属性,即产生一个实例.
    SET EV_PIC=PICTURE1(0)
    EV_PIC.Visible=TRUE
    EV_PIC.MOVE LEFT,TOP

Answer 3

假设 你已经有控件数组Picture1(0)dim i as integer
for i = 1 to 15
   load Picture1(i)
   Picture1(i).left=Picture1(i-1).left+100
next i就可以了