Differenze tra le versioni di "Apertura e chiusura di un processo mediante Process"
Da Gambas-it.org - Wikipedia.
Riga 3: | Riga 3: | ||
− | + | Public Sub Button1_Click() | |
<Font Color=gray>' ''Parte l'applicazione (per esempio "Gedit ")''. | <Font Color=gray>' ''Parte l'applicazione (per esempio "Gedit ")''. | ||
Riga 12: | Riga 12: | ||
' '''pro = Exec ["gedit"] As "Processo"'''</font> | ' '''pro = Exec ["gedit"] As "Processo"'''</font> | ||
− | + | End | |
− | + | ||
+ | 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 | |
− | |||
− | + | 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 !" | |
+ | |||
+ | End | ||
Riga 32: | Riga 34: | ||
− | + | Public Sub Main() | |
pro = Shell "cvlc <Font Color=gray>''/percorso/del/file/multimediale''</font>" As "Processo" | pro = Shell "cvlc <Font Color=gray>''/percorso/del/file/multimediale''</font>" As "Processo" | ||
− | + | End | |
− | + | 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> | ||
pro.Kill | pro.Kill | ||
− | |||
− | |||
− | |||
− | + | End | |
− | + | ||
+ | Public Sub Processo_Kill() | ||
Print "Il processo è stato terminato !" | Print "Il processo è stato terminato !" | ||
− | ''' | + | <Font Color=gray>' ''Chiude l'applicazione:''</font> |
+ | Quit | ||
+ | |||
+ | End |
Versione delle 16:27, 11 lug 2023
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 End Public Sub Processo_Kill() Print "Il processo è stato terminato !" ' Chiude l'applicazione: Quit End