vb ÈçºÎ ´«µÝ ¿Ø¼þÊý×é

vb ÈçºÎ ´«µÝ ¿Ø¼þÊý×é £¿
ÎÒÓÐÒ»¸öcheckbox()¿Ø¼þÊý×éindex 0,1,2
´«µÝ¿Ø¼þÎÒÖªµÀ£¬µ«ÎÒÏë´«µÝ¿Ø¼þÊý×é £¬²»ÖªÈçºÎʵÏÖ£¿ Çë½Ì¸÷λ~~

'ÒÔÏ´úÂ뱨´í

Private Sub Command1_Click()
    Dim strLevelAdapt As String
    strLevelAdapt = ""

  'Call CheckBoxCapToWord(Check2)
  Call TransFormers.CheckBoxCapToWord(Check1(),2)
  Debug.Print strLevelAdapt
End Sub
¡¯-------------------------------
'TransFormers Ä£¿é
'½«checkboxµÄÑ¡Ôñת»¯³ÉWord
Public Function CheckBoxCapToWord(ByRef CheckBoxP() As VB.CheckBox,byval Number As Integer) As String
On Error GoTo errlst
    Dim ReturnValue As String
    ReturnValue = ""
    For i = 0 To Number  '¶ÔÏó»®·Ö
        If CheckBoxP(i).Value = 1 Then
            If ReturnValue = "" Then
                ReturnValue = CheckBoxP(i).Caption
            Else
                ReturnValue = ReturnValue & "|" & CheckBoxP(i).Caption
            End If
        End If
    Next
    CheckBoxCapToWord = R