diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2015-01-04 15:25:25 +0100 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2015-01-04 15:30:17 +0100 |
commit | c36353d844f05e1de6a0c31cb6bf102887dc114a (patch) | |
tree | c4dc1eef3bcd1048c019659093a1155f9de2318c /wizards/source/access2base/OptionGroup.xba | |
parent | 4eed16d83cad3446e250c23f9e9ca48a1d9a6d9c (diff) |
Access2Base - New CommandBarControl class
Main functionalities:
- show/hide toolbar elements
- modify tooltip
- get/set internal command
- execute internal command
Change-Id: Ice830009f9eabc199727c7d4b54ebf524b026d40
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
-rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index 1fe523034419..a1177aec4399 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -124,7 +124,7 @@ Dim ocControl As Variant, iArgNr As Integer, i As Integer Goto Exit_Function End If - If Len(_A2B_.CalledSub) > 12 And Left(_A2B_.CalledSub, 12) = "OptionGroup." Then iArgNr = 1 Else iArgNr = 2 + If _IsLeft(_A2B_.CalledSub, "OptionGroup.") Then iArgNr = 1 Else iArgNr = 2 If Not Utils._CheckArgument(pvIndex, iArgNr, Utils._AddNumeric()) Then Goto Exit_Function If pvIndex < 0 Or pvIndex > _Count - 1 Then Goto Trace_Error_Index @@ -266,7 +266,7 @@ Private Function _PropertySet(ByVal psProperty As String, ByVal pvValue As Varia 'Execute Dim i As Integer, iRadioIndex As Integer, oModel As Object, iArgNr As Integer - If Len(_A2B_.CalledSub) > 12 And Left(_A2B_.CalledSub, 12) = "OptionGroup." Then iArgNr = 1 Else iArgNr = 2 + If _IsLeft(_A2B_.CalledSub, "OptionGroup.") Then iArgNr = 1 Else iArgNr = 2 Select Case UCase(psProperty) Case UCase("Value") If Not Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto Trace_Error_Value |