vb Command1控件组的问题

[a_aaaa8888]

For i = 0 To 9
If Len(Text1.Text) = 0 Then
？
如果text1为空，那么Command1(i) 按键组为全部选择，就是0-9全部按下的意思，该如何写呢

[Tiger_Zhao]

CommandButton 不是 CheckBox，按下的状态无法保留。

[DengXingJie]

用Check代替Button,把Check的Style设为1即可

Option Explicit

Private Sub Command1_Click()
    Dim i As Integer
    If Len(Text1.Text) = 0 Then
       For i = 0 To 9
           Check1(i).Value = 1
       Next
    End If
End Sub

[lijinfeng042]

For i = 0 To 9
If Len(Text1.Text) = 0 Then command1_click(i)
next