Option Strict 语句

项目
04/10/2013

使隐式数据类型转换仅限于进行扩大转换，禁止后期绑定，并禁止生成 Object 类型的隐式键入。

Option Strict { On | Off }

部件

术语	定义
On	可选。启用 Option Strict 检查。
Off	可选。禁用 Option Strict 检查。

备注

当 Option Strict On 或 Option Strict 出现在文件中时，以下情况将导致编译时错误：

隐式收缩转换
后期绑定
在 Object 类型中隐式键入结果

备注

在您可在 “项目设计器”->“编译”页 (Visual Basic) 上设置的警告配置中，存在与导致编译时错误的条件相对应的三种设置。关于如何使用这些设置，请参见本主题后面的 To set warning configurations in the IDE。

Option Strict Off 语句为所有三种情况关闭错误和警告检查，即使关联的 IDE 设置指定要打开这些错误或警告。 Option Strict On 语句打开检查所有三个条件的错误和警告，因此，即使关联的 IDE 设置指定关闭这些错误或警告。

如果使用 Option Strict 语句，则它必须在文件中出现在任何其他源代码语句之前。

当您将 Option Strict 到 On时， Visual Basic 检查数据类型对于所有程序元素指定。使用局部类型推断，数据类型可以显式指定或指定。指定数据类型所有编程元素的由于下列原因，建议:

它为变量和参数启用 IntelliSense 支持。这可让您在键入代码时看到变量的属性和其他成员。
启用编译器执行类型检查。类型检查有助于您找到可以在运行时因类型转换错误而失败的语句。它还标识对不支持这些方法的对象上的方法的调用。
它加快代码的执行。其中一个原因是，如果不为编程元素指定数据类型， Visual Basic 编译器将其分配 Object 类型。生成代码可能需要来回转换在 Object 和其他数据类型之间，降低性能。

隐式收缩转换错误

当存在为收缩转换的隐式数据类型转换时，出现隐式收缩转换错误。

Visual Basic 可将许多数据类型转换为其他数据类型。在将一种数据类型的值转换为另一种精度较低或容量较小的数据类型时，可能发生数据丢失。如果此类“收缩转换”失败，则会发生运行时错误。 Option Strict 确保可为这些收缩转换提供编译时通知，从而可避免这种错误。有关更多信息，请参见隐式转换和显式转换 (Visual Basic)和扩大转换和收缩转换 (Visual Basic)。

会导致错误的转换包括表达式中发生的隐式转换。有关更多信息，请参见下列主题：

当您通过使用 & 运算符 (Visual Basic) 连接字符串时，所有转换为字符串被都认为会扩大。即使在 Option Strict 开启时，这样的转换也不会产生隐形收缩转换错误。

当您调用了具有不同于相应参数的数据类型的参数的方法时，进行收缩转换会导致编译时错误（如果 Option Strict 处于开启状态）。可以通过使用扩大转换或显式转换避免编译时错误。

在编译从 For Each…Next 集合中的元素到循环控制变量的转换时，禁止显示隐式收缩转换错误。即使 Option Strict 处于开启状态，也将发生这种情况。更多信息，请参见 For Each...Next 语句 (Visual Basic) 中的“收缩转换”一节。

后期绑定错误

如果某个对象被分配给声明为 Object 类型的变量的属性或方法，该对象就是后期绑定的。有关更多信息，请参见早期绑定和后期绑定 (Visual Basic)。

隐式对象类型错误

适当的类型无法推断为已声明的变量时出现隐式对象类型错误，因此将推断 Object 类型。这主要发生在您使用 Dim 语句（而不使用 As 子句）声明一个变量，并且 Option Infer 处于关闭状态的情况。有关更多信息，请参见 Option Infer 语句和 Visual Basic 语言规范。

对于方法参数，如果Option Strict 是关闭的则 As 子句为可选项。但是，如果任何一个参数使用 As 子句，则所有参数都必须使用。如果 Option Strict 开启，则每个参数定义都需要 As 子句。

如果您在不使用 As 子句的情况下声明一个变量，并将其设置为 Nothing，则变量将具有 Object 类型。在 Option Strict 为 On 以及 Option Infer 为 On 这种情况下，不会出现任何编辑时错误。其示例为 Dim something = Nothing。

默认数据类型和值

下表描述了在 Dim 语句 (Visual Basic) 中指定数据类型和初始值设定项的各种组合的结果。

