请问怎么用循环做出按钮组,谢谢~~!!!
请问怎么用循环做出按钮组,在按钮的caption中循环显示出数据,这两个循环怎么做啊,我老是出错,请有经验的前辈帮忙一下,谢谢!~~~--------------------编程问答-------------------- 在窗体上放个Command1,并将按钮的Index属性设为0。运行以下代码
--------------------编程问答-------------------- 路过.... --------------------编程问答-------------------- 先要在窗口做出按钮数组
Private Sub Form_Load()
Dim i As Long
For i = 1 To 10
Load Command1(i)
With Command1(i)
.Caption = "第" & CStr(i) & "个按钮"
.Move .Left, Command1(i - 1).Top + Command1(i - 1).Height + 10
.Visible = True
End With
Next
End Sub
做法: 添加按钮,然后copy paste,然后选择是
然后就可以写代码了
Private Sub Form_Load()
Dim i As Long
For i = 1 To 10
Load Command1(i)
With Command1(i)
.Caption = "第" & CStr(i) & "个按钮"
.Move .Left, Command1(i - 1).Top + Command1(i - 1).Height + 10
.Visible = True
End With
Next
End Sub
--------------------编程问答-------------------- 长见识了。 --------------------编程问答-------------------- 楼主说的是动态添加的按钮,还是设计时已确定好的控件数组呀? --------------------编程问答-------------------- 关注
补充:VB , 控件