La technique UNO (Universal Network Objects, objets réseau universels) fournit cette interface compatible avec différents langages de programmation. Exemple d'ulisation de l'API OpenOffice avec la technique UNO :
Sub met_du_rouge_avec_UNO() ' Définition des variables Dim oMondocument As Object Dim Mondispatcher As Object 'soit un répartiteur ' On travail sur le document actif oMondocument = ThisComponent.CurrentController.Frame Mondispatcher = createUnoService("com.sun.star.frame.DispatchHelper") ' Création de la variables (type tableau) contenant les différentes propriétés Dim liste_proprietes(0) As new com.sun.star.beans.PropertyValue ' Affectation des différentes propriétés liste_proprietes(0).Name = "BackgroundColor" liste_proprietes(0).Value = 16000000 ' Exécution du répartiteur Mondispatcher.executeDispatch(oMondocument, ".uno:BackgroundColor", "", 0, liste_proprietes()) End Sub ![]() ◊ Guide de programmation de OpenOffice.org BASIC ◊ How To Programmation ◊ FAQ OpenOffice |