Bonjour à vous,
J'ai lu que pour tous les services uno, on pouvait lister leurs propriétés et les méthodes attachées à ces services.
J'ai utilisé une syntaxe trouvé sur Net (qui cause de débugger) : on crée une instance de service puis à cet objet on applique la propriété "DBG_methods" pour lister les méthodes attachées à ce service.
Mais mon problème est que cette fonctionnalité ne fonctionne pas pour tous les services.
Y a-til une raison ? ou est mon erreur ?
Ci-dessous le code utilisé et les commentaires adéquats.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub Main Dim Obj As Object ' Obj = createUnoService("com.sun.star.frame.Desktop") ' ca marche ' Obj = createUnoService("com.sun.star.sheet.CellsEnumeration") ' ca ne marche pas ' Obj = createUnoService("com.sun.star.ui.dialogs.FilePicker") ' ca marche ' Obj = CreateUnoService("com.sun.star.ui.dialogs.Wizard") ' ca marche ' Obj = CreateUnoService("com.sun.star.sheet.Cells") ' ca ne marche pas Obj = CreateUnoService("com.sun.star.table.Cell") ' ca ne marche pas MsgBox Obj.DBG_Properties MsgBox Obj.DBG_methods End Sub
Quand " ça ne marche pas " Obj = Null donc message d'erreur sur la propriété "DBG_Properties"
Pourtant "CellEnumeration" et "Cells" sont bien des services du module "sheet"
ainsi que "Cell" un service du module "Table".
Merci d'avance d'éclairer ma lanterne
Partager