Question

vb6.0动态生成复选框并获取选中的值

比如爱好有多个，所以要动态生成多个checkbox，并且能在点击某个按钮的时候能知道选中了哪些？

Answer 1

在窗体上放一个复选框check1，把Index的值设置为0
动态加载：

Dim i As Integer
Dim num As Integer

num = 10 'Num为你要加载的数
For i = 1 To num - 1
Load Me.Check1(i)
Check1(i).Left = Check1(0).Left + Check1(0).Width * i
Check1(i).Top = Check1(0).Top
Check1(i).Visible = True
Check1(i).Caption = "爱好" & i
Next i

Answer 2

最简单的方法用数组控件
更改为相同的控件名~index属性即是区分