请问vb中如何定义结构体数组？怎么赋值？

Question

各位好：
请问vb中结构体用起来好像没有c语言中的方便，不知道怎么去赋值，难道要一个一个去赋值吗？
比如：
Private Type aa
a(8) As String
b(5) As String
End Type
dim aaa as aa
aaa=（这里可以是aaa这个结构体中的各个数值吗？）

还是要下面这样赋值呀：
aaa.a(n)=?
aaa.a(n+1)=?
这样数据多了不是好麻烦吗？
请教

Answer 1

你的aaa.中的a是个字符串数组，

当然要一个一个的赋值，不然，可以可以C语言中的memcpy之类的函数，
直接进行内存块的复制，

你要把这个数组写进二进制，使用input就可以了，
写入这前要把这个结构转换成二进制的数组，以下代码可以参考一下：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(dest As Any, Source As Any, ByVal numBytes As Long)

Private Type aa
a(8) As String
End Type

Private Sub Command1_Click()
Dim aaa As aa

aaa.a(1) = "HELLO"
aaa.a(2) = "GIRL"

Dim bt() As Byte
ReDim bt(Len(aaa) + 1)
CopyMemory bt(0), aaa, Len(aaa) '复制到二进制数组中

'然后调用你的input函数写入文件中

End Sub

Answer 2

现在问题来了，我需要将这个arr的值写入二进制文件中（注意是整个数组写入）Option Explicit '定义结构体,注意,此处如果用到字符串变量,要设置定长