VB编写ActiveX控件时动态添加控件到顶层UserControl

本篇文章主要介绍了"VB编写ActiveX控件时动态添加控件到顶层UserControl"，对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下： 自己琢磨了许久，还是写出来了遇到奇葩问题，不知道大侠们能帮我解决困惑不动态添加控件到UserControl代码如下：Private Sub Command1_C...

自己琢磨了许久，还是写出来了

遇到奇葩问题，不知道大侠们能帮我解决困惑不

动态添加控件到UserControl代码如下：

Private Sub Command1_Click()
    Dim testText As TextBox
'    Set testText = UserControl.Controls.Add("VB.TextBox", "testText", UserControl1)                                        '工程中有UserControl1（顶层容器）,但代码执行为空值
    Set testText = UserControl.Controls.Add("VB.TextBox", "testText", UserControl.Controls(0).Container)                    '这样又可以添加到顶层容器里面，真搞不清楚为什么
'    Set testText = UserControl.Controls.Add("VB.TextBox", "testText", Frame1)                                               '注意这段代码中UserControl不是控件名，是active的主控件
    With testText
        .Top = 1000
        .Left = 1000
        .Text = "测试文本框"
        .Visible = True
        .Locked = True
        .Width = 2000
        .Height = 375
    End With
End Sub

添加成功的截图：

以上就介绍了VB编写ActiveX控件时动态添加控件到顶层UserControl，包括了方面的内容，希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_97771.html