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