Differenze tra le versioni di "Apertura e chiusura di un processo mediante Process"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| 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 ")''. | ||
| − | ' ''Il processo dell'applicazione viene gestito con una variabile di tipo "Processo" che viene altresì associata ad un gruppo di Eventi:''</font> | + | ' ''Il processo dell'applicazione "Gedit" 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=#B22222>pro</font> = Shell "gedit" As "<Font Color=green>Processo</font>" | ||
| 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 "Gedit":''</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 "cvlc":''</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 Gambas:''</font> |
| + | Quit | ||
| + | |||
| + | End | ||
Versione attuale delle 09:11, 30 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 "Gedit" 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 "Gedit": 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 "cvlc":
pro.Kill
End
Public Sub Processo_Kill()
Print "Il processo è stato terminato !"
' Chiude l'applicazione Gambas:
Quit
End
