IBM Lotus Symphony


CreateUnoService-Funktion [Laufzeit]

Instanziiert einen Uno-Service am ProcessServiceManager.

Syntax:

oService = CreateUnoService( Name des Uno-Service )

Beispiele:

oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )

In dem folgenden Code wird ein Service zum Öffnen eines Dialogs zum Öffnen von Dateien verwendet:

Sub Main

fName = FileOpenDialog ("Wählen Sie eine Datei aus")

print "gewählte Datei: "+fName

End Sub

function FileOpenDialog(title as String) as String

filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")

filepicker.Title = title

filepicker.execute()

files = filepicker.getFiles()

FileOpenDialog=files(0)

End function


Produktfeedback | Zusätzliche Dokumentation | Marken