具有赋值和Option Strict的Dim声明

Question

我的代码遇到了问题，如下所示：

Option Explicit Off

Option Strict On 'Results in Compiler Error. Expected base or compare or explicit or private

Sub DoSomething()

     Dim intOne As Integer 'This line works

     intOne = 1 'This line works

     Dim intTwo as Integer = 2 'Results in Compiler Error: Expected end of statement

End Sub

我的问题在上面的代码中写成了注释。

即使模块完全空，我也无法启用Option Strict选项。

我认为解决方案可以在Visual Studio的选项中使用。

注意：我手动翻译了德语的错误消息，因此请注意上述和官方英语版本之间的差异。

Answer 1

Option Explicit和Option Strict 必须设置在最顶层，然后是任何Imports，后跟类本身，后跟方法：

Option Explicit On
Option Strict On

Imports System.Net

Public Class Class1

    Private Sub DoSomething()
         Dim intOne As Integer
         intOne = 1

         Dim intTwo as Integer = 2 
    End Sub

End Class

模块也是如此：

Option Explicit On
Option Strict On

Imports System.Net

Module Module1

    Public Sub DoSomething()

        Dim intOne As Integer
        intOne = 1

        Dim intTwo As Integer = 2
    End Sub

End Module

如果要为整个项目打开或关闭这些选项，可以在项目属性中执行此操作：

请注意，单个文件中的设置（如果有）将优先于项目属性中设置的默认设置。

有关设置Option Explicit和Option Strict的详细信息，请查看文档。