Kaydet (Commit) 37973799 authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure

Access2Base - Correct CommandBarControls collection

Make the Item property of the CommandBarControls collection work correctly
thanks to a complete initialization of the object.

Change-Id: I714d1034d69be197f68702b0e2d7b21ff64ffff8
üst e783cc71
......@@ -170,6 +170,7 @@ Dim oObject As Object
Set oObject = New Collect
oObject._CollType = COLLCOMMANDBARCONTROLS
oObject._ParentType = OBJCOMMANDBAR
oObject._ParentName = _Name
oObject._Count = iItemsCount
Case Else ' pvIndex is numeric
Goto Trace_IndexError
......
......@@ -2466,4 +2466,4 @@ Dim oShell As Object
oShell.execute(sCommand, "" , com.sun.star.system.SystemShellExecuteFlags.DEFAULTS)
End Sub ' _ShellExecute V0.8.5
</script:module>
</script:module>
\ No newline at end of file
......@@ -180,4 +180,4 @@ Dim sName As String, vValue As Variant
_PropValuesToStr() = sResult
End Function &apos; _PropValuesToStr V1.3.0
</script:module>
</script:module>
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment