je voudrais utiliser une variable pour ouvrir un catalogue comme suit :
Code : Tout sélectionner
Dlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
Merci d'avance
Modérateur : Vilains modOOs
Code : Tout sélectionner
Dlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
Code : Tout sélectionner
Function LoadDialog(LibName as String, DialogName as String, Optional oLibContainer)
' LibName est le nom du module qui contient le dialogue à charger
' DialogName est le nom du dialogue que tu lis sur l'onglet en bas de la page du basic (avec le module LibName) affiché
Dim oLib as Object, oLibDialog as Object, oRuntimeDialog as Object
If IsMissing(oLibContainer ) then
oLibContainer = DialogLibraries
End If
oLibContainer.LoadLibrary(LibName)
oLib = oLibContainer.GetByName(Libname)
oLibDialog = oLib.GetByName(DialogName)
oRuntimeDialog = CreateUnoDialog(oLibDialog)
LoadDialog() = oRuntimeDialog
End Function
Code : Tout sélectionner
MaBoîte = LoadDialog("Standard", "machin")