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