Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Na Klasse
Autor: Gidi
Datum: 07.03.06 14:41
So, hab nochmal rumprobiert und glaub ich eine gute Möglickeit gefunden für mein Problem ... ich nutze jetz 2 Klassen, einmal die Klasse Car Public Class Car Dim strTyp As String Dim DateBaujahr As Date Public Property typ() As String Get typ = strTyp End Get Set(ByVal value As String) strTyp = value End Set End Property Public Property Baujahr() As Date Get Baujahr = DateBaujahr End Get Set(ByVal value As Date) DateBaujahr = value End Set End Property End Class und als zweites die Klasse fahrzeug Public Class fahrzeug Dim hCar As New Hashtable Dim newCar As New Car Public Sub add(ByVal LagerNr As String, ByVal typ As String, ByVal baujahr As Date) newCar = New Car newCar.typ = typ newCar.Baujahr = baujahr hCar.Add(LagerNr, newCar) End Sub Public Function baujahr(ByVal LagerNr As String) As Date Return CType(hCar(LagerNr), Car).Baujahr End Function Public Function typ(ByVal LagerNr As String) As String Return CType(hCar(LagerNr), Car).typ End Function End Class Hier werden die Fahrzeuge in einer Hashtable untergebracht, wo ich jedem Objekt Car einen Schlssel zuordnen kann. Jetz in meinem Haupprogramm fzg.add("1", "Mercedes", "12.12.1959") fzg.add("2", "BMW", "01.01.1970") MsgBox(fzg.baujahr("1")) MsgBox(fzg.typ("2")) Also ich finde es auf den ersten Blick ganz Ok ... was meint Ihr ???? gruß Gidi

Na Klasse	1.000	Gidi	07.03.06 11:27
Re: Na Klasse	671	DaveS	07.03.06 11:36
Re: Na Klasse	666	Gidi	07.03.06 11:47
Re: Na Klasse	658	spike24	07.03.06 12:10
Re: Na Klasse	659	Gidi	07.03.06 12:35
Re: Na Klasse	605	spike24	07.03.06 12:45
Re: Na Klasse	616	Gidi	07.03.06 13:32
Re: Na Klasse	633	DaveS	07.03.06 12:21
Re: Na Klasse	612	spike24	07.03.06 12:32
Re: Na Klasse	616	DaveS	07.03.06 12:52
Re: Na Klasse	598	spike24	07.03.06 12:57
Re: Na Klasse	568	spike24	09.03.06 10:54
Re: Na Klasse	601	DaveS	09.03.06 10:57
Re: Na Klasse	611	spike24	09.03.06 10:58
Re: Na Klasse	644	Gidi	07.03.06 14:41
Re: Na Klasse	629	Gidi	07.03.06 14:49
Re: Na Klasse	583	DaveS	07.03.06 15:06
Re: Na Klasse	602	Gidi	07.03.06 15:35
Re: Na Klasse	611	DaveS	07.03.06 15:57

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen