Übersetzung in VB-Code

[EWeiss]

Zitat:

keine konstanten Arrays deklarieren

OK dann!

Code:

Enum TGEDCOMApproximated [ As Integer ] 
   daExact
   daAbout
   daCalculated
   daEstimated
 End Enum

dein [ as Interger ] kannst dir sparen
Und Ich die zahlen dahinter die nummerieren sich automatisch von 0 -> endlos und sind Integer auch ohne angaben

Ach so wenn du es so genau nimmst.
Solltest du auch das Public vor

Code:

Public GEDCOMDateApproximatedArray(3) As String

in Privat ändern.. denn benutzerdefinierte Arrays sind in öffentlichen Mitgliedern von Objektmodulen nicht zugelassen.

Danach sollte es stimmen.

gruss