[Résolu][Base]Comment substituer un nom de catalogue

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Avatar de l’utilisateur
papyx
Membre hOOnoraire
Membre hOOnoraire
Messages : 110
Inscription : 15 oct. 2015 07:43
Localisation : Hénin-Beaumont 62110

[Résolu][Base]Comment substituer un nom de catalogue

Message par papyx »

Bonjour
je voudrais utiliser une variable pour ouvrir un catalogue comme suit :

Code : Tout sélectionner

  Dlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
mais en choisissant un autre nom que "Dialog1"
Merci d'avance
Dernière modification par micmac le 18 nov. 2015 15:52, modifié 2 fois.
Raison : Ajout de la coche verte
OpenOffice 4.1.1
Windows 7 Chrome
Avatar de l’utilisateur
martinbrait
InconditiOOnnel
InconditiOOnnel
Messages : 753
Inscription : 09 avr. 2013 07:15
Localisation : T'as pas dit bonjour, merci et à bientot !

Re: [Base]Comment substituer un nom de catalogue

Message par martinbrait »

Quel est le cas d'utilisation pour lequel tu souhaites charger ce catalogue ?
Ta question se situe-t-elle par le fait que tu ne saurais pas faire référence
à une boîte de dialogue référencée dans un autre nom ?
Ta question se situe-t-elle sur le fait que tu ne saurais pas ajouter
un module personnel porteur d'un autre nom.
Ta question porte t elle que tu veux l'insérer dans le catalogue du poste de travail ?
:|
LibreOffice version 5.4.7.2.M6 (x64)
Windows 10
+
LibreOffice version 5.4.7.2.M6 (x64)
Windows 7

#HSQL Database Engine 1.8.0
version=1.8.0

Locale : fr-FR (fr_FR)

Obligation de version


Bonjour, merci et à bientôt !
Avatar de l’utilisateur
papyx
Membre hOOnoraire
Membre hOOnoraire
Messages : 110
Inscription : 15 oct. 2015 07:43
Localisation : Hénin-Beaumont 62110

Re: [Base]Comment substituer un nom de catalogue

Message par papyx »

je voudrais choisir une boîte de dialogue parmi d'autres et à partir d'une variable
OpenOffice 4.1.1
Windows 7 Chrome
Avatar de l’utilisateur
Jacky Z
NOOuvel adepte
NOOuvel adepte
Messages : 20
Inscription : 14 janv. 2015 17:04

Re: [Base]Comment substituer un nom de catalogue

Message par Jacky Z »

Bien le bonjour,

Tu ne réponds pas aux questions de martinbrait.
Parmi d'autres où ?

Pourrais-tu fournir un ODB que l'on comprenne ce que tu veux ?
OpenOffice4.1.1 sous MacOS 10.10.1
joel275
InconditiOOnnel
InconditiOOnnel
Messages : 839
Inscription : 10 janv. 2009 08:05

Re: [Base]Comment substituer un nom de catalogue

Message par joel275 »

Bonjour,

quand j'ai débuté avec le Basic d'OpenOffice (Ralala le temps passe), j'ai récupéré sur internet quelques "boîtes noires" (Function) dont je différais la compréhension pour me concentrer sur des petites "briques" de ce que je voulais réaliser.
En voici une (j'ai perdu le nom de celui qui me l'a fourni, qu'il veuille bien me pardonner):

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
que tu appelles avec:

Code : Tout sélectionner

MaBoîte = LoadDialog("Standard", "machin")
machin est le nom du dialogue que tu lis sur l'onglet en bas de la page du basic (avec le module LibName) affiché (le troisième paramètre est inutile ici)
et MaBoîte est une variable contenat le dialogue que tu veux manipuler.

A plus.
A jour de LibreOffice et de Ubuntu
Avatar de l’utilisateur
papyx
Membre hOOnoraire
Membre hOOnoraire
Messages : 110
Inscription : 15 oct. 2015 07:43
Localisation : Hénin-Beaumont 62110

Re: [Base]Comment substituer un nom de catalogue

Message par papyx »

Excellent :D
c'est tout à fait cela
merci bien.
OpenOffice 4.1.1
Windows 7 Chrome
joel275
InconditiOOnnel
InconditiOOnnel
Messages : 839
Inscription : 10 janv. 2009 08:05

Re: [Résolu][Base]Comment substituer un nom de catalogue

Message par joel275 »

Re,

la coche verte, qui visualise nettement la résolution d'un problème, se met sur le premier message de ton post.

A plus.
A jour de LibreOffice et de Ubuntu
Avatar de l’utilisateur
papyx
Membre hOOnoraire
Membre hOOnoraire
Messages : 110
Inscription : 15 oct. 2015 07:43
Localisation : Hénin-Beaumont 62110

Re: [Résolu][Base]Comment substituer un nom de catalogue

Message par papyx »

d'accord, je ferai attention la prochaine fois.
OpenOffice 4.1.1
Windows 7 Chrome
Avatar de l’utilisateur
martinbrait
InconditiOOnnel
InconditiOOnnel
Messages : 753
Inscription : 09 avr. 2013 07:15
Localisation : T'as pas dit bonjour, merci et à bientot !

Re: [Résolu][Base]Comment substituer un nom de catalogue

Message par martinbrait »

J'avais mal saisi le niveau de la demande. :?

Excellente ressource Joël275, et sûrement de sacrées bibliotheques perso,
optimisées qui utilisent avec ce principe !

Ces bibliotheques peuvent elles nous être partagées, afin de contribuer,
pourquoi pas, à les mettre à disposition dans de belles classes ?
(Vous trouverez des briques de fonctions dans le framework simplooo. (sourceforge))
LibreOffice version 5.4.7.2.M6 (x64)
Windows 10
+
LibreOffice version 5.4.7.2.M6 (x64)
Windows 7

#HSQL Database Engine 1.8.0
version=1.8.0

Locale : fr-FR (fr_FR)

Obligation de version


Bonjour, merci et à bientôt !