From 9e8b930b136b5e6b74aea92863dc9fb2dfd97e9f Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Sat, 23 Aug 2014 12:12:05 +0200 Subject: Dispose() method for all objects An implicit (Terminate_Class) and an explicit (Dispose) method have been created to stimulate better memory management. Change-Id: I240e5117db6bf0d1fcf268e3ddf6d67e0bc1b8eb --- wizards/source/access2base/OptionGroup.xba | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'wizards/source/access2base/OptionGroup.xba') diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index ab0993d2ec17..7b8e4a78503c 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -40,7 +40,15 @@ Private Sub Class_Initialize() End Sub ' Constructor REM ----------------------------------------------------------------------------------------------------------------------- -'Private Sub Class_Terminate() +Private Sub Class_Terminate() + On Local Error Resume Next + Call Class_Initialize() +End Sub ' Destructor + +REM ----------------------------------------------------------------------------------------------------------------------- +Public Sub Dispose() + Call Class_Terminate() +End Sub ' Explicit destructor REM ----------------------------------------------------------------------------------------------------------------------- REM --- CLASS GET/LET/SET PROPERTIES --- -- cgit