IBM Lotus Symphony


CreateUnoService 函数 [运行时]

使用 ProcessServiceManager 实例化 Uno 服务。

语法:

oService = CreateUnoService(Uno 服务名称)

示例

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

以下代码使用打开文件打开对话框的服务:

Sub Main

fName = FileOpenDialog ("Please select a file")

print "file chosen: "+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


产品反馈 | 其他文档 | 商标