VB编写ActiveX控件时,动态添加控件到某个容器
2014-11-23 23:18
429 查看
网上没找到答案,反复测试代码发现了比较奇葩的事情
将控件添加到顶层容器里面
还是帖代码让大家看看吧
代码如下
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
奇葩问题如注释所述
插入结果如图:
如果有大神知道为什么直接通过顶层控件的添加控件会报空值,还望指点迷津
将控件添加到顶层容器里面
还是帖代码让大家看看吧
代码如下
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
- vb.net2005动态添加网页控件的事件
- vb动态添加控件的事例
- Android 在布局容器中动态添加控件
- C# WF 删除panel容器动态添加的控件
- sencha动态向容器里添加控件出现重叠问题
- VB.NET2005 动态添加 ToolStrip 控件
- sencha动态向容器里添加控件出现重叠问题
- VB动态添加 控件
- VB 动态添加控件及磁盘、目录、文件控件
- 在VB中动态添加可响应消息的控件
- VB.NET中动态添加控件数组
- VB运行时动态注册添加控件的方法
- 在VB中动态添加可响应消息的控件
- 【原创】vb.net 动态控件 事件添加
- 向容器(PlaceHolder)中动态添加多个用户控件(UserControl)
- VB 动态添加删除控件汇总
- win7 下完美解决VB 动态添加的flash 控件 fscommand 消息未触发的方法
- Android初学习 - 在Java code(布局容器)中动态添加控件
- C#和VB 在动态添加用户控件时, 不一样啊。。。