в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:42:11Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/Language Basics/Enum - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия