vb 类动态添加控件

最新推荐文章于 2025-06-09 12:02:32 发布

weixin_30685029

最新推荐文章于 2025-06-09 12:02:32 发布

阅读量65

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sode/archive/2011/11/11/2245588.html

本文介绍如何在VB应用程序中通过`AddPanel`方法将标签控件添加到窗体，并设置其文本内容。通过实例演示了如何创建和配置控件。

引用：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

转载于:https://www.cnblogs.com/sode/archive/2011/11/11/2245588.html