怎样在Form中动态生成自己写的ocx控件。

Question

窗体上放一个，然后设置index=0，使用Load 控件名(索引)来加载

Answer 1

先放一个，设置 index 属性为 0在运行时，用代码 load image1(n) 形成控件数组n 递增unload img(n) 是卸载.
加载时n不一定是按顺序的,只要n没有没占用就可以.
卸载时也一样,只要有对应的就可以.
加载已有的n或卸载没有的n都会出错.
加上错误处理.
还有判断是否加载过可以写一个函数,内有错误捕获,再调用对应的n如果出错
就是没有,不出错就是有

Answer 2

Private WithEvents TmpControl As VBControlExtenderPrivate Sub LoadTmpCtrl()    
    Set TmpControl = frm.Controls.Add("VB.Text", "TmpControl", Me)
    
    With TmpControl
          
        .ZOrder 0
        .object.InitializeControl
        .Visible = True
    End WithEnd Sub
Private Sub TmpControl_ObjectEvent(Info As EventInfo)
  
    Select Case Info.Name
        Case "ActionComplete"
            frm.Controls.Remove "TmpControl"
            Set TmpControl= Nothing    end select
end sub