求对话框里,checkbox控件的个数?

Question

怎么把所有个控件都求出来,再进行筛选出所要的控控件?

Answer 1

Dim C As Control 
   For Each C In Controls
        If C.Name Like "lbl*" Then
            C.BorderStyle = vbBSNone
        ElseIf C.Name Like "im*" Then
            C.BorderStyle = vbBSNone
        ElseIf C.Name Like "Pic*" Then
            C.BorderStyle = vbBSNone
        End If
    Next用For Each Next遍历出窗体中的控件.