wzqqwz

我要定义这样的窗体

dim kkk1 as new from1
dim kkk2 as new from1
dim kkk3 as new from1
dim kkk4 as new from1
dim kkk5 as new from1
..........
.........
dim kkk100 as new from1

我这样定义
for i=1 to 100
dim kkk(i) as new from1
next i

结果VB报错,说"要求常数表达式"----(i)这个数

要什么样才能定义数组窗体啊??

风雨声中

这样当然报错了。<

wshzw

需要加一个关键字:
   Dim kkk() As Form, i%
   For i = 0 To 3
      ReDim Preserve kkk(i)
      Set kkk(i) = New Form1
   Next i

script

引用:

原帖由 wshzw 于 2006-9-14 13:00 发表
需要加一个关键字:
   Dim kkk() As Form, i%
   For i = 0 To 3
      ReDim Preserve kkk(i)
      Set kkk(i) = New Form1
   Next i

上面两位的代码应该都有些问题吧
加Preserve没必要吧,数组是固定的,所以数组内的值不变

应该如下
Dim kkk() As Form, i%
ReDim kkk(3)
   For i = 0 To UBound(kkk)
         Set kkk(i) = New Form1
   Next i

[ 本帖最后由 script 于 2006-9-20 17:02 编辑 ]

wshzw

说得对，固定的数组确是没必要加Preserve了……
如4楼这样，既可达到目的，又可适当的加快运行速度。

黑发的放牧者

那里面的 i%是什么意思？
俺是初学者，请不吝赐教！

script

引用:

原帖由 黑发的放牧者 于 2006-9-23 08:14 发表
那里面的 i%是什么意思？
俺是初学者，请不吝赐教！

i%是整型变量

%=整型
&=长整型
!=单精度
#=双精度
@=货币类型
$=字符类型

黑发的放牧者

非常感谢！！