Συνάρτηση CreateUnoService

Δημιουργεί μια υπηρεσία Uno με το ProcessServiceManager.

Σύνταξη:


     CreateUnoService(serviceName As String) As Object

Για έναν κατάλογο με τις διαθέσιμες υπηρεσίες, επισκεφτείτε τη σελίδα αναφοράς com::sun::star Module reference page.

Παράδειγμα:

Το παρακάτω παράδειγμα δημιουργεί τη συνάρτηση FileExists που χρησιμοποιεί την υπηρεσία com.sun.star.ucb.SimpleFileAccess για να ελέγξει εάν μια δεδομένη διαδρομή είναι ένα υπάρχον αρχείο.


    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

Οι υπηρεσίες UNO διαθέτουν εκτενή ηλεκτρονική τεκμηρίωση στον ιστότοπο api.libreoffice.org. Επισκεφτείτε τη σελίδα SimpleFileAccess Service για να μάθετε περισσότερα σχετικά με τις μεθόδους αναφοράς υπηρεσία που χρησιμοποιούνται στο παραπάνω παράδειγμα.

Παράδειγμα:

Ο παρακάτω κώδικας χρησιμοποιεί την υπηρεσία com.sun.star.ui.dialogs.FilePicker για την εμφάνιση ενός διαλόγου ανοιχτού αρχείου:


Sub Main
    fName = FileOpenDialog ("Παρακαλώ επιλέξτε ένα αρχείο")
    print "επιλεγμένο αρχείο: "+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 Συνάρτηση

Αντικείμενα, συναρτήσεις και υπηρεσίες UNO

Χρήση συναρτήσεων Calc σε μακροεντολές