VB6.0中如何动态开辟控件数组

Question

请问各位达人 在VB6.0中如何动态开辟控件数组我需要动态开辟一个IMAGE控件的数组显示在窗体上~ 并且排列整齐

Answer 1

Private Sub Dir1_Change()
    Dim num As Integer
    File1.Path = Dir1.Path
    num = File1.ListCount
现在这段代码让我知道了FILE里有多少个图片文件 并且赋值给了NUM 然后利用NUM动态开辟IMAGE空间数组 我不知道该怎么做
现在想按照NUM的数量来增加IMAGE控件 我是做一个图片浏览器 现在想按照NUM的数量来增加IMAGE控件 我是做一个图片浏览器

Answer 2

首先，你在窗体上添加一个image1，并将它的index属性设置为0。然后用以下代码：
Private Sub Dir1_Change()
    Dim num As Integer,i as integer
    File1.Path = Dir1.Path
    num = File1.ListCount
    for i=1 to num-1
      load image1(i)
      image1(i).visible=true
      image1(i).top=image1(i-1).top+image1(i-1).height+20   '设置IMAGE控件的位置        
      image1(i).picture=loadpicture(".....")
    next