小编Dan*_*Dan的帖子

在 Visual Basic 6 中获得大约 64k 的限制

我需要在 VB 中更新这段旧代码,但遇到了问题。我已向此结构添加字段,现在当我尝试编译时出现此错误:

在此处输入图片说明

从网上阅读,大多数人建议打破结构。问题是我正在从固件接收这种格式的数据。所以我想保持原样,但找到一种方法来解决这个问题。

我的结构是这样的:

Public Type DATA_V2_T
    1_offsets(6399) As Single
    2_offsets(6399) As Single
    init_d_offsets(1199) As Single
    init_a_offsets(1199) As Single
    e_offsets(999)   As Single
    d_offsets(749) As Single
    a_offsets(1199) As Single
    final_e_offsets(6399) As Single
End Type
Run Code Online (Sandbox Code Playgroud)

我现在添加的字段是 1_offsets 和 2_offsets,它们会导致发生错误。似乎这段代码在某种程度上解决了这个问题,因为以下定义为全局:

Global data_v2 AS DATA_V2_T
Run Code Online (Sandbox Code Playgroud)

我也可以为结构做这样的事情吗?

编辑:我试图上课。我能够像这样定义我的变量:

    Private 1_offsets(6399) As Single
    Private 2_offsets(6399) As Single
    Private init_d_offsets(1199) As Single
    Private init_a_offsets(1199) As Single
    Private e_offsets(999)   As Single
    Private d_offsets(749) As Single
    Private a_offsets(1199) As Single
    Private final_e_offsets(6399) As Single
Run Code Online (Sandbox Code Playgroud)

我创建了属性获取方法来访问这些私有变量,如下所示:

Property Get p1_offsets() …
Run Code Online (Sandbox Code Playgroud)

vb6

7
推荐指数
1
解决办法
160
查看次数

标签 统计

vb6 ×1