Vb.Net: Enumeration
Auswahl von Text zu Integer und Rückumwandlung von Integer
in String, Auswahl-Text
Mit Enumerationen
kann man bestimmte Auswahl Möglichkeiten in Programmiersystemen vorgeben.
Dieses Beispiel zeigt eine Enumeration in vb.net, mit welcher
Nummern für Google Werbeblöcke vordefiniert werden.
Um eine Enumeration in vb.net in Visual Studio zu erstellen,
gibt man enum ein und dann zweimal
die Tab-Taste.
Dadurch wird automatisch ein kleiner Enumeration-Block
eingefügt.
Eine einfache Enumeration ist eine Liste von Stings zur
Auswahl. Bitte beachten Sie, dass die Strings innerhalb de Enumeration nicht
mit Hochkommas angegeben werden, sondern in sich schon Strings sind.
|
'*enumeration von
Groessen-Angaben
'*possible numbers
Public Enum Google_Advertise_Numbers As Long
Gross
Mittel
Klein
End Enum
|
Wenn den Strings gleichzeitig Nummern als Werte-Paare
zugeordnet werden sollen, dann wird hinter der String-Ausdruck direkt der Wert
als Zahl geschrieben.
Die nächste Auswahl wird einfach durch einen Umbruch-Zeichen
erweitert.
|
'*enumeration of Google
Advertise-Numbers
'*possible numbers
Public Enum Google_Advertise_Numbers As Long
Header_728x90 = 19330878069
Header_970x250 = 27580969662
Header_Mobile_320x100 = 39836432064
Side_120x240 = 43392945661
Side_125x125 = 52974143266
Side_300x1050 = 69278028868
Side_300x250 = 77522094065
Side_300x600 = 82033963661
End Enum
|
Die Enumeration
stellt sich wie hier im Visual Studio dar als Vorgabe für die weitere
Verwendung ähnlich einer public Variable, nur eben als Auswahl.
Verwendung von Enum
in vb.net
Sobald man mit Intellisense eine Enumeration auswählt, wie
hier dargestellt die Enumeration
Google_Advertise_Numbers und tippt dann den Punkt ein, dann
kann man eine Text-Auswahl selektieren.
Dahinter verbirgt sich im Falle einer Long-Integer Rückgabe
eine Nummer, welche aber als Text nun mal besser gelesen werden kann.
|
'< google Werbetyp auswaehlen >
ucAdvertise_Google_Header.Google_Advertise_Number
= UcAdvertise_Google.Google_Advertise_Numbers.Header_970x250
'</ google Werbetyp auswaehlen >
|
Verwenden von Werten durch Enumerationen.
Wenn wie oben ein Wert durch eine Enumeration weitergegeben
wurde, dann wird nur der Wert als Integer oder String weitergegeben.
Wenn man diesen Zahlen-Wert wieder zurück umwandeln möchte
in den Auswahl-Textstring, dann muss man den Wert einer gleichen Enumeration
übergeben und
Diese dann mit toString() ausgeben
|
Public WriteOnly Property Google_Advertise_Number() As Long
Set(ByVal value As Long)
'Advertise Nummer
entgegennehmen
Dim Advertise_Number As Google_Advertise_Numbers = value
'< Rueckrechnen auf
String >
'like Side_300x1050 mit
Width x Height
Dim sAdvertise_Sting As String =
Advertise_Number.ToString 'Side_300x1050
Dim intPos1 As Integer =
sAdvertise_Sting.IndexOf("_")
Dim intPos2 As Integer =
sAdvertise_Sting.IndexOf("x")
Dim sWidth As String =
sAdvertise_Sting.Substring(intPos1 + 1, intPos2 - intPos1 - 1)
Dim sHeight As String =
sAdvertise_Sting.Substring(intPos2 + 1)
'</ Rueckrechnen auf
String >
'< Style-Attibute setzen
>
ctlAdvertise_Block.Style.Item(HtmlTextWriterStyle.Width) = sWidth
ctlAdvertise_Block.Style.Item(HtmlTextWriterStyle.Height) = sHeight
'</ Style-Attibute
setzen >
End Set
End Property
|