CreateUnoService Function

Nag-i-instantiate ng serbisyo ng Uno gamit ang ProcessServiceManager .

Syntax:


     CreateUnoService(serviceName As String) As Object

Para sa listahan ng mga available na serbisyo, bisitahin ang com::sun::star Module pahina ng sanggunian.

Halimbawa:

Ang halimbawa sa ibaba ay lumilikha ng function FileExists na gumagamit ng serbisyo com.sun.star.ucb.SimpleFileAccess upang subukan kung ang isang ibinigay na landas ay isang umiiral na file.


    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 ' FileExists

Ang mga serbisyo ng UNO ay may malawak na online na dokumentasyon sa api.libreoffice.org website. Bisitahin ang SimpleFileAccess Service pahina ng sanggunian upang matuto nang higit pa tungkol sa mga pamamaraan na ibinigay ng serbisyong ginamit sa halimbawa sa itaas.

Halimbawa:

Ang sumusunod na code ay gumagamit ng serbisyo com.sun.star.ui.dialogs.FilePicker para magpakita ng bukas na dialog ng file:


Sub Main
    fName = FileOpenDialog ("Mangyaring pumili ng file")
    I-print ang "file na napili: "+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 ' Main

CreateUnoServiceWithArguments Function

UNO Objects, Functions and Services

Paggamit ng Calc Function sa Macros