Re: Enumeration referenzieren?
- From: Oliver Denter <odenter@xxxxxx>
- Date: Wed, 12 Sep 2007 18:11:18 +0200
Robert Schneider schrieb:
Was macht das hier eigentlich für einen Sinn:Weil Du dir zum Beispiel einen ENUM-Wert merken willst. Also ein ENUM-Typ eine normale Variable einer Klasse ist die am Anfang auf einen DefaultWert gesetzt wird und später bei der Benutzung der Klasse auf den benötigten Typ gesetzt wird
Enum TestEnum
A
B
End Enum
Dim x As [Enum] = TestEnum.A
Wieso kann man einer Enum-Variablen einen Wert einer Enumeration zuweisen? Könnte das überhaupt irgendwie nützlich sein? Was kann ich denn mit x anfangen?
Tschuldigung, falls das zu trivial ist.
Gruß,
Robert
Enum DBTyp
UNKNOWN
MSSQL
ACCESS
End Enum
public class DbLayer
private dbTypValue as DBTyp
public property DBTyp as DBTyp
get
return dbTypValue
end get
set
dbTypValue = DBTyp.UNKNOWN
end set
end property
public function GetConnectionString() AS string
select case dbTypValue
case DBTyp.UNKNOWN
' fehler
case DBTyp.MSSQL
return "MSSQL Connectionstring"
case DBTyp.ACCESS
return "OleDB ConnectionString"
case else
' fehler
end select
end function
public function GetConnection() as DBConnection
select case dbTypValue
case DBTyp.UNKNOWN
' fehler
case DBTyp.MSSQL
return new SqlConnection()
case DBTyp.ACCESS
return new OleDbConnection()
case else
' fehler
end select
end function
end class
public class irgendwas
public sub new
dim o as new DBLayer
o.DBTyp = DBTyp.MSSQL
dim conStr as string = o.GetConnectionString()
dim con as DBConnection = o.GetConnection()
con.Open()
con.Close()
end sub
end class
OD
.
- Follow-Ups:
- Re: Enumeration referenzieren?
- From: Robert Schneider
- Re: Enumeration referenzieren?
- References:
- Enumeration referenzieren?
- From: Robert Schneider
- Enumeration referenzieren?
- Prev by Date: Re: Fremde MessageBox schliessen
- Next by Date: SQL 2005 Report. Farbe des Feldes
- Previous by thread: Enumeration referenzieren?
- Next by thread: Re: Enumeration referenzieren?
- Index(es):
Relevant Pages
|
