Czy mogę ustawić ciągi, single itp. W "" i Zero dla każdego?

Question

Mam rekordu:

Public Loon As LonenRecord 

Type LonenRecord 
    'Algemeen 
    Status As String * 1 
    TijdvakNr As Integer 
    TijdvakBegin As String * 10 
    TijdvakEinde As String * 10 

    Key As String * 10 
    WerkgeversNummer As String * 3 
    WnRecord As Integer 
    WerknemerNr As String * 4 
    AchterNaam As String * 25 
    Voorvoegsel As String * 15 
    and lots more 
end Type 

chcę tak pusto wszystko na "" lub zero

mogę zrobić:

with Loon 
    .TijdvakNr = 0 
    .WerkgeversNummer = "" 
etc 
end with 

Czy istnieje prostszy sposób, f.i. z każdym lub czymkolwiek?

Answer 1

Przypisz nową wartość, która będzie w stanie domyślnym.

'// return a new LonenRecord 
Function ResetLonenRecord as LonenRecord: End Function 

Następnie:

'// overwrite variable 
Loon = ResetLonenRecord()