注册 登录
编程论坛 VB6论坛

如何判断数组控件text是否为空?

yuk_yu 发布于 2012-11-29 15:27, 369 次点击
如何判断数组控件text是否为空?我有0-29三十个textbox1(),如何判断每一个是否为空?如果为空则设置textbox1(i).SetFocus
2 回复
#2
mayuebo2012-11-30 08:35
for i=0 to 29
 if textbox(i).text="" then
   textbox(i).setfocus
 end if
next i
#3
yuk_yu2012-11-30 09:51
回复 2楼 mayuebo
谢谢版主,问题解决了!
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    Select Case Index
    Case 0 To Me.Text1.UBound
        If KeyCode = 13 Then
            If Me.Text1(Index) = "" Then
                Me.Text1(Index).SetFocus
            Else
                If Index + 1 > Me.Text1.UBound Then
                    Me.Text1(Me.Text1.UBound).SetFocus
                Else
                    Me.Text1(Index + 1).SetFocus
                End If
            End If
        End If
    End Select
End Sub
1