Differenze tra le versioni di "Apertura e chiusura di un processo mediante Process"

Da Gambas-it.org - Wikipedia.
Riga 40: Riga 40:
 
   
 
   
 
   
 
   
  '''Public''' Sub Application_Read()  <Font Color=gray>' ''Basta premere il tasto "Invia" per sollevare questo evento.''</font>
+
  '''Public''' Sub Application_Read()  <Font Color=gray>' ''Basta premere il tasto "Invio" per sollevare questo evento.''</font>
 
    
 
    
 
  <Font Color=gray>' ''Elimina il processo dell'applicazione:''</font>
 
  <Font Color=gray>' ''Elimina il processo dell'applicazione:''</font>

Versione delle 13:01, 24 apr 2020

Esempio con programma in ambiente grafico:

Private hpro As Process


Public Sub Button1_Click()

' Parte l'applicazione, per esempio “ Gedit “:
  hpro = Exec ["gedit"] As "processo"

' oppure si può usare "Shell":
  hpro = Shell "gedit" As "processo"

End


Public Sub button2_Click()

' Elimina il processo dell'applicazione:
  hpro.kill

End
 

Public Sub processo_Kill() ' Questo evento viene sollevato alla chiusura del programma gestito da "Process"

   Print "Il processo è stato terminato !"

End


Esempio con programma a riga di comando:

Private pr As Process


Public Sub Main()
 
 pr = Shell "cvlc /tmp/automatisches_licht_AN.mp3" As "Processo"
  
End


Public Sub Application_Read()   ' Basta premere il tasto "Invio" per sollevare questo evento.
 
' Elimina il processo dell'applicazione:
 pr.Kill
 
' Chiude l'applicazione:
 Quit
  
End