Bonjour,

Je viens de constater quelques changements de comportement de mes macros sous ooo3 Je les relaye à tout hasard.

Avant, pour supprimer une bibliothèque, j'utilisais la fonction suivante:

Sub DeleteBasicLibrary(srcname) Dim SrcLibraryName As String Dim oSrcLib As Object, iCounter As Integer Dim oLib As Object, oGlobalLib As Object Dim iLib As Integer Dim sSrcModules SrcLibraryName = srcname oGlobalLib = GlobalScope.BasicLibraries For iLib = 1 To 2 ' this makes two passes, one for the dialogues and one for the macros If oGlobalLib.hasByName( SrcLibraryName ) Then oSrcLib = oGlobalLib.getByName( SrcLibraryName ) sSrcModules = oSrcLib.getElementNames() iCounter = lBound( sSrcModules() ) while( iCounter <= uBound( sSrcModules() ) )

oSrcLib.removeByName( sSrcModules(iCounter) ) '<-- une erreur apparaît maintenant ici: la bibliothèque n'est pas chargée.

iCounter = iCounter + 1 wend oGlobalLib.removeLibrary( SrcLibraryName ) End If oGlobalLib = GlobalScope.DialogLibraries Next iLib End Sub

Ca marchait très bien. Maintenant, j'ai un message d'erreur me disant que la bibliothèque n'est pas chargée.

Je rajoute donc une ligne pour charger la bibliothèque. Ce qui m'étonne par contre, c'est que si je charge la bibliothèque au début de la fonction, ça ne marche toujours pas, alors que si je la charge juste avant l'erreur, ça marche.

Ceci ne marche pas:

Sub DeleteBasicLibrary(srcname) Dim SrcLibraryName As String Dim oSrcLib As Object, iCounter As Integer Dim oLib As Object, oGlobalLib As Object Dim iLib As Integer Dim sSrcModules SrcLibraryName = srcname oGlobalLib = GlobalScope.BasicLibraries

oGlobalLib.LoadLibrary( SrcLibraryName ) '<--- j'ajoute cette ligne. Ca ne marche toujours pas. C'est peut-être maladroit de charger une bibliothèque avant de vérifier qu'elle existe, cependant, quand elle existe, je ne vois pas pourquoi la suite plante.

For iLib = 1 To 2 ' this makes two passes, one for the dialogues and one for the macros If oGlobalLib.hasByName( SrcLibraryName ) Then oSrcLib = oGlobalLib.getByName( SrcLibraryName ) sSrcModules = oSrcLib.getElementNames() iCounter = lBound( sSrcModules() ) while( iCounter <= uBound( sSrcModules() ) ) oSrcLib.removeByName( sSrcModules(iCounter) ) iCounter = iCounter + 1 wend oGlobalLib.removeLibrary( SrcLibraryName ) End If oGlobalLib = GlobalScope.DialogLibraries Next iLib End Sub

Ceci marche:

Sub DeleteBasicLibrary(srcname) Dim SrcLibraryName As String Dim oSrcLib As Object, iCounter As Integer Dim oLib As Object, oGlobalLib As Object Dim iLib As Integer Dim sSrcModules

SrcLibraryName = srcname

oGlobalLib = GlobalScope.BasicLibraries For iLib = 1 To 2 ' this makes two passes, one for the dialogues and one for the macros If oGlobalLib.hasByName( SrcLibraryName ) Then oSrcLib = oGlobalLib.getByName( SrcLibraryName ) sSrcModules = oSrcLib.getElementNames() iCounter = lBound( sSrcModules() )

oGlobalLib.LoadLibrary( SrcLibraryName ) '<-- J'ajoute la même ligne ici, ça marche.

while( iCounter <= uBound( sSrcModules() ) ) oSrcLib.removeByName( sSrcModules(iCounter) ) iCounter = iCounter + 1 wend oGlobalLib.removeLibrary( SrcLibraryName ) End If oGlobalLib = GlobalScope.DialogLibraries Next iLib End Sub

J'avoue que je ne comprends pas très bien. M'enfin, ça fini par marcher...

Autre changement: dans une boite de dialogue, j'ai des cases à cocher. Il y en a que je ne voulais pas afficher, et pour cela j'utilisais le code suivant:

Label = BoiteDialogue.GetControl("CheckBox"&CStr(i)) Label.Model.Height = 0

Maintenant, ça ne marche plus. Par contre, ceci marche:

Label = BoiteDialogue.GetControl("CheckBox"&CStr(i)) Label.Model.Width = 0

On ne peut donc plus fixer la hauteur d'une case à 0, mais seulement sa largeur.

Tout ceci n'est pas bien grave et je remercie toujours chaleureusement les développeurs.

C'est juste pour le signaler.

Cordialement,