Pour les pros du basic : fdo#70949

classic Classic list List threaded Threaded
1 message Options
samyfox16 samyfox16
Reply | Threaded
Open this post in threaded view
|

Pour les pros du basic : fdo#70949

A propos de ta question JB.

Je dirai que ce n'est pas un bug, ou alors il est entre l'écran et le fauteuil... ;-) (bon c'est vrai que c'est pas trop
documenté non plus)

Pour avoir la version exacte (4.1.3.2 au lieu de 4.1) maintenant,
il faut utiliser ooSetupVersionAboutBox comme ci-dessous à la place de

ooSetupVersion


Comme on le trouve partout sur le net

Ce n'est donc pas un bug mais une nouvelle fonctionnalité ... ;-)

Sub Main
     Dim cfgProv As Object
     Set cfgProv = CreateUnoService("com.sun.star.configuration.ConfigurationProvider")
     Dim arg1 as new "com.sun.star.beans.PropertyValue"
     Dim args(1) as new "com.sun.star.beans.PropertyValue"
     arg1.Name = "nodepath"
     arg1.Value="/org.openoffice.Setup/Product"
     args(0) = arg1
     Dim cfgAccess As Object
     Set cfgAccess = cfgProv.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", args)
     MsgBox cfgAccess.ooName & " version " & cfgAccess.ooSetupVersionAboutBox & ", provided by """ & cfgAccess.ooVendor
& """"
End Sub

--
Samuel MOUNIER
INFORMATICIEN (CGO)

--
Envoyez un mail à [hidden email] pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/qa/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés