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
