| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 369 人关注过本帖
标题:如何判断数组控件text是否为空?
只看楼主 加入收藏
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
结帖率:85.71%
收藏
已结贴  问题点数:100 回复次数:2 
如何判断数组控件text是否为空?
如何判断数组控件text是否为空?我有0-29三十个textbox1(),如何判断每一个是否为空?如果为空则设置textbox1(i).SetFocus
搜索更多相关主题的帖子: 如何 
2012-11-29 15:27
mayuebo
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:6
帖 子:257
专家分:1282
注 册:2005-9-8
收藏
得分:100 
for i=0 to 29
 if textbox(i).text="" then
   textbox(i).setfocus
 end if
next i

成功贵在坚持
2012-11-30 08:35
yuk_yu
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:334
专家分:134
注 册:2009-3-16
收藏
得分:0 
回复 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
2012-11-30 09:51
快速回复:如何判断数组控件text是否为空?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.076113 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved