发新话题
打印

什么定义数组窗体

什么定义数组窗体

我要定义这样的窗体

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)这个数

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

TOP

这样当然报错了。<

TOP

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

TOP

引用:
原帖由 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 编辑 ]

TOP

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

TOP

回复 #4 script 的帖子

那里面的 i%是什么意思?
俺是初学者,请不吝赐教!

TOP

引用:
原帖由 黑发的放牧者 于 2006-9-23 08:14 发表
那里面的 i%是什么意思?
俺是初学者,请不吝赐教!
i%是整型变量

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

TOP

回复 #7 script 的帖子

非常感谢!!
老板,有没有46的鞋子?

TOP

发新话题