请问如何在VB中给一个多维结构体数组赋值？

2025-05-13 15:32:57

推荐回答（3个）

回答（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

回答（2）：

请贴一下你给数组赋值的代码段
或者我先说说怎么给你那个数组赋值吧，方法跟一维的差不多
对结构体内的一个变量赋值，如 aa(1, 1).i_part = 41
当然也可以整体赋值 aa(1, 2) = aa(1, 1)
至于把什么数据装进去就不是我的事了，呵呵

回答（3）：

各位好：请问vb中结构体用起来好像没有c语言中的方便，不知道怎么去赋值，你的aaa.中的a是个字符串数组，当然要一个一个的赋值，不然，可以可以C