Clearing all values in a User Defined Type variable

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have:

Public Type TPETC_COLS
Sort As Integer
AStart As Integer
RStart As Integer
SStart As Integer
RComplete As Integer
SComplete As Integer

End Type

But in the middle of the code I want to ensure all values in the type are
set to 0, I just want to know if there is an easier way to do this rather
than declaring each one as 0. Thanks.
 
On way would be to declare a dummy variable as the same type. Then use lset
to reset

sub abc(
b as TPETC_COLS
mydum as TPETC_COLS

' work with b, never touch mydum

' now to reset

lset b = mydum

' b is now reset

End Sub


If you have a fixed array of these variables and you want reset them all,
then you can use erase


sub abc(
b(0 to 10) as TPETC_COLS


' work with b, never touch mydum

' now to reset all the type variables in the array

erase b

' all variables in b are now reset

End Sub
 
Thank you Tom. :)
--
*********************
J Streger
MS Office Master 2000 ed.
MS Project White Belt 2003
 
Back
Top