[Résolu][Calc] Boite de dialogue non modal

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 !

[Résolu][Calc] Boite de dialogue non modal

Messagepar STTH » 05 Mars 2015 20:32

Bonjour,

Ma question est la suivante, j'aimerai appeler une boite de dialogue qui restera active et aussi sont contenu mais qui permettra de travailler sur les feuilles.

Dans le fichier joint une fois que j'ai appelé la boite de dialogue avec le bouton, je souhaite pouvoir continuer à travailler sur la feuille "Travail" et me permettre d'utiliser le bouton beep a tout moment.

Après avoir cherché j'ai compris que cela pouvait ce faire avec la fonction getControl(SbxSTRING) à la place Execute mais je n'ai pas trouvé la syntaxe de cette fonction.

Merci pour votre aide.
Pièces jointes
Travail.ods
Essai boite dialogue
(12.42 Kio) Téléchargé 63 fois
Dernière édition par STTH le 06 Mars 2015 22:35, édité 2 fois.
Open Office 4.1.1 Syst??me XP
STTH
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 15
Inscrit le : 25 Fév 2015 19:53

Re: [Calc] Boite de dialogue

Messagepar luky-luke » 05 Mars 2015 21:03

Bonjour

micmac a écrit:Le titre de votre question n'est pas assez explicite :
Une petite suggestion : Boite de dialogue non modal et une petite recherche sur les mots Boite non modal.
Boites de Dialogue: revenir sur le Writer
+Boîte +non +modal
 Ajout : Un petit oubli !
Boîte de dialogue dans barre d'outils
depuis l'invention de la barre latéral, y'a d'la place en haut :lol: 

Cordialement
Luke
AOO 4.1.3 et LibO 5.3.7.2 Ubuntu 16.04 LTS et Debian 9
Xray ne tient pas lieu de tout, mais une pratique sans Xray ne vaut pas grand chose
Avatar de l’utilisateur
luky-luke
InconditiOOnnel
InconditiOOnnel
 
Message(s) : 936
Inscrit le : 27 Nov 2010 01:17
Localisation : gâtine deux-sèvrienne

Re: [Calc] Boite de dialogue

Messagepar Piaf » 06 Mars 2015 00:39

Bonsoir
Change le titre de ton fil en suivant la suggestion de luky-luke
Un petit exemple simpliste en utilisant du code pompé un peu partout (merci aux auteurs)
Mais dans un des liens donnés précédemment,
Dude a écrit:C'est bien sûr plus complexe à mettre en œuvre.
A+
Pièces jointes
Travail(1).ods
(12.45 Kio) Téléchargé 151 fois
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
Piaf
GourOOu
GourOOu
 
Message(s) : 5622
Inscrit le : 25 Nov 2011 19:07
Localisation : Guyane

Re: [Calc] Boite de dialogue non modal

Messagepar STTH » 06 Mars 2015 22:34

Bonsoir,

Effectivement Luke, ton conseil était judicieux, j'ai retrouvé un code de 2007 écrit par PYS qui était une bonne source d'inspiration.
En fait, il n'est pas nécessaire de passer par un boite de dialogue non modal, un boite de dialogue modal le permet et c'est bien plus simple a développer.

Merci Piaf pour ce code, mais la définition de la boite de dialogue est beaucoup moins facile.

Ci dessous le code que j'ai épuré pour qu'il réponde uniquement à ce sujet :

Code : Tout sélectionner   AgrandirRéduire
Option Explicit 'Oblige la déclaration des variables

'Déclaration variable----------------------------------------------------------------------------------------------
Global Continuer as boolean
Global ListenerTop as object, Dialogue as object

Dim Boite as object
Dim oBoite As Object 'Dimensionnement de la variable Diag

Sub Appelboite ' Sub procédure puis nom de celle ci

DialogLibraries.LoadLibrary("Standard") ' Chargement de la bibliothèque Standard
oBoite = DialogLibraries.GetByName("Standard")'
Boite = oBoite.GetByName("Boite")

Dialogue = CreateUnoDialog(Boite) ' Création du dialogue

ListenerTop = createUnoListener("TopListen_", "com.sun.star.awt.XTopWindowListener")
Dialogue.addTopWindowlistener(ListenerTop)

Continuer = True

while Continuer
   wait 20
   Dialogue.setVisible(true)
wend

end sub

' Activation du bouton de fermeture en croix
sub TopListen_WindowClosing
   Continuer=false
end sub
sub  TopListen_windowOpened
end sub
sub  TopListen_windowClosed
end sub
sub TopListen_windowMinimized
end sub
sub  TopListen_windowNormalized
end sub
sub  TopListen_windowActivated
end sub
sub  TopListen_windowDeactivated
end sub
sub  TopListen_disposing
end sub


Merci à vous deux.
Open Office 4.1.1 Syst??me XP
STTH
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 15
Inscrit le : 25 Fév 2015 19:53


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 4 invité(s)