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

[STTH]

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.

[luky-luke]

Bonjour

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

Cordialement
Luke

[Piaf]

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,

C'est bien sûr plus complexe à mettre en œuvre.

A+

[STTH]

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

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.