vb Command1控件组的问题

来源：百度知道 编辑：UC知道 时间：2024/06/07 14:19:38
For i = 0 To 9
If Len(Text1.Text) = 0 Then
？
如果text1为空，那么Command1(i) 按键组为全部选择，就是0-9全部按下的意思，该如何写呢
只有在text1为空时

lijinfeng042 和 comeonbady 的回答都不能算错，但是各有弊端
lijinfeng042的代码每循环一次都要进行判断，所以效率会降低
comeonbady的代码用字符串对比来判断，不如用字符串长度对比来判断效率高
所以把两人的代码合在一起优化一下即可，如下

If Len(Text1.Text) = 0 Then
For i = 0 To 9
Call Command1_Click(i)
Next
End If

Private Sub Command1_Click(Index As Integer)
msgbox "按任何一个按钮都是一样的"
End Sub

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

If Text1.Text = "" Then
For a = 0 To 9
Call Command1_Click(a)
Next
End If

二楼的
for i=1 to 9
if len(text1.text)=0 then command1_click(i)
next

是正确的