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]
