在ActiveX中如何动态产生控件！！在线等！！

Question

就象在窗体中语句Set newlabel = frmRun.Controls.Add("vb.label", Name, Picture2)一样动态产生控件可以吗？？怎么实现？？
还有为什么我在ActiveX调用了image 控件，调用ActiveX时image显示不出来呢！！

Answer 1

你这样调用是对的，但是动态添加的控件的visible属性默认是False，你得把它设置为True

Answer 2

我在ActiveX使用语句Set newlabel = UserControl1.Controls.Add("vb.label", FloorName, Picture2)，可惜在编译的时候出错了，提示是，数据或方法没有发现，这是为什么？？
要怎么写呀

Answer 3

这里应该用Set newlabel = Me.Controls.Add("vb.label", FloorName, Picture2)
注意这里FloorName应该是String类型

Answer 4

为什么在ActiveX控件中调用的image 控件显示不出来呢！！

Answer 5

这个问题这么难吗？？烦死我了，怎么办啊？？
我在ActiveX控件中用这个语句为什么就没反应呢？？哪出错了呢？？
For j = intHeight - 1 To intFlo
        intCall(j) = intIcon
        Load imgCall(j)
        With imgCall(j)
            .Left = 3
            .Top = picSelect2.Height - 8 * (j - intHeight + 2)
            .Picture = LoadResPicture(intIcon, vbResIcon)
            .Height = 6
            .Width = 6
            .Visible = True
            .Stretch = True
        End With
        intIcon = intIcon + 1
    Next
哦

Answer 6

这个问题这么难吗？？烦死我了，怎么办啊？？
我在ActiveX控件中用这个语句为什么就没反应呢？？哪出错了呢？？
For j = intHeight - 1 To intFlo
        intCall(j) = intIcon
        Load imgCall(j)
        With imgCall(j)
            .Left = 3
            .Top = picSelect2.Height - 8 * (j - intHeight + 2)
            .Picture = LoadResPicture(intIcon, vbResIcon)
            .Height = 6
            .Width = 6
            .Visible = True
            .Stretch = True
        End With
        intIcon = intIcon + 1
    Next