vb6.0怎么用for函数新建很多个按钮?

发布网友 发布时间：2024-10-24 04:35

我来回答

共3个回答

热心网友 时间：2024-10-24 07:37

按钮是设计时自己添加的，for 循环属于代码了，你想在程序运行后通过代码再来添加控件是行不通的，除非在这之前你建了N个按钮，通过代码显示或隐藏还差不多```个人理解！

热心网友 时间：2024-10-24 07:35

使用控件数组。先把弄一个控件。把index=0.然后在写循环
For i = Command1.Count To Command1.Count + 3 Step 1
Load Command1(i)
With Command1(i) '设置其共同属性
.Visible = True
.Enabled = False
.Width = 300
.Height = 300
.Caption = ""
.Left = arr(Int(Rnd * counts))
.Top = 900
End With
Next

热心网友 时间：2024-10-24 07:38

在窗体上新建一个commandbutton，caption为0，index为0，form中load事件中的代码：
for i = 1 to 3 '再创建3个按钮.
load command1(i)
command1(i).visible = True
command1(i).move command1(i-1).left + command1(i-1).width,command1(0).top
command1(i).Caption = i
next
按钮的Click事件：
Private Sub Command1_Click(Index as integer)
msgbox "你单击了第" & Index & “个按钮！”
end Sub