VB控件控制？

来源：百度知道 编辑：UC知道 时间：2024/05/26 00:21:33
问题时这样的：一个窗体有比较多的TEXT控件，不是控件数组，想确认TEXT控件是否为空，若空，会取一个相同的默认值，现在做的很麻烦，对每个TEXT控件逐一判断，又没有好的方法，谢谢。
if text1="" then str1="?"
if text1="" then str1="?"
if text1="" then str1="?"
.
.
.
if textn="" then strn="?"
if text1="" then
str1="?"
else str1=text1.text

if text2="" then
str2="?"
else str2=text2.text

if text3="" then
str3="?"
else str3=text3.text
.
.
.
if textn="" then
strn="?"
else strn=textn.text

Private Sub Command3_Click()
Dim a As Object
For Each a In Me.Controls
If TypeOf a Is TextBox Then
If Len(a.Text) <> 0 Then str=?
End If
Next
End Sub

用数组啊,text(n),然后for next就行了

用控件数组最方便，不然可能没有好的办法：
即就是你有100个乃至10000个text控件，用数组也是十分方便的
FOR I=0 TO 1000
IF TEXT1(I).TEXT="" THEN
TEXT1(I).TEXT="?"
ELSE
str(I)=Text1(I).Text
END IF
NEXT I