vb动态创建控件

VB6有一个新功能，可以动态添加控件，不用控件数组：

　　object.Add (ProgID, name, container)

　　参数说明

　　Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。

　　ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类组成的。

　　例如，CommandButton 控件的 ProgID 是 VB.CommandButton。在ProgID 与对象浏览器中所显示的不一样的情况下，Visual Basic

　　将显示一个包括正确 ProgId 的错误信息。

　　name 必要的。一个字符串，用来标识集合的成员。

　　container 可选的。一个对象引用，它指定控件的容器。如果没有指定或为NULL，缺省值为 Controls 集合所属的容器。通过指定该参数，可以把一个控件放置在任何现存的容器控件（如 Frame 控件）中。用户控件或 ActiveX 文档也可以作为一个容器。

　　举例： //在picture1上面添加一个commandbutton


Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdOk", Picture1
With Form1!cmdOk
.Visible = True
.Width = 500
.Caption = "确认(&Y)"
End With
End Sub


【fxy_2002】:
Dim x As Object
    Set x = Me.Controls.Add("vb.Label", "Label1")
    
    x.Visible = True
    x.Caption = "label1"


【pipipig】:
Private Sub Command1_Click()
    Dim a As Label
    Dim i As Integer
    For i = 0 To 9
        Set a = Form1.Controls.Add("VB.Label", "Label" & i)
        a.Visible = True
        a.Move i * 500, i * 400, 1000, 300
        a.BackColor = RGB(100, 150, 200)
        a.Caption = "Label" & i
    Next
End Sub


【aspceo】:
先在窗体上添加一个Lable(0),记住是控件数组
然后用
load Lable(i)
label(i).visible=true
来动态添加控件

【guyehanxinlei】:
up

【clear_zero】:

先在窗体上添加一个Lable(0),记住是控件数组
然后用
load Lable(i)
label(i).visible=true
来动态添加控件

【leozwf】:
给你个动态使用VSflexgrid控件的。
object.Add (ProgID, name, container)

　　参数说明

　　Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。

　　ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类组成的。

　　例如，CommandButton 控件的 ProgID 是 VB.CommandButton。在ProgID 与对象浏览器中所显示的不一样的情况下，Visual Basic

　　将显示一个包括正确 ProgId 的错误信息。

　　name 必要的。一个字符串，用来标识集合的成员。

　　container 可选的。一个对象引用，它指定控件的容器。如果没有指定或为NULL，缺省值为 Controls 集合所属的容器。通过指定该参数，可以把一个控件放置在任何现存的容器控件（如 Frame 控件）中。用户控件或 ActiveX 文档也可以作为一个容器。

例子：
Private WithEvents vsFlexGrid As VBControlExtender

Private Sub Form_Load()
On Error GoTo ErrorHandler
'        Licenses.Add "VSFlexGrid8.VSFlexGridDAO.1", ""
        Set vsFlexGrid = frmShowAreaInfo.Controls.Add("VSFlexGrid8.VSFlexGridDAO.1", "vsFlexGrid", vsTab)

• 点赞
• 收藏
• 分享
• 文章举报