To hnlzh(吸海垂虹) ,请问如何使用控件數組

解决方案 »

  1.   

    对,用控件数组就可以.
    每个控件都有index属性,把相同类型的控件起一样的名字,然后index不同就可以生成控件数组了,而且它们的事件过程是一个,只不过参数多了一个index.
      

  2.   

    在過程中用
    SELECT CASE INDEX
        CASE 0    CASE 1    ...
    END SELECT
      

  3.   

    To ljren_t(立志) :
    大哥举个例子,谢谢!
      

  4.   

    可以把程序分割成不同功能模塊,做成ACTIVEX或COM,在主程序中調用
      

  5.   

    TO Bardo(巴顿) :
    我知道控件的问题,但我必须用这么多,可能会超过1K,有别的办法吗?
      

  6.   

     有些是不一定要 的 你可以 把他们拷下来 一图片的方式显示
    比如label 
    动态加入Private Sub command1_click()
    '放一个 text1 设置他的 Index=0
    Dim i As Integer
        For i = 1 To 100
            Load Text1(i) '装入
            Text1(i).Visible = True
            Text1(i).Top = i * 300
        Next i
    End Sub
    Private Sub Command2_Click()
    Dim i As Integer
        For i = 5 To 100
            Unload Text1(i) '卸装
        Next i
    End Sub
      

  7.   

    回复人: ali101(阿立) (2002-1-26 14:24:31)  得0分 
    我不知道如何给分?如何结贴?  晕,点贴子边上的管理,右边那个
      

  8.   

    If 你不知道怎样给分 Then 去看:http://www.csdn.net/expert/faq.shtm