[求助]急。。。在线等~怎么显示这些控件呀。。。
如图,想再输几行这样的复选框,怎么写代码呀?
具体输入几行由用户的输入决定~
各位大牛们帮帮忙吧:)
[解决办法]
Private Sub Command1_Click() For j = 1 To 15 Load Check1(j) If j Mod 4 = 0 Then Check1(j).Top = Check1(j - 1).Top + 350 Check1(j).Left = Check1(0).Left Else Check1(j).Top = Check1(j - 1).Top Check1(j).Left = Check1(j - 1).Left + 700 End If Check1(j).Caption = "C" & CStr(j) Check1(j).Visible = True Next End Sub