集结号捕鱼官方版下载:VB清空一系列 文本框

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/28 08:10:15
载入窗体时欲清空文本框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