[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
Bloccato
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8786
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

[Base][Macro] Apertura PDF e abilitazione pulsante

Messaggio da charlie »

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 237 volte
Macro che apre il PDF (associata all'evento 'Approva l'azione' del pulsante:

Codice: Seleziona tutto

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

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 14.3 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org