我的应用程序有11个textbox(由于某种原因,没有做成控件数组),我想通过循环把11个textbox的text设成""。我的代码如下:
for i=1 to 11 
  text&i.text=""
next i
可是报错,请问该如何实现?谢谢!!!

解决方案 »

  1.   


    Private Sub Form_Load()
            Dim xx As Control
            For Each xx In Me.Controls
                If TypeName(xx) = "TextBox" Then
                   xx.Text = ""
                End If
            Next
    End Sub
      

  2.   

    只是要注意:"TextBox"中区分大小写
      

  3.   

    for i=1 to 11 
      Me.Controls("text" & i).text=""
    next i
      

  4.   

    for i=1 to 11 
      text(i).text=""
    next i
      

  5.   

    to: fmaliang(良马) 
    >还可以这样啊,那对变量是不是也可以这样?
    变量不可以。Controls 是一个控件集合,可以通过名称来引用。to:heyinglin () 
    结贴,给分