[Base][Macro] Aprire allegati con "Seleziona file"

Regole del forum
Non inserire domande qui, utilizzare le altre sezioni con un link all'argomento di interesse
Bloccato
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8785
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

[Base][Macro] Aprire allegati con "Seleziona file"

Messaggio da charlie »

Si può utilizzare il controllo Seleziona file per cercare e selezionare un allegato presente nel computer.
Successivamente si può aprire l'allegato stesso sfruttando il programma di default impostato dal sistema operativo per quel tipo di file.
All'evento Approva l'azione del pulsante va assegnata la macro:

Codice: Seleziona tutto

function openurlimm(oEv as object)
' 
   dim oForm,oTextBox, sText
   oForm=oEv.source.model.parent
   oTextBox= oForm.getbyname("Scelta_file")
   'sText= "" + oTextBox.text ' VERSIONE WINDOWS
   sText= "file://" + oTextBox.text ' VERSIONE MAC
   if FileExists ( oTextBox.text) then
      oEv.source.model.targeturl=sText
      openurlimm=true ' Do the programm when the file exists
      else 
      openurlimm=false ' The file does not exist and do nothing
   end if
  ' print  convertfromurl(oTextBox.text)
End function
La macro va adattata a seconda del sistema operativo per il riconoscimento del Percorso dell'allegato da aprire.
Allegati
Apri allegato.odb
(12.64 KiB) Scaricato 90 volte
charlie
macOS 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org