vb 类 动态 添加 控件

简介: 引用:http://zhidao.baidu.com/question/66115499.html clsTask ____________________________ Private lbl As Label Private frm As Form Public Proper...

引用:http://zhidao.baidu.com/question/66115499.html

clsTask
____________________________
Private lbl As Label
Private frm As Form


Public Property Let Owner(ByVal vNewValue As Form)
Set frm = vNewValue
End Property

Public Sub AddPanel(ByVal strCaptiop As String)
Set lbl = frm.Controls.Add("VB.Label", "lbl1")
lbl.Move 1000, 1000, 1000, 1000
lbl.Caption = strCaptiop
lbl.Visible = True
End Sub

form
__________
Private Sub Form_Load()

Dim a As New clsTask
a.Owner = Me
a.AddPanel ("1243")
End Sub
相关文章
|
29天前
|
程序员 数据安全/隐私保护 C++
【qt】动态属性
【qt】动态属性
24 1
|
索引
零基础VB教程044期:动态添加控件数组
零基础VB教程044期:动态添加控件数组
116 0
|
29天前
|
C语言 容器
【qt】动态属性(下)
【qt】动态属性(下)
15 1
|
7月前
13 MFC - 静态文本框CStatic
13 MFC - 静态文本框CStatic
36 0
【vb.net机房收费系统】之没有包含要从继承的组件的已生成程序集
【vb.net机房收费系统】之没有包含要从继承的组件的已生成程序集
29 0
VB编程:利用控件数组设置控件状态-38
VB编程:利用控件数组设置控件状态-38
VB编程:申明窗体数组-40
VB编程:申明窗体数组-40
100 0
|
人工智能
VB编程:自定义过程改变窗体颜色-53
VB编程:自定义过程改变窗体颜色-53
155 0
关于VB6.0中控件加载的难题
我想大家都多多少少都为VB6.0中ActiveX控件的加载而感到头痛,比如有时候在打开一个工程的瞬间它给你弹出无法加载或加载错误的提示框,在你想用到某个控件时,VB6.0中又找不到……这样的情况真的很让人恼火!!!