VB6.0循环判断TEXT控件的值为空,

VB6.0循环判断TEXT控件内容是否为空,我有Text1,Text2,Text3 至。。。Text10 共十个控件,定义一个变量为名 KONG 当Text1为空时KONG=1,。。当Text10为空时KONG=10 。(就是1至10循环扫描)如果Text几为空 变量 KONG就等于几,从小显示到大。

Dim kong(9) As Integer
Private Sub Command1_Click()
For i = 0 To 9
If Text1(i).Text = "" Then
kong(i) = i + 1
MsgBox kong(i)
End If
Next
End Sub

添加10个text1数组
温馨提示:答案为网友推荐,仅供参考
相似回答