编译器错误：“声明在Type块内无效”

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

可访问性修饰符仅作为整体在Type上使用，而不在其内部的每个字段上使用。

从《 Visual Basic 6概念指南》“ Creating Your Own Data Types”中查看其示例：

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

您还可以参考“ Type Statement”的语言参考。