玉石葫芦雕刻图案大全:VB清空一系列 文本框

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/04 08:06:32
载入窗体时欲清空文本框Text1……Text15中的文本,用循环语法实现

Private Sub Form_Load()

For i = 1 To 15
Text(i).Text = ""
Next i

End Sub

无法实现,请教!

text1~text15不是数组控件,所以不能用text(i)做

Dim ctl As Control
On Error Resume Next
For Each ctl In frmX.Controls
If TypeOf ctl Is TextBox Then
ctl.text=""
End If
Next