是否指定数据类型？	是否指定初始值设定项？	示例	结果
否	否	Dim qty	如果 Option Strict 为 off（默认），则变量将设置为 Nothing。如果 Option Strict 为 on，则会发生编译时错误。
否	是	Dim qty = 5	如果 Option Infer 为 on（默认），则该变量采用初始值设定项的数据类型。请参见局部类型推理 (Visual Basic)。如果 Option Infer 处于关闭状态，并且 Option Strict 处于关闭状态，则该变量采用 Object 数据类型。如果 Option Infer 为 off，并且 Option Strict 为 on，则会发生编译时错误。
是	否	Dim qty As Integer	变量初始化为数据类型的默认值。有关更多信息，请参见 Dim 语句 (Visual Basic)。
是	是	Dim qty As Integer = 5	如果初始值设定项的数据类型不能转换为指定的数据类型，将发生编译时错误。

当 Option Strict 语句不存在时

如果源代码中不包含 Option Strict 语句，则使用 “项目设计器”->“编译”页 (Visual Basic) 上的Option strict设置。 **“编译页”**包含提供额外控件设置，该控件针对产生错误的条件。

如果您要使用命令行编译器，则可使用 /optionstrict 编译器选项指定 Option Strict 设置。

在 IDE 中设置 Option Strict

备注

对于在以下说明中使用的某些 Visual Studio 用户界面元素，您的计算机可能会显示不同的名称或位置。这些元素取决于您所使用的 Visual Studio 版本和您所使用的设置。有关更多信息，请参见 Visual Studio 设置。

在**“解决方案资源管理器”中选择一个项目。在“项目”菜单上，单击“属性”**。有关更多信息，请参见项目设计器介绍。
在**“编译”选项卡上，设置“Option Strict”**框中的值。

在 IDE 中设置警告配置

使用“项目设计器”->“编译”页 (Visual Basic) 代替 Option Strict 语句时，可以对生成错误的情况实行附加控制。 **“编译页面”的“警告配置”**有与 Option Strict 开启时引起编译时间错误的三种情况相对应的设置。这些设置如下：

隐式转换
后期绑定；调用在运行时可能失败
隐式类型；假定的对象

将**“选项严格”设置为“开启”时，所有这三个警告配置设置都将被设置为“错误”。将“选项严格”设置为“关闭”时，所有这三个设置都被设置为“无”**。

可单独将各警告配置设置更改为**“无”、“警告”或“错误”**。如果三个警告配置都设置为出错，则 On 会出现在 Option strict 框中。如果三个都设置为无，则 Off 会出现在此框中。对于这些配置的任何其他组合，显示 “（自定义）”。

要设置新项目的“选项严格”默认设置

创建项目时，**“编译”选项卡上的“选项严格”设置将在“选项”对话框中设置为“选项严格”**设置。

若要在此对话框设置 Option Strict，请在工具菜单上单击选项。在**“选项”对话框中展开“项目和解决方案”，然后单击“VB 默认值”**。 **“VB 默认值”**中的初始默认值设置为 Off。

在命令行中设置“Option Strict”

将 /optionstrict 编译器选项包括在 vbc 命令中。

示例

以下示例演示收缩转换的隐型转换引起的编译时错误。这类错误对应于“编译页”上的“隐式转换”条件。

' If Option Strict is on, this implicit narrowing
' conversion causes a compile-time error.
' The commented statements below use explicit
' conversions to avoid a compile-time error.
Dim cyclists As Long = 5
Dim bicycles As Integer = cyclists
'Dim bicycles As Integer = CType(cyclists, Integer)
'Dim bicycles As Integer = CInt(cyclists)
'Dim bicycles As Integer = Convert.ToInt32(cyclists)


' If Option Strict is on, this implicit narrowing
' conversion causes a compile-time error.
' The commented statements below use explicit
' conversions to avoid a compile-time error.
Dim charVal As Char = "a"
'Dim charVal As Char = "a"c
'Dim charVal As Char = CType("a", Char)


' If Option Strict is on, a compile-time error occurs.
' If Option Strict is off, the string is implicitly converted
' to a Double, and then is added to the other number.
Dim myAge As Integer = "34" + 6


' If Option Strict is on, a compile-time error occurs.
' If Option Strict is off, the floating-point number
' is implicitly converted to a Long.
Dim num = 123.45 \ 10

以下示例演示了一个后期绑定引起的编译时错误。这类错误对应于“编译页”上的“后期绑定；运行时调用可能失败”条件。

' If Option Strict is on, this late binding
' causes a compile-time error. If Option Strict
' is off, the late binding instead causes a
' run-time error.
Dim punchCard As New Object
punchCard.Column = 5

以下示例演示声明为 Object 类型的变量引起的错误。这类错误对应于“编译页”上的“隐式类型；对象假设”条件。

' If Option Strict is on and Option Infer is off,
' this Dim statement without an As clause 
' causes a compile-time error.
Dim cardReaders = 5

' If Option Strict is on, a compile-time error occurs.
' If Option Strict is off, the variable is set to Nothing.
Dim dryWall

' If Option Strict is on, this parameter without an
' As clause causes a compile-time error.
Private Sub DetectIntergalacticRange(ByVal photonAttenuation)

End Sub

请参见

通过