如何 动态 创建 控件

[german010]

vb 中 如何 动态 创建 控件？

[slowgrace]

查MSDN 控件数组

[zhuhuofong]

Option Explicit

Dim WithEvents cmd1 As CommandButton '声明一个事件的按钮
Dim txt1 As TextBox '声明一个文本框
Dim WithEvents lbl1 As Label '一个label带事件的
Dim WithEvents shijian As Timer


Private Sub Form_Load()
    Me.ScaleMode = 3 '设置窗体度量单位为像素
    
    Set cmd1 = Me.Controls.Add("VB.CommandButton", "cmd1")
    cmd1.Move 150, 50, 100, 30 '调整按钮大小和位置
    cmd1.Caption = "点我看看"   '设置按钮标题
    cmd1.Visible = True         '设置可见
    

    Set txt1 = Me.Controls.Add("VB.TextBox", "txt1")
    txt1.Move 50, 50, 100, 30    '设置文本框大小和位置
    txt1.Text = "我是文字"      '设置文本
    txt1.Visible = True         '设置可见
    
    Set lbl1 = Me.Controls.Add("VB.Label", "lbl1")
    lbl1.Move 30, 10, 300, 20   '设置label大小和位置
    lbl1.Caption = "双击我显示时间"       '设置文本
    lbl1.Visible = True         '设置可见
    lbl1.BackColor = &HFFFFFF
    Set shijian = Me.Controls.Add("vb.timer", "timer1")
End Sub

Private Sub lbl1_DblClick() 'lbl1双击事件

shijian_Timer
End Sub

Private Sub cmd1_click()  '动态创建的cmd1被点击
    MsgBox txt1.Text
End Sub



Private Sub shijian_Timer()
shijian.Enabled = True
shijian.Interval = 1000
lbl1.Caption = Time
End Sub

[gleen]

Add("VB.CommandButton", "cmd1")

[嗷嗷叫的老马]

...........

[贝隆]

[Quote=引用 3 楼 gleen 的回复:]
Add("VB.CommandButton", "cmd1")
[/Quote]
对

[lxq19851204]

zhichi louzhu

[liuy_yy]

一种办法是先创建一个控件数组 再load
例如 先定义控件cmdCommand(0)
通过代码里load cmdCommand(1)这条语句 可动态创建一个控件 以此类推 希望对你有用

[flyinthesky]

WithEvents 不能使用数组控件.

[clear_zero]

一种办法是先创建一个控件数组 再load
例如 先定义控件cmdCommand(0)
通过代码里load cmdCommand(1)这条语句 可动态创建一个控件 以此类推 希望对你有用

[ChinaITOldMan]

[Quote=引用 2 楼 zhuhuofong 的回复:]
VB codeOption Explicit

Dim WithEvents cmd1 As CommandButton '声明一个事件的按钮
Dim txt1 As TextBox '声明一个文本框
Dim WithEvents lbl1 As Label '一个label带事件的
Dim WithEvents shijian As Timer


Private Sub Form_Load()
Me.ScaleMode = 3 '设置窗体度量单位为像素

Set cmd1 = Me.Controls.Add("VB.CommandButton", "cmd1")
cmd1.Move 150, 50, 100, 30 '调整按钮大小和位置
…
[/Quote]

看Zhuhuofong的

[slowgrace]

动态创建控件有两种方法。

（1）用控件数组。见你另一个帖子的讨论。
（2）用controls集合的add方法，见2楼的示例

注意表把这两种方法混在一起，它们各有各的规矩。

[german010]

可以明确的是 ：
用controls集合的add方法 是不能使用 index属性的吧？

[slowgrace]

[Quote=引用 12 楼 german010 的回复:]
可以明确的是 ：
用controls集合的add方法 是不能使用 index属性的吧？
[/Quote]

对。

[german010]

非常感谢