VB动态按钮 新建多按钮方法并排序问题

来源:百度知道 编辑:UC知道 时间:2024/09/22 17:29:53
VB动态按钮 新建多按钮方法并排序问题
例如,我有一个按钮,但我一点击后,会出现另一个按钮,也可以出现多个按钮

要求是:可以关闭动态按钮事件代码,请高手帮个忙,谢谢了!回答给你高分
50,回答后给你喔
点击一个按钮,可以关闭指定的动态按钮,希望能解决这个问题

'添加两个控件: Command1 Command2
'在属性窗口将 Command2 改名为 CmdZu,并设置 Index 属性为 0
Private Sub Command1_Click()
'控件组有多个成员,卸载之
If CmdZu.Count > 1 Then
'卸载控件 CmdZu 1-5,0不能卸载,因为是设计时添加的
For I = 1 To 5
Unload CmdZu(I)
Next
Exit Sub
End If

'装载控件组的成员,1-5号
For I = 1 To 5
Load CmdZu(I)
CmdZu(I).Visible = True
CmdZu(I).Move CmdZu(0).Left, CmdZu(0).Top + CmdZu(0).Height * I * 1.1
CmdZu(I).Caption = "钮" & I
Next
End Sub