LibreOffice 7.3 Hjelp
Startar ei UNO-teneste med ProcessServiceManager.
oService = CreateUnoService( UNO-tenestenamn)
Sjå ei liste over tilgjengelege tenester på referansesida com::sun::star Module.
Eksempelet nedanfor lagar funksjonen FileExists som brukar tenesta com.sun.star.ucb.SimpleFileAccess for å finna ut om ein gjeven sti er ei fil som finst frå før.
Function FileExists(sPath as String) as Boolean
Dim svcSFA as Object
Set svcSFA = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
Dim bExists as Boolean : bExists = svcSFA.exists(sPath)
Dim bIsFolder as Boolean : bIsFolder = svcSFA.IsFolder(sPath)
FileExists = bExists And Not bIsFolder
End Function
UNO-tenester har ein omfattande dokumentasjon på nettsida api.libreoffice.org. Besøk referansesida SimpleFileAccess Service for å læra meir om metodane som er levert av tenesta i eksempelet ovanfor.
Den følgjande koden brukar tenesta com.sun.star.ui.dialogs.FilePicker for å visa eit dialogvindauge for å opna ei fil:
Sub Main
fName = FileOpenDialog ("Please select a file")
Print "vald fil: "+fName
End Sub
Function FileOpenDialog(title As String) As String
res = com.sun.star.ui.dialogs.ExecutableDialogResults
filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")
filepicker.Title = title
If res.OK = filepicker.execute() Then
files = filepicker.getSelectedFiles()
FileOpenDialog=files(0)
EndIf
End Function