Pannello di Controllo Moderatore ]

[Base][Macro] Apertura PDF e abilitazione pulsante

Regole del forum
Non inserire domande qui, utilizzare le altre sezioni con un link all'argomento di interesse

[Base][Macro] Apertura PDF e abilitazione pulsante

Messaggioda charlie » martedì 28 aprile 2020, 17:39

Un pulsante apre il PDF il cui percorso è indicato in una casella di testo.
Se la casella di testo è vuota il pulsante viene disabilitato.
Apri PDF.odb
(13.38 KiB) Scaricato 25 volte


Macro che apre il PDF (associata all'evento 'Approva l'azione' del pulsante:
Codice: Seleziona tutto   Espandi visualeStringi visuale
function openurlimm(oEv as object)'  apre l'allegato il cui link è in "txtLik"
   dim oForm,oTextBox
   oForm=oEv.source.model.parent
   oTextBox=oForm.getbyname("txtLink")
   if FileExists ( oTextBox.text) then
      oEv.source.model.targeturl=oTextBox.text
      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


Macro che abilita/disabilta il pulsante (associata all'evento 'Dopo la modifica del record' del MainForm):
Codice: Seleziona tutto   Espandi visualeStringi visuale
Sub abilitaPulsante ' abilita/disabilita "Pulsante 1" se presente/assente il link in "txtLik"
   Dim oDoc As Object
   Dim oDrawpage As Object
   Dim oForm As Object
   Dim sTextBox1 As String
   
   oDoc = thisComponent
   oDrawpage = oDoc.drawpage
   
   oForm=oDrawpage.Forms.getByIndex(0)
   oForm.GetByName("Pulsante 1").Enabled = TRUE
   
   sTextBox1=oForm.GetByName("txtLink").Text
   
   IF sTextBox1= "" THEN oForm.GetByName("Pulsante 1").Enabled = FALSE
End sub
charlie
macOS 10.12 Sierra: Open Office 4.1.7 - LibreOffice 6.2.8.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 6906
Iscritto il: mercoledì 19 dicembre 2012, 11:50

Torna a Esempi ed Appunti

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti