OpenOffice.org BASIC Guide - OpenOffice.org wiki

com.sun.star.lang.XMultiServiceFactory Interface
Overview of Central Interfaces
Context-dependent objects are usually created by means of an object method, on which the object depends. The
createInstance method, which is defined in the XMultiServiceFactory interface, is used in particular in
the document objects.
The drawing object can, for example, be created as follows using a spreadsheet object:
Dim RectangleShape As Object
RectangleShape = _
Spreadsheet.createInstance("com.sun.star.drawing.RectangleShape")
A paragraph template in a text document is created in the same way:
Dim Style as Object
Style = Textdocument.createInstance("com.sun.star.style.ParagraphStyle")
Named Access to Subordinate Objects
The XNameAccess and XNameContainer interfaces are used in objects that contain subordinate objects, which
can be addressed using a natural language name.
While XNamedAccess permits access to the individual objects, XNameContainer takes on the insertion,
modification and deletion of elements.
com.sun.star.container.XNameAccess Interface
An example of the use of XNameAccess is provided by the sheets object of a spreadsheet. It combines all the
pages within the spreadsheet. The individual pages are accessed from the sheets object, by using the getByName
method from XNameAccess:
Dim Sheets As Object
Dim Sheet As Object
Sheets = Spreadsheet.Sheets
Sheet = Sheets.getByName("Sheet1")
The getElementNames method provides an overview of the names of all elements. As a result, it returns a data
field containing the names. The following example shows how all element names of a spreadsheet can thereby be
determined and displayed in a loop:
Dim Sheets As Object
Dim SheetNames
Dim I As Integer
Sheets = Spreadsheet.Sheets
SheetNames = Sheets.getElementNames
For I=LBound(SheetNames) To UBound(SheetNames)
MsgBox SheetNames(I)
Next I
The hasByName method of the XNameAccess interface reveals whether a subordinate object with a particular
name exists within the basic object. The following example therefore displays a message that informs the user
whether the Spreadsheet object contains a page of the name Sheet1.
Dim Sheets As Object
Sheets = Spreadsheet.Sheets
If Sheets.HasByName("Sheet1") Then
MsgBox " Sheet1 available"
Else
MsgBox "Sheet1 not available"
End If
com.sun.star.container.XNameContainer Interface
The XNameContainer interface takes on the insertion, deletion and modification of subordinate elements in a
Chapter 4 · Introduction to the API 55