编译器错误:"类型块内的语句无效"

Question

我正在尝试为我的公司更新一个非常古老的VB6程序.我所做的所有更改都非常简单,我所做的只是更改了几个变量的值.当我尝试编译程序时,我收到以下错误,

编译错误:类型块内的语句无效.

有问题的代码行是Public类型块中的第一个语句,请参阅下面的代码片段.

Public Type Regphase
--->Public RESIST_CORE_INSUL_TEST As Double         'Mega OHM
    Public R_COLD_SERIES_16R As Double              'Type AB Regulators
    Public R_COLD_SERIES_15R As Double              'Type AB Regulators
    Public R_COLD_SERIES_15L As Double              'Type AB Regulators
    Public R_COLD_SERIES_16L As Double              'Type AB Regulators

我有一种感觉这只是随机的VB6错误之一,但我不知道如何通过它.我也试过使用Dim而不是Public得到相同的结果.

我不能发布完整的代码,因为它可能被认为是专有的 - 但请注意End Type所有变量之后都有一个声明.

Answer 1

辅助功能修饰符仅作为整体输入,而不是在其中的每个字段上.

从Visual Basic 6概念指南" 创建自己的数据类型 "中,查看其示例:

Private Type SystemInfo
   CPU As Variant
   Memory As Long
   VideoColors As Integer
   Cost As Currency
   PurchaseDate As Variant
End Type

您还可以参考语言参考中的" 类型声明 ".