用代码来产生一批checkbox控件,请高手相助.

[xjb_netboy]

我编有一个程序，须要在form上产生一批checkbox控件,是动态的，checkbox的个数由数据库中数据产生，不知怎么编？
请高手相助.

[conrad_wan]

gz

[fuxc]

用控件数组啊

然后这样：
load checkbox(index)

[_西瓜皮_]

先画出一个CHECKBOX,

并把
VISIBLE=FALSE
INDEX=0

'加载
For i=1 to 10
load checkbox(index)
checkbox(index).move 10,10
checkbox(index).visible=true
next

'卸载
for i = 10 to 1
unload checkbox(index)
next

[byeshuang]

楼上的真快，正解

[DooDu]

Private Sub Form_Load()
Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
With Form1!cmdObj1
.Visible = True
.Width = 2000
.Caption = "Dynamic Button"
End With
End Sub

[xjb_netboy]

楼上的，代友不全， chkShow()
arrShow，这个过程的定义没有给出，调不通

[xjb_netboy]

代友不全

[xjb_netboy]

可是还有一个问题，怎样，在一行放几个控件，大小位置，要控制好。

[xghim]

大小的话就比较难控制,但可以做到一行放固定几个,然后超过的就换行来显示.
Private Sub ShowChks()
Dim i As Integer, j As Integer

For i = 0 To UBound(arrTitles) 'checkbox标题数组
If i > 0 And ((i + 1) Mod 2) = 0 Then
Load chkShow(i)
chkShow(i).Caption = "显示" & Trim(arrTitles(i))
chkShow(i).left = 3200
chkShow(i).top = 240 + j * 270
Else
If i = 0 Then
j = 0
chkShow(i).Caption = "显示" & Trim(arrTitles(i))
Else
j = j + 1
Load chkShow(i)
chkShow(i).Caption = "显示" & Trim(arrTitles(i))
chkShow(i).left = 120
chkShow(i).top = 240 + j * 270
End If
End If

chkShow(i).Visible = True

If arrShow(i) = True Then '保存以前读取的是否选中的数组
chkShow(i).value = vbUnchecked
Else
chkShow(i).value = vbChecked
End If
Next
End Sub

在窗体load时.
Private Sub resizeForms()
Dim lngHeight As Long
Dim lngBottum As Long

lngHeight = CLng(chkShow(chkShow.Count - 1).top + chkShow(chkShow.Count - 1).height)

lngBottum = 825 '我的窗体上有一容器frame和两个按钮,这是me.height-frame.height

If lngHeight > fraQuery.height - 100 Then
Me.height = lngHeight + lngBottum + 100
fraQuery.height = Me.height - lngBottum
Me.cmdOk.top = Me.height - 795
Me.cmdCancel.top = Me.height - 795
End If

End Sub

这样你的窗体就能动态扩大到合适的高度.要想控制宽度也随着改变,那就自己再改改了。

[xghim]

说明一下.arrshow()是我从保存的是否选中状态的数组.chkShow()是所有checkbox的控件数组.

[threenewbee]

CreateWindowEx()

[xiaoyaolz]

for next
for next
定义好边距，大小，就像画图一样简单