Hallo zusammen.
Ich versuch gerade ein Makro zu schreiben wie es normal als "speichern unter..." bekannt ist. Dabei öffne ich den Dialog mit "FILESAVE_AUTOEXTENSION"
Leider ist blos die Checkbox für die automatische Dateinamenserweiterung nicht aktiviert. Jetzt hab ich noch herausgefunden das die über FilePickerControlAccess, und enableControl eingeschaltet werden könnte. Die Checkbox hat wohl die konstante 100.
Tcha, soweit so gut. Aber bei der Umsetzung..... hängt´s noch.
Wer kann helfen?
Gruß
Arne
checkbox "autoextenstion" im filepicker
Moderator: Moderatoren
Hi,
wenn ich Dich richtige verstehe willst Du das die Checkbox angekreuzt ist. Dann ist enableControl verkehrt. Damit wird die Checkbox auf aktiv oder inaktiv gesetzt. Das heißt dann ob sie verwendet werden kann oder nicht. Um die Checkbox zu markieren, muß man setvalue verwenden. Falls ich falsch liege ist in dem Beispiel auch der Code für enableControl:
mfg
Michael
wenn ich Dich richtige verstehe willst Du das die Checkbox angekreuzt ist. Dann ist enableControl verkehrt. Damit wird die Checkbox auf aktiv oder inaktiv gesetzt. Das heißt dann ob sie verwendet werden kann oder nicht. Um die Checkbox zu markieren, muß man setvalue verwenden. Falls ich falsch liege ist in dem Beispiel auch der Code für enableControl:
Code: Alles auswählen
Dim Dialogtyp(0)
DialogTyp(0) = com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION
MyDialog=createunoservice("com.sun.star.ui.dialogs.FilePicker")
myDialog.initialize( DialogTyp())
myDialog.enableControl(100,true)
myDialog.setvalue(100,0,true)
MyDialog.execute
Michael
__
FAQ zu Starbasic -> http://www.starbasicfaq.de
FAQ zu Starbasic -> http://www.starbasicfaq.de