CreateUnoService Function

ProcessServiceManagerसँग एउटा Uno सेवा सुरु गर्दछ


oService = CreateUnoService( Uno सेवा नाम)

For a list of available services, go to:


Calling Calc functions in Basic:

    REM The code below does not work for add-in functions, which have a different calling procedure.
    Function MyVlook(item, InRange As Object, FromCol As Integer)
        Dim oService As Object
        oService = createUnoService("")
        REM Always use the function English name
        MyVlook = oService.callFunction("VLOOKUP",Array(item, InRange, FromCol, True))
    End Function


oIntrospection = CreateUnoService( "" )

दिएको सङ्केतले खुला संवादको फाइल खोल्नलाई सेवाको प्रयोग गर्दछ:

Sub Main
    fName =फाइल खुला संवाद ("कृपया एउटा फाइल चयन गर्नुहोस्")
    "छानिएको फाइल: "+fName मुद्रण गर्नुहोस्
End Sub
Function FileOpenDialog(title As String) As String
    res =
    filepicker = createUnoService("")
    filepicker.Title = title
    If res.OK = filepicker.execute() Then 
        files = filepicker.getSelectedFiles()
End Function

Please support us!