关于自定义类型大小的问题. 急~~~

Question

自己在模块中定义了一个类型:
public type table
  a          as integer
  b(2047)    as integer
  c(2047)    as string * 12
end type它使用在一个窗体中的函数中:dim  dd  as table但是每次运行的时候,总是显示"There are a lot of dynamic local variables. "这是怎么回事呀?有办法解决吗?

Answer 1

这样:
public type table
  a          as integer
  b(2047)    as integer
  c(2047*12-1)    as byte
end type用byte数组代替原来的string数组,使用时建议用api函数copymemory给byte数组赋值

Answer 2

也可以这样
Private Type table
  a          As Integer
  b()  As Integer
  c()  As String * 12
End Type使用时动态分配:Private Sub Command1_Click()
    Dim y As table
    
    ReDim y.b(2047)
    ReDim y.c(2047)
End Sub