0

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

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 的选项中。

注意：我已经手动翻译了德语的错误消息，所以请期待上述和官方英文版本之间的差异。

4

1 回答 1

3

Option Explicit并且Option Strict 必须设置在最顶部，然后是 any，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的更多信息。

于 2017-06-07T13:15:49.147 回答