Moin!
nachdem ich kürzlich gute Erfahrung mit einer Klasse für meine DXF-Bausteine gemacht habe (der eine oder andere wird sich erinnern) wollte ich meine Adressen-Definition von Diciontary auch auf eine Klasse umstellen.
Es wird dort viele Eigenschaften geben.
Zunächst dachte ich, dass ich diese alle so deklarieren kann.
Dann habe ich aber festgestellt, dass bei
nicht alle Definitionen angezeigt werden(xxx)
Dann habe ich etwas gesucht und die "große" Definition für die Properties angewandt werden müssen - wenn ich das richtig verstanden haben.
Ist das richtig??
Das ist doch viel getippe und damit Fehler anfällig.
Kann mir eine Richtung weisen??
Gruß Jan
nachdem ich kürzlich gute Erfahrung mit einer Klasse für meine DXF-Bausteine gemacht habe (der eine oder andere wird sich erinnern) wollte ich meine Adressen-Definition von Diciontary auch auf eine Klasse umstellen.
Es wird dort viele Eigenschaften geben.
VB.NET-Quellcode
- Public Property ID_AdressArt As Short
- Public Property Firma As String
- Public Property FirmaZusatz As String
- Public Property ID_Anrede_1 As Short
- Public Property ID_Titel_1 As Short
- Public Property VorName_1 As String
- Public Property NachName_1 As String
- Public Property ID_Anrede_2 As Short
- Public Property ID_Titel_2 As Short
- Public Property VorName_2 As String
- Public Property NachName_2 As String
- Public Property DebitorenNummer As String
- Public Property Strasse As String
- Public Property HausNr As String
Zunächst dachte ich, dass ich diese alle so deklarieren kann.
Dann habe ich aber festgestellt, dass bei
nicht alle Definitionen angezeigt werden(xxx)
Dann habe ich etwas gesucht und die "große" Definition für die Properties angewandt werden müssen - wenn ich das richtig verstanden haben.
VB.NET-Quellcode
- Private ID_AdressArt As AdressArt
- Private Firma As String
- Private FirmaZusatz As String
- Private ID_Anrede_1 As Anrede
- Private ID_Titel_1 As Titel
- Private VorName_1 As String
- Private NachName_1 As String
- Private ID_Anrede_2 As Anrede
- Private ID_Titel_2 As Titel
- Private VorName_2 As String
- ...
- Public Property MyAdressArt As AdressArt
- Get
- Return ID_AdressArt
- End Get
- Set(ByVal value As AdressArt)
- ID_AdressArt = value
- End Set
- End Property
Ist das richtig??
Das ist doch viel getippe und damit Fehler anfällig.
Kann mir eine Richtung weisen??
Gruß Jan