Differenze tra le versioni di "Apertura e chiusura di un processo mediante Process"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
Esempio con programma in ambiente grafico: | Esempio con programma in ambiente grafico: | ||
− | Private | + | Private <FONT Color=#B22222>pro</font> As Process |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | <Font Color=gray>' ''Parte l'applicazione | + | <Font Color=gray>' ''Parte l'applicazione (per esempio "Gedit ")''. |
− | + | ' ''Il processo dell'applicazione viene gestito con una variabile di tipo "Processo" che viene altresì associata ad un gruppo di Eventi:''</font> | |
+ | <FONT Color=#B22222>pro</font> = Shell "gedit" As "<Font Color=green>Processo</font>" | ||
− | <Font Color=gray>' ''oppure si può usare " | + | <Font Color=gray>' ''oppure si può usare "Exec":'' |
− | + | ' '''pro = Exec ["gedit"] As "Processo"'''</font> | |
'''End''' | '''End''' | ||
− | |||
'''Public''' Sub button2_Click() | '''Public''' Sub button2_Click() | ||
<Font Color=gray>' ''Elimina il processo dell'applicazione:''</font> | <Font Color=gray>' ''Elimina il processo dell'applicazione:''</font> | ||
− | + | <FONT Color=#B22222>pro</font>.kill | |
'''End''' | '''End''' | ||
− | |||
− | '''Public''' Sub | + | '''Public''' Sub <Font Color=green>Processo</font>_Kill() ''<Font Color=gray>' ''Questo evento viene sollevato alla chiusura del programma gestito da "Process"''</font> |
Print "Il processo è stato terminato !" | Print "Il processo è stato terminato !" | ||
Riga 30: | Riga 29: | ||
Esempio con programma ''a riga di comando'': | Esempio con programma ''a riga di comando'': | ||
− | Private | + | Private pro As Process |
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
− | + | pro = Shell "cvlc <Font Color=gray>''/percorso/del/file/multimediale''</font>" As "Processo" | |
'''End''' | '''End''' | ||
Riga 43: | Riga 42: | ||
<Font Color=gray>' ''Elimina il processo dell'applicazione:''</font> | <Font Color=gray>' ''Elimina il processo dell'applicazione:''</font> | ||
− | + | pro.Kill | |
<Font Color=gray>' ''Chiude l'applicazione:''</font> | <Font Color=gray>' ''Chiude l'applicazione:''</font> | ||
Quit | Quit | ||
+ | '''End''' | ||
+ | |||
+ | '''Public''' Sub Processo_Kill() | ||
+ | |||
+ | Print "Il processo è stato terminato !" | ||
+ | |||
'''End''' | '''End''' |
Versione delle 07:51, 13 dic 2021
Esempio con programma in ambiente grafico:
Private pro As Process Public Sub Button1_Click() ' Parte l'applicazione (per esempio "Gedit "). ' Il processo dell'applicazione viene gestito con una variabile di tipo "Processo" che viene altresì associata ad un gruppo di Eventi: pro = Shell "gedit" As "Processo" ' oppure si può usare "Exec": ' pro = Exec ["gedit"] As "Processo" End Public Sub button2_Click() ' Elimina il processo dell'applicazione: pro.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 pro As Process Public Sub Main() pro = Shell "cvlc /percorso/del/file/multimediale" As "Processo" End Public Sub Application_Read() ' Basta premere il tasto "Invio" per sollevare questo evento. ' Elimina il processo dell'applicazione: pro.Kill ' Chiude l'applicazione: Quit End Public Sub Processo_Kill() Print "Il processo è stato terminato !" End