我在一个按扭的click事件里面写上了如下的代码Load text2(i)
也就是load了一些text控件,现在我想再在另外一个按钮的click事件里面写下一些代码,把这些load的text控件全部清除掉请问这些代码该怎么写啊
谢谢了

解决方案 »

  1.   

    Option Explicit
    Dim i As Integer
    Private Sub Command1_Click()
      
      For i = 1 To 5
       Load Text1(i)
       Text1(i).Top = Text1(i - 1).Top + Text1(i - 1).Height + 10
       Text1(i).Visible = True
     Next
     
    End SubPrivate Sub Command2_Click()
      For i = 1 To 5
       Unload Text1(i)
      Next
    End Sub
      

  2.   

    for i=0 to text1.count-1
        text1(i).text=""
    next