[users-fr] Ooobasic, bug avec les dialogs

Thu, 10 Mar 2005 12:51:54 -0800 

bonjour,

j'ai r�alis� un petit programme ooobasic, pour pouvoir modifier des lettres types.
sur une page j'ai un bouton qui lance un programme.
Ce programme ouvre une boite de dialogue nomm�e dialog1.
lorsque je fait tourner ce programme en cours de programmation (c-�-d lorsque l'�diteur macro est ouvert et/ou vient d'�tre ferm�) tout marche parfaitement.
lorsque je lance le programme la premi�re fois,� l'ouverture de la page , par une pression sur le bouton, j'ai un message d'erreur :

Action non suport�e.
Appel de proc�dure incorrecte.

cela m'ouvre l'�diteur et me montre la ligne fautive :

Dlg = CreateUnoDialog(monDialogue)

j'avoue que je ne comprendpas bien .

Si je relance imm�diatement le pragramme, sans fermer la page, le programme marche sans probl�me.

Avez vous une id�e ?

G�rard


Systeme : MandrakeLinux 10.1
OpenOffice 1.1.3

voici le programme fautif :

nom de la macro : main()
biblioth�que : Standart
module : mon_test
dialogue : Dialog
      conporte un bouton de validation et un champ de nom t1


'****************************************

'd�claration des variables communes

Dim monDocument As Object
Dim     nomDuDocument As String
Dim Dlg As Object

Dim monTexte As String
Dim OKTexte As Boolean





sub main()
'variable de main

'initialisation des variables
        monTexte = ""
        OKTexte = True
'routines
        lanceDialog()
        if OKTexte then 
'               ouvertureLettre()
'               insertAuSignet()        
'               sauveLettre()
        else
                msgBox("Echec du dialog")
        end if
end sub

sub lanceDialog()
'variables pour le dialog
        Dim libDialog As Object
        Dim monDialogue As Object
        Dim exitOK As String

'routine
        exitOk = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
        libDialog = DialogLibraries.GetByName("Standard")
        monDialogue = libDialog.GetByName("Dialog1")
        Dlg = CreateUnoDialog(monDialogue)
        if Dlg.Execute = exitOK then
        
        end if
        Dlg.Dispose
end sub





'****************************************



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à