diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-13 14:42:49 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-13 14:46:27 +0200 |
commit | 28dcdd5f6c2204718519e215d2ef5466743536c7 (patch) | |
tree | 45cde6c4ea79d84dd68ffb6675cb3003286c3640 /wizards/source/access2base/OptionGroup.xba | |
parent | 5c7fa1518e9ca8921d2d6c2a4b09a8a6fb938804 (diff) |
Access2Base - Robustness changes
Addition of _This address in every Basic object
Default parameters reviewed when ambiguous
Typo's corrections
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
-rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index 1f3cb72f8d49..6eeac087a7eb 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -16,6 +16,7 @@ REM --- CLASS ROOT FIELDS --- REM ----------------------------------------------------------------------------------------------------------------------- Private _Type As String ' Must be FORM +Private _This As Object ' Workaround for absence of This builtin function Private _Name As String Private _ParentType As String Private _ParentComponent As Object @@ -31,6 +32,7 @@ REM --- CONSTRUCTORS / DESTRUCTORS --- REM ----------------------------------------------------------------------------------------------------------------------- Private Sub Class_Initialize() _Type = OBJOPTIONGROUP + Set _This = Nothing _Name = "" _ParentType = "" _ParentComponent = Nothing @@ -118,6 +120,7 @@ Dim ocControl As Variant, iArgNr As Integer, i As Integer If IsMissing(pvIndex) Then ' No argument, return Collection object Set oCounter = New Collect + Set oCounter._This = oCounter oCounter._SubType = OBJCONTROL oCounter._ParentType = OBJOPTIONGROUP oCounter._ParentName = _Name @@ -133,6 +136,7 @@ Dim ocControl As Variant, iArgNr As Integer, i As Integer ' Start building the ocControl object ' Determine exact name Set ocControl = New Control + Set ocControl._This = ocControl ocControl._ParentType = CTLPARENTISGROUP ocControl._Shortcut = "" |