VB.Net/Language Basics/Enum — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:42, 26 мая 2010
Содержание
Convert Element in Enum to Integer
<source lang="vbnet"> Imports System public class MainClass
Enum Temperatures CelsiusMeetsFahrenheit = -40 WickedCold = 0 FreezingPoint = 32 LightJacketWeather = 60 SwimmingWeather = 72 BoilingPoint = 212 End Enum Shared Sub Main() Console.WriteLine("Freezing point of water: {0}",CType(Temperatures.FreezingPoint, Integer)) Console.WriteLine("Boiling point of water: {0}",CType(Temperatures.BoilingPoint, Integer)) End Sub
End Class
</source>
Convert Enum element to int and call ToString
<source lang="vbnet"> Imports System Imports System.Data Imports System.Collections public class MainClass
Shared Sub Main() Dim I1, I2, I3 As Integer I1 = E.A : I2 = E.B : I3 = E.C Console.WriteLine(I1.ToString() &" " & I2.ToString() &" " & I3.ToString()) End Sub
End Class
Enum E A = 5 B C = 6 " B and C will both be 6 End Enum </source>
Convert Enum to Int
<source lang="vbnet"> Imports System Public Class MainClass
Enum Temperatures WickedCold = 0 FreezingPoint = 32 LightJacketWeather = 60 SwimmingWeather = 72 BoilingPoint = 212 End Enum "Temperatures Shared Sub Main(ByVal args As String()) Console.WriteLine("Freezing point of water: {0}",CInt(Temperatures.FreezingPoint)) Console.WriteLine("Boiling point of water: {0}", CInt(Temperatures.BoilingPoint)) End Sub
End Class
</source>
Enum data Demo
<source lang="vbnet"> Imports System Public Class MainClass
Private Enum Names As Integer Norman = 1 Mike = 2 Reece = 3 End Enum Shared Sub Main() System.Console.WriteLine(Names.Norman.ToString & " = " & Names.Norman) System.Console.WriteLine(Names.Mike.ToString & " = " & Names.Mike) System.Console.WriteLine(Names.Reece.ToString & " = " & Names.Reece) End Sub
End Class
</source>
Enum Temperatures
<source lang="vbnet"> Imports System Public Class MainClass
Enum Temperatures WickedCold = 0 FreezingPoint = 32 LightJacketWeather = 60 SwimmingWeather = 72 BoilingPoint = 212 End Enum "Temperatures Shared Sub Main(ByVal args As String()) Console.WriteLine("Freezing point of water: {0}",Temperatures.FreezingPoint) Console.WriteLine("Boiling point of water: {0}", Temperatures.BoilingPoint) End Sub
End Class
</source>
Use Enum to define Access Level
<source lang="vbnet"> Imports System Imports System.Diagnostics Public Class MainClass
Public Enum AccessLevel Clerk Supervisor Administrator User = Clerk Manager = Supervisor SysAdmin = Administrator Superuser = Administrator End Enum Shared Sub Main() Dim access_level As AccessLevel = AccessLevel.SysAdmin Dim txt As String = access_level.ToString() & vbCrLf txt &= AccessLevel.Clerk.ToString() & vbCrLf txt &= AccessLevel.Supervisor.ToString() & vbCrLf txt &= AccessLevel.Administrator.ToString() & vbCrLf Console.WriteLine(txt) End Sub
End Class
</source>