动态添加复选框 并且获取所选中的值

Question

本帖最后由 JSPSEO 于 2010-05-04 10:05:05 编辑

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To Check1.Count - 1
        Debug.Print Check1(i).Value
    Next
    
End SubPrivate Sub Form_Load()
  Dim i As Integer
  For i = 1 To 5
      Load Check1(i)
      Check1(i).Caption = "Check" & i + 1
      Check1(i).Move Check1(0).Left + 1300 * i, Check1(i).Top
      Check1(i).Visible = True
  Next
  
End Sub

Answer 2

先建立checkbox控件数组。

Answer 3

动态添加复选框
http://topic.csdn.net/t/20050913/13/4266202.html