Private Sub Form_ load() 
   Dim i As Integer 
      For i = 1 To 5 
          Load Option1(i) ' 给数组添加 5 个选项按钮。
          Option1(i).Top = Option1(i - 1).Top + 350’设置顶端位置 
          Option1(i).left= Option1(i - 1).left+800 
          Option1(i).Visible = True’显示增加的控件 
          Option1(i).caption = i 
      Next i 
End Sub 1。添加完成了,现在我想要刷新一次,有什么办法(添加的控件可能是img,所以有可能需要刷新)
2。如果用 重新删除, 再重新动态加载控件的方式。可是怎么删除这些动态创建的控件呢???

解决方案 »

  1.   

    什么啊!!??
    1.refresh ?我可能整个刷新(也就是说,可能加载的数量都不同了!)2。我用unload 这些 load来的控件,提示我不能用unload??怎么回事?能否说的明白点??
      

  2.   

    1. 一直也没用 refresh   
    2. 具体提示是什么?
      

  3.   

    你在窗体上画一个 textbox 做成控件数组 画2个button  粘入下列代码
    Option Explicit
    Dim i As LongPrivate Sub Command1_Click()    For i = 1 To 10
            Load Text1(i)
            
            
            Text1(i).Move 0, i * Text1(0).Height
            Text1(i).Visible = True
        Next
           
    End SubPrivate Sub Command2_Click()
        For i = 1 To 10
            Unload Text1(i)
        Next
    End Sub