VB.Net常量和枚举

常量指的是程序在执行过程中可能不会改变的固定值。 这些固定值也被称为文字。

常量可以是任何基本数据类型，如整数常量，浮点常量，字符常量或字符串文字。 也有枚举常量。

常量的处理方式与常规变量一样，只是它们的值在定义之后无法修改。

枚举是一组命名的整数常量。

声明常量

在VB.Net中，使用Const语句声明常量。 Const语句用于模块，类，结构，过程或块级别，以代替文字值。

Const语句的语法是：

[ < attributelist> ] [ accessmodifier ] [ Shadows ] 
Const constantlist

其中，

• attributelist：指定应用于常量的属性列表; 可以提供以逗号分隔的多个属性。这是可选项。
• accessmodifier：指定哪些代码可以访问这些常量，这是可选项。值可以是：Public, Protected, Friend, Protected Friend 或 Private。
• Shadows：这使得常量隐藏了一个基类中相同名称的编程元素。这是一个可选项。
• Constantlist：给出了所声明常量的名字列表，这是必须的。

其中，每个常量名称具有以下语法和部分：

constantname [ As datatype ] = initializer

• constantname：指定常量的名称
• datatype：指定常量的数据类型
• initializer：指定分配给常量的值

示例

'The following statements declare constants.'
Const maxval As Long = 8999
Public Const message As String = "HELLO" 
Private Const piValue As Double = 3.1415

实例

以下示例演示声明和使用常量值：

Module constantsNenum
   Sub Main()
      Const PI = 3.14149
      Dim radius, area As Single
      radius = 7
      area = PI * radius * radius
      Console.WriteLine("Area = " & Str(area))
      Console.ReadKey()
   End Sub
End Module

当上面的代码被编译并执行时，会产生以下结果：

Area = 153.933

VB.Net打印和显示常量

VB.Net提供了以下的打印和显示常量：

Err.Raise(Number)= vbObjectError + 1000 |
| vbTab | 制表符。 |
| vbBack | 退格字符。 |

声明枚举

枚举类型是使用Enum语句声明的。Enum语句声明一个枚举并定义其成员的值。 Enum语句可以在模块，类，结构，过程或块级别使用。

Enum语句的语法如下所示：

[ < attributelist > ] [ accessmodifier ]  [ Shadows ] 
Enum enumerationname [ As datatype ] 
   memberlist
End Enum

其中，

• attributelist：引用应用于变量的属性列表。这是一个可选项。
• accessmodifier：指定哪些代码可以访问这些常量，这是可选项。值可以是：Public, Protected, Friend, Protected Friend 或 Private。
• enumerationname：枚举的名称，必须。
• Shadows：这使得常量隐藏了一个基类中相同名称的编程元素。这是一个可选项。
• memberlist：指定在此语句中声明的成员常量的列表。这是必须的。

成员列表中的每个成员都有以下语法和部分：

[< attribute list>] member name [ = initializer ]

其中，

• name: 指定成员的名字，这是必需项。
• initializer: 分配给枚举成员的值，这是一个可选项。

示例

Enum Colors
   red = 1
   orange = 2
   yellow = 3
   green = 4
   azure = 5
   blue = 6
   violet = 7
End Enum

实例

以下示例演示Enum变量Colors的声明和用法，参考以下示例代码 -

Module constantsNenum
   Enum Colors
      red = 1
      orange = 2
      yellow = 3
      green = 4
      azure = 5
      blue = 6
      violet = 7
   End Enum
   Sub Main()
      Console.WriteLine("The Color Red is : " & Colors.red)
      Console.WriteLine("The Color Yellow is : " & Colors.yellow)
      Console.WriteLine("The Color Blue is : " & Colors.blue)
      Console.WriteLine("The Color Green is : " & Colors.green)
      Console.ReadKey()
   End Sub
End Module

当上面的代码被编译并执行时，会产生以下结果：

The Color Red is: 1
The Color Yellow is: 3
The Color Blue is: 6
The Color Green is: 4