Uso della classe Application
La Classe statica Application dispone di Proprietà ed Eventi.
Indice
Proprietà
La Classe Application offre informazioni generali sull'applicazione .gambas mediante le seguenti sue proprietà:
ActiveControl
La proprietà ActiveControl ritorna il controllo che posiede in quel momento il focus. Di quell'oggetto è possibile conoscere o anche impostare contemporaneamente ogni relativa proprietà associata all'oggetto medesimo.
Esempio:
Public Sub Form_Open()
Button1.Setfocus
End
Public Sub Button1_Click()
With Application.ActiveControl
Print .Name
Print .Id
.Background = Color.Red
End With
End
ActiveWindow
La proprietà ActiveWindow ritorna la finestra attiva corrente, vale a dire la finestra che possiede il controllo con lo stato attivo. Di quella finestra attiva è possibile conoscere o anche impostare contemporaneamente ogni relativa proprietà associata alla finestra medesima.
Esempio:
Public Sub Button1_Click()
Dim w As Window
w = Application.ActiveWindow
With w
Print .Id, Hex(.Id)
Print .Name
Print .Title
.Background = Color.Yellow
.Move(400, 500, 100, 200)
End With
End
Args
La proprietà Args ritorna un array che contiene i valori passati all'applicazione da un altro programma mediante il comando Shell.
Quando il codice di un programma principale lancia un'applicazione.gambas passandole dei dati, la proprietà Args consente a tale applicazione, lanciata, di intercettare tali dati.
Il primo elemento dell'array, numero di indice zero [0], è sempre il nome del programma.gambas. Il numero degli elementi è minimo 1 sino al numero degli argomenti passati dal comando Shell .
La sintassi è:
array = Application.Args
Esempio:
Public Sub Form_Open()
Dim a, b As Byte
With Application
a = Val(.Args[1])
b = Val(.Args[2])
End With
TextBox1.Text = CStr(a * b)
End
Se il programma.gambas non riceve parametri dal comando del terminale che l'ha lanciata, il numero degli argomenti passati dalla linea di comando è pari ad 1, con numero di indice zero [0], che - come già detto - rappresenta sempre il nome del programma.gambas lanciato da Shell .
Questo metodo risulta essere molto utile in particolare, qualora il programma .gambas sia stato realizzato con impostazione a linea di comando, quindi senza supporto grafico, ed al quale sia previsto il passaggio di uno o più parametri stringa.
Poniamo ad esempio che il programma .gambas a linea di comando venga lanciato da Terminale. Nel caso in cui il codice Gambas prevede che venga passato un solo parametro stringa:
Public Sub Main() Print Application.Args[1] End
se la stringa è formata da un'unica parola, allora sarà sufficiente lanciare il programma .gambas da Terminale nel modo seguente:
~ $ /percorso/del/programma.gambas parametro
nel caso in cui, invece, la stringa da passare è formata da più parole separate fra loro da uno spazio, allora l'intero parametro stringa dovrà essere posto fra virgolette:
~ $ /percorso/del/programma.gambas "parametro stringa"
altrimenti verrà passata solo la prima parola.
Qualora il codice del programma .gambas prevede il passaggio di due o più parametri stringa, valgono le regole viste sopra: se il parametro è formato da una stringa priva di spazi, non è necessario che esso sia posto fra virgolette; se invece il parametro è formato da due o più caratteri separati dallo spazio, allora il parametro va passato all'interno delle virgolette.
Vediamo un esempio nel quale il codice Gambas prevede il passaggio di due parametri:
Public Sub Main() With application Print .Args[1], .Args[2] End With End
e da Terminale si passino due parametri: uno composto da un'unica parola, ed un altro composto da due parole separate dallo spazio:
~ $ /percorso/del/programma.gambas unicaparola "due parole"
Busy
Daemon
Impostare questa proprietà su True per rendere il programma un demone.
Quando il programma diventa un demone:
- invoca la chiamata di sistema fork, e termina il genitore appena creato, in modo che il genitore reale del programma non attende la sua chiusura;
- La directory di lavoro corrente è impostata su "/" ;
- Lo standard input, standard output e standard error sono chiusi;
- Non è più possibile impostare questa proprietà su False.
Dir
La proprietà Dir restituisce la directory di lavoro di Gambas, cioè la directory da cui è stato lanciato il programma Gambas.
Se per esempio l'applicazione programma.gambas è posta in una cartella, che chiameremo mieiprogrammi, della Home:
Print Application.Dir
si avrà in console:
/home/mieiprogrammi
Embedder
Env
Restituisce una collezione virtuale di stringhe contenente le variabili d'ambiente del processo.
Esempio:
Public Sub Button1_Click() Print Application.Env["PATH"] End
Font
La proprietà Font restituisce o modifica il tipo di carattere predefinito globale dell'applicazione.
Handle
La proprietà Handle ritorna un integer che rappresenta il PID del processo del programma.
Id
La proprietà Id è un sinonimo della proprietà Handle.
MainWindow
Ritorna od imposta la finestra principale dell'applicazione.
La sintassi è:
Application.MainWindow As Window
Nella fase iniziale tale proprietà ritorna Null. E' possibile assegnare qualche Window successivamente durante l'esecuzione dell'applicazione.
Esempio:
Public Sub Form_Open()
End
Public Sub Button1_Click()
Dim w As Window
With w = New Window
.W = 400
.H = 300
.Title = "Nuova finestra"
.Background = Color.Yellow
.Move(400, 500, 100, 200)
.Show()
End With
' Rendiamo l'oggetto "Window" appena creato la nuova finestra principale dell'applicazione:
Application.MainWindow = w
' Verifichiamo in console, ora, quale è la finestra principale dell'applicazione:
Print "Application.MainWindow.Title = "; Application.MainWindow.Title
End
Public Sub Form_Close()
' Questo Evento sarà sollevato da quella che è attualmente la finestra "principale" dell'applicazione:
If Message.Question("Chiudo?", "Si", "No") = 2 Then Stop Event
End
Name
La proprietà Name ritorna il nome dell'applicazione come definita come definita nella finestra di dialogo delle proprietà dell'IDE di Gambas.
Path
La proprietà Path restiruisce il percorso ove è locata l'applicazione, compreso il nome dell'applicazione stessa.
Se per esempio l'applicazione programma.gambas è posta in una cartella, che chiameremo mieiprogrammi, della Home:
Print Application.Path
si avrà in console:
/home/mieiprogrammi/programma.gambas
PreviousControl
Priority
ShowTooltips
La proprietà ShowTooltips ritorna o imposta un valore booleano che rappresenta se i tooltip sono visibili o meno.
La sintassi è:
Application.ShowTooltips As Boolean
Startup
Theme
Title
La proprietà Title restituisce il titolo dell'applicazione in esecuzione.
Version
La proprietà Version ritorna una stringa che rapresenta il numero della versione dell'applicazione, come definita nella finestra di dialogo delle proprietà dell'IDE di Gambas.
Eventi
La Classe Application può sollevare i seguenti eventi:
Error()
L'evento Application.Error() viene solevato ogni qual volta viene generato un errore che non è normalmente gestito da Catch, Try o Finally.
Read()
L'evento Application.Read() viene sollevato ogni volta che c'è qualcosa da leggere sullo standard input. Esso consente di intercettare e leggere dati inviati allo standard input.
Esempio
Public Sub Main()
Print "\n'i' + [Invio] per ottenere informazioni"
End
Public Sub Application_Read()
Dim s As String
Dim ss As String[]
Line Input #File.In, s
If s = "i" Then
Print "Come si usa:\n- 'i'+[Invio] per queste informazioni;"
Print "- intero*intero per moltiplicare i due interi;"
Print "- intero+intero per l'addizione;"
Print "- intero/intero per la divisione;"
Print "- intero-intero per sottrazione;"
Print "- 'quit' per chiudere."
Else
If InStr(s, "*") Then
ss = Split(s, "*")
Print CLong(Val(ss[0]) * Val(ss[1]))
Endif
If InStr(s, "+") Then
ss = Split(s, "+")
Print CLong(Val(ss[0]) + Val(ss[1]))
Endif
If InStr(s, "/") Then
ss = Split(s, "/")
Print CLong(Val(ss[0]) \ Val(ss[1]))
Endif
If InStr(s, "-") Then
ss = Split(s, "-")
Print CLong(Val(ss[0]) - Val(ss[1]))
Endif
If s = "quit" Then
Print "\e[1;31mChiusura fra \e[1;33m2\e[1;31m secondi !"
Sleep 2
Quit
Endif
Endif
End
