vb判断多个输入框是否为空
有150个textbox控件组,要怎么判断当1toa个text不为空时,command.enabled=true,a在5到150之间...
有150个textbox控件组,要怎么判断当1 to a个text不为空时,command.enabled=true,a在5到150之间
展开
3个回答
展开全部
要是像Textbox1;Textbox2;Textbox3...Textbox150这样子就可烦了,一般都没有人这样子去使用。
建议使用控件数组,即复制控件》粘贴控件 选择创建控件数组。
使用了控件数组之后,引用控件就可以用控件索引了,比如Textbox1(0)。
代码:
Private Sub Command2_Click()
dim bol as boolean,i as integer
For i= 0 t0 150
bol=bol And iif(Textbox1(i).Text<>"",True,False)
Next
Command.Enabled=bol
End Sub
建议使用控件数组,即复制控件》粘贴控件 选择创建控件数组。
使用了控件数组之后,引用控件就可以用控件索引了,比如Textbox1(0)。
代码:
Private Sub Command2_Click()
dim bol as boolean,i as integer
For i= 0 t0 150
bol=bol And iif(Textbox1(i).Text<>"",True,False)
Next
Command.Enabled=bol
End Sub
展开全部
自己画空间 ‘ 空间数组好像第一个默认的下标是 0
flag = 1
for i = 0 to 150
if text1(i).text = " " then flag = -1
next i
if flag = 1 then
command1.enable = true
else
end if
flag = 1
for i = 0 to 150
if text1(i).text = " " then flag = -1
next i
if flag = 1 then
command1.enable = true
else
end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用数组吧,用一个textbox复制出150个来,
回答者: 科技程序迷 正确。
回答者: 科技程序迷 正确。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询