Bonjour,
SEGUIN François a écrit :
Bonjour,
J'ai créée un boite de dialogue "enregistrer sous" avec un objet "FilePicker" 'jutilise la variable
"FILESAVE_AUTOEXTENSION" pour afficher la boite avec une case à cocher "Extension automatique de nom de
fichier". Lors de l'affichage de la boite la case à cocher apparait non cocher, et j'aimerai qu'elle apparaisse
cocher par défaut.
Quelqu'un a t'il une solution.
François
Ce serait quand même sympa de poster parfois un extrait de code ;)
Quant à ton problème, je pense que quelque chose comme ceci devrait y
répondre :
sub SaveWithAutoExtension()
dim oDoc, oFilePicker
dim sDir as string
'http://api.openoffice.org/docs/common/ref/com/sun/star/ui/dialogs/TemplateDescription.html
dim sFPservice
oDoc = ThisComponent
sFPservice = Array(
com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION )
oFilePicker = CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
'Configuration du FilePicker
with oFilePicker
sDir = oFilePicker.getDisplayDirectory
.Initialize( sFPservice() )
.SetDisplayDirectory( sDir )
REM ### active la case à cocher ###
.SetValue(
com.sun.star.ui.dialogs.ExtendedFilePickerElementIds.CHECKBOX_AUTOEXTENSION,
0, True)
end with
if oFilePicker.execute() then
'traitement
end if
end sub
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
