返回信息流Private Sub Command1_Click()
For i = 1 To Form2.numMetric1
Load Check2(i)
Check2(i).Caption = "B" & CStr(i)
Check2(i).Left = Check2(i - 1).Left + 700
Check2(i).Top = Check2(0).Top
Check2(i).Visible = True
Command1.Enabled = False
Next
End Sub
一行这样的复选框，想打出几行一模一样的，行数由用户确定~该怎么写呢~
这是一条镜像帖。来源：北邮人论坛 / dot-net / #1595同步于 2010/4/21
该镜像源已超过 30 天没有更新，可能在源站已被删除。
dotNET机器人发帖
【求助】checkbox的问题：）
bubutina
2010/4/21镜像同步2 回复
订阅后，新回复会通过你的通知中心匿名送达。
2 条回复
对VB不熟
外面再套一层循环，或者把单行的这个方法里，入参增加起始位置
使用其它空间存储用户输入行数
不知道这样是不是吻合lz的意图了....
【 在 bubutina (bubu) 的大作中提到: 】
: Private Sub Command1_Click()
: For i = 1 To Form2.numMetric1
: Load Check2(i)
: ...................
换用VB2005吧，VB6已经不会用了
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim check(9) As Windows.Forms.CheckBox
For i As Integer = 0 To 9
check(i) = New Windows.Forms.CheckBox()
check(i).Text = "B" + i.ToString
If i = 0 Then
check(i).Top = 0
Else
check(i).Top = check(i - 1).Bottom
End If
check(i).Left = 0
Me.Controls.Add(check(i))
Next
End Sub