Gambas-it.org - Wikipedia - Contributi dell'utente [it]

TextLabel

2009-09-15T16:35:11Z

Asparino:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_textlabel.png
'''Visualizza del testo alfanumerico'''
----
L'oggetto '''TextLabel''' è molto simile a '''TextBox''', tranne per il fatto che non è assolutamente interattivamente editabile (modificabile solo da programma) e, di norma, non presenta bordi, in modo da poter posizionare l'oggetto in una zona utile ad evidenziare particolari aspetti di un'interfaccia.
Data, però, la sua inerenza dall'oggetto base '''Control''', conserva e gestisce tutte le caratteristiche di proprietà, metodi e soprattutto eventi che questo comporta. E' quandi possibile modificarne le proprietà grafiche a livello di programma, e in base ad eventi particolari, o interattivamente tramite mouse e tastiera.
Per la creazione di un'oggetto TextLabel è necessario il riferimento all'oggetto Parent, ovvero l'oggetto contenitore (es. una Form):

La TextLabel può visualizzare testo HTML formattato.
----
Esempio:

DIM TextLabel1 as NEW TextLabel(hForm)
...
TextLabel1.Text = "Testo visualizzato nella TextLabel"

----

Button

2009-09-15T16:30:02Z

Asparino:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_button.png
----

''Oggetto che esegue una determinata azione alla sua pressione''
----
'''Proprietà'''

''Background'' = Imposta il colore di sfondo dell'oggetto

''Border'' = Imposta il tipo di bordo dell'oggetto

''Cancel'' = Rende l'oggetto un tasto di cancellazione

''Default'' = Rende l'oggetto un tasto predefinito alla pressione di ENTER

''Enabled'' = Se impostato su TRUE rende l'oggetto attivo se impostato su FALSE lo rende inutilizzabile da parte dell'utente

''Font'' = Imposta il tipo e la grandezza del font che appaiono sull'oggetto

''Foreground'' = Imposta il colore del font che appare sull'oggetto

''Height''= Imposta l'altezza dell'oggetto

''Mouse''= Indica la forma che assumerà il cursore del mouse all'atto del passaggio sull'oggetto

''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto

''Text'' = Restituisce o imposta il testo visualizzato sull'oggetto

''ToolTip'' = Restituisce o imposta un piccolo riquadro testuale che compare sull'oggetto quando il mouse punta su di esso per qualche secondo

''Visible'' = Rende l'oggetto Visibile/Invisibile all'utente

''Width'' = Imposta la lunghezza dell'oggetto
----
----

'''Esempi di routine che utilizzano il Button (copiare e incollare il testo nel codice del proprio programma)'''
----

Programma che cambia il testo di un Label al semplice click di un Button

PUBLIC SUB Button1_click() 'Inizio della routine generata dal click del Button1

Label1.Text = "Esempio programma in Gambas" 'Al click il testo del Label1 cambia

END 'Fine della routine

''Ricordarsi di caricare sul Form un Button e un Label''
----

Passiamo ora a qualcosa di più ma pur sempre facile. Scriviamo un programma che ad ogni click del mouse allunghi un Separator.

PUBLIC SUB Button1_Click() 'Inizio della routine generata dal click del Button1
Separator1.Width = Separator1.Width + 10 'Incrementa la lunghezza del separator di 10 ed imposta il
'risultato come nuova lunghezza del separator
END 'Fine della routine

Ora però il programma ha un difetto. Ad ogni click del mouse il separator aumenta di lunghezza ma così facendo esso potrebbe diventare più lungo del form stesso che lo contiene. Dobbiamo perciò aggiungere nella routine il seguente blocco di codice

IF Separator1.Width > FMain.Width THEN 'Se la lunghezza del separator supera quella del form allora
Separator1.Width = 20 'la lunghezza del separator torna a 20
END IF 'Fine blocco IF

Il codice completo sarà per tanto:

PUBLIC SUB Button1_Click()
Separator1.Width = Separator1.Width + 10
IF Separator1.Width > FMain.Width THEN
Separator1.Width = 20
END IF
END

Button

2009-09-15T16:27:55Z

Asparino:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_button.png
----

''Oggetto che esegue una determinata azione alla sua pressione''
----
'''Proprietà'''

''Background'' = Imposta il colore di sfondo dell'oggetto

''Border'' = Imposta il tipo di bordo dell'oggetto

''Cancel'' = Rende l'oggetto un tasto di cancellazione

''Default'' = Rende l'oggetto un tasto predefinito alla pressione di ENTER

''Enabled'' = Se impostato su TRUE rende l'oggetto attivo se impostato su FALSE lo rende inutilizzabile da parte dell'utente

''Font'' = Imposta il tipo e la grandezza del font che appaiono sull'oggetto

''Foreground'' = Imposta il colore del font che appare sull'oggetto

''Height''= Imposta l'altezza dell'oggetto

''Mouse''= Indica la forma che assumerà il cursore del mouse all'atto del passaggio sull'oggetto

''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto

''Text'' = Restituisce il testo visualizzato sull'oggetto

''ToolTip'' = Restituisce o imposta un piccolo riquadro testuale che compare sull'oggetto quando il mouse punta su di esso per qualche secondo

''Visible'' = Rende l'oggetto Visibile/Invisibile all'utente

''Width'' = Imposta la lunghezza dell'oggetto
----
----

'''Esempi di routine che utilizzano il Button (copiare e incollare il testo nel codice del proprio programma)'''
----

Programma che cambia il testo di un Label al semplice click di un Button

PUBLIC SUB Button1_click() 'Inizio della routine generata dal click del Button1

Label1.Text = "Esempio programma in Gambas" 'Al click il testo del Label1 cambia

END 'Fine della routine

''Ricordarsi di caricare sul Form un Button e un Label''
----

Passiamo ora a qualcosa di più ma pur sempre facile. Scriviamo un programma che ad ogni click del mouse allunghi un Separator.

PUBLIC SUB Button1_Click() 'Inizio della routine generata dal click del Button1
Separator1.Width = Separator1.Width + 10 'Incrementa la lunghezza del separator di 10 ed imposta il
'risultato come nuova lunghezza del separator
END 'Fine della routine

Ora però il programma ha un difetto. Ad ogni click del mouse il separator aumenta di lunghezza ma così facendo esso potrebbe diventare più lungo del form stesso che lo contiene. Dobbiamo perciò aggiungere nella routine il seguente blocco di codice

IF Separator1.Width > FMain.Width THEN 'Se la lunghezza del separator supera quella del form allora
Separator1.Width = 20 'la lunghezza del separator torna a 20
END IF 'Fine blocco IF

Il codice completo sarà per tanto:

PUBLIC SUB Button1_Click()
Separator1.Width = Separator1.Width + 10
IF Separator1.Width > FMain.Width THEN
Separator1.Width = 20
END IF
END

Button

2009-09-15T16:25:33Z

Asparino:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_button.png
----

''Oggetto che esegue una determinata azione alla sua pressione''
----
'''Proprietà'''

''Background'' = Imposta il colore di sfondo dell'oggetto

''Border'' = Imposta il tipo di bordo dell'oggetto

''Cancel'' = Rende l'oggetto un tasto di cancellazione

''Default'' = Rende l'oggetto un tasto predefinito alla pressione di ENTER

''Enabled'' = Se impostato su TRUE rende l'oggetto attivo se impostato su FALSE lo rende inutilizzabile da parte dell'utente

''Font'' = Imposta il tipo e la grandezza del font che appaiono sull'oggetto

''Foreground'' = Imposta il colore del font che appare sull'oggetto

''Height''= Imposta l'altezza dell'oggetto

''Mouse''= Indica la forma che assumerà il cursore del mouse all'atto del passaggio sull'oggetto

''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto

''Text'' = Restituisce il testo visualizzato sull'oggetto

''Visible'' = Rende l'oggetto Visibile/Invisibile all'utente

''Width'' = Imposta la lunghezza dell'oggetto
----
----

'''Esempi di routine che utilizzano il Button (copiare e incollare il testo nel codice del proprio programma)'''
----

Programma che cambia il testo di un Label al semplice click di un Button

PUBLIC SUB Button1_click() 'Inizio della routine generata dal click del Button1

Label1.Text = "Esempio programma in Gambas" 'Al click il testo del Label1 cambia

END 'Fine della routine

''Ricordarsi di caricare sul Form un Button e un Label''
----

Passiamo ora a qualcosa di più ma pur sempre facile. Scriviamo un programma che ad ogni click del mouse allunghi un Separator.

PUBLIC SUB Button1_Click() 'Inizio della routine generata dal click del Button1
Separator1.Width = Separator1.Width + 10 'Incrementa la lunghezza del separator di 10 ed imposta il
'risultato come nuova lunghezza del separator
END 'Fine della routine

Ora però il programma ha un difetto. Ad ogni click del mouse il separator aumenta di lunghezza ma così facendo esso potrebbe diventare più lungo del form stesso che lo contiene. Dobbiamo perciò aggiungere nella routine il seguente blocco di codice

IF Separator1.Width > FMain.Width THEN 'Se la lunghezza del separator supera quella del form allora
Separator1.Width = 20 'la lunghezza del separator torna a 20
END IF 'Fine blocco IF

Il codice completo sarà per tanto:

PUBLIC SUB Button1_Click()
Separator1.Width = Separator1.Width + 10
IF Separator1.Width > FMain.Width THEN
Separator1.Width = 20
END IF
END

Button

2009-09-15T16:20:56Z

Asparino:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_button.png
----

''Oggetto che esegue una determinata azione alla sua pressione''
----
'''Proprietà'''

''Background'' = Imposta il colore di sfondo dell'oggetto

''Border'' = Imposta il tipo di bordo dell'oggetto

''Cancel'' = Rende l'oggetto un tasto di cancellazione

''Default'' = Rende l'oggetto un tasto predefinito alla pressione di ENTER

''Enabled'' = Se impostato su TRUE rende l'oggetto attivo se impostato su FALSE lo rende inutilizzabile da parte dell'utente

''Font'' = Imposta il tipo e la grandezza del font che appaiono sull'oggetto

''Foreground'' = Imposta il colore del font che appare sull'oggetto

''Height''= Imposta l'altezza dell'oggetto

''Mouse''= Indica la forma che assumerà il cursore del mouse all'atto del passaggio sull'oggetto

''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto

''Text'' = Restituisce il testo visualizzato sull'oggetto

''Width'' = Imposta la lunghezza dell'oggetto
----
----

'''Esempi di routine che utilizzano il Button (copiare e incollare il testo nel codice del proprio programma)'''
----

Programma che cambia il testo di un Label al semplice click di un Button

PUBLIC SUB Button1_click() 'Inizio della routine generata dal click del Button1

Label1.Text = "Esempio programma in Gambas" 'Al click il testo del Label1 cambia

END 'Fine della routine

''Ricordarsi di caricare sul Form un Button e un Label''
----

Passiamo ora a qualcosa di più ma pur sempre facile. Scriviamo un programma che ad ogni click del mouse allunghi un Separator.

PUBLIC SUB Button1_Click() 'Inizio della routine generata dal click del Button1
Separator1.Width = Separator1.Width + 10 'Incrementa la lunghezza del separator di 10 ed imposta il
'risultato come nuova lunghezza del separator
END 'Fine della routine

Ora però il programma ha un difetto. Ad ogni click del mouse il separator aumenta di lunghezza ma così facendo esso potrebbe diventare più lungo del form stesso che lo contiene. Dobbiamo perciò aggiungere nella routine il seguente blocco di codice

IF Separator1.Width > FMain.Width THEN 'Se la lunghezza del separator supera quella del form allora
Separator1.Width = 20 'la lunghezza del separator torna a 20
END IF 'Fine blocco IF

Il codice completo sarà per tanto:

PUBLIC SUB Button1_Click()
Separator1.Width = Separator1.Width + 10
IF Separator1.Width > FMain.Width THEN
Separator1.Width = 20
END IF
END

Button

2009-09-15T16:19:24Z

Asparino:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_button.png
----

''Oggetto che esegue una determinata azione alla sua pressione''
----
'''Proprietà'''

''Border'' = Imposta il tipo di bordo

''Cancel'' = Rende l'oggetto un tasto di cancellazione

''Default'' = Rende l'oggetto un tasto predefinito alla pressione di ENTER

''Enabled'' = Se impostato su TRUE rende l'oggetto attivo se impostato su FALSE lo rende inutilizzabile da parte dell'utente

''Font'' = Imposta il tipo e la grandezza del font che appaiono sull'oggetto

''Foreground'' = Imposta il colore del font che appare sull'oggetto

''Height''= Imposta l'altezza dell'oggetto

''Mouse''= Indica la forma che assumerà il cursore del mouse all'atto del passaggio sull'oggetto

''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto

''Text'' = Restituisce il testo visualizzato sull'oggetto

''Width'' = Imposta la lunghezza dell'oggetto
----
----

'''Esempi di routine che utilizzano il Button (copiare e incollare il testo nel codice del proprio programma)'''
----

Programma che cambia il testo di un Label al semplice click di un Button

PUBLIC SUB Button1_click() 'Inizio della routine generata dal click del Button1

Label1.Text = "Esempio programma in Gambas" 'Al click il testo del Label1 cambia

END 'Fine della routine

''Ricordarsi di caricare sul Form un Button e un Label''
----

Passiamo ora a qualcosa di più ma pur sempre facile. Scriviamo un programma che ad ogni click del mouse allunghi un Separator.

PUBLIC SUB Button1_Click() 'Inizio della routine generata dal click del Button1
Separator1.Width = Separator1.Width + 10 'Incrementa la lunghezza del separator di 10 ed imposta il
'risultato come nuova lunghezza del separator
END 'Fine della routine

Ora però il programma ha un difetto. Ad ogni click del mouse il separator aumenta di lunghezza ma così facendo esso potrebbe diventare più lungo del form stesso che lo contiene. Dobbiamo perciò aggiungere nella routine il seguente blocco di codice

IF Separator1.Width > FMain.Width THEN 'Se la lunghezza del separator supera quella del form allora
Separator1.Width = 20 'la lunghezza del separator torna a 20
END IF 'Fine blocco IF

Il codice completo sarà per tanto:

PUBLIC SUB Button1_Click()
Separator1.Width = Separator1.Width + 10
IF Separator1.Width > FMain.Width THEN
Separator1.Width = 20
END IF
END

Button

2009-09-15T16:18:25Z

Asparino:

http://www.gambas-it.org/gmbs/modules/PDdownloads/images/wiki_button.png
----

''Oggetto che esegue una determinata azione alla sua pressione''
----
'''Proprietà'''

''Border'' = Imposta il tipo di bordo

''Cancel'' = Rende l'oggetto un tasto di cancellazione

''Default'' = Rende l'oggetto un tasto predefinito alla pressione di ENTER

''Enabled'' = Se impostato su TRUE rende l'oggetto attivo se impostato su FALSE lo rende inutilizzabile da parte dell'utente

''Font'' = Imposta il tipo e la grandezza del font che appaiono sull'oggetto

''Background'' = Imposta il colore del font che appare sull'oggetto

''Height''= Imposta l'altezza dell'oggetto

''Mouse''= Indica la forma che assumerà il cursore del mouse all'atto del passaggio sull'oggetto

''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto

''Text'' = Restituisce il testo visualizzato sull'oggetto

''Width'' = Imposta la lunghezza dell'oggetto
----
----

'''Esempi di routine che utilizzano il Button (copiare e incollare il testo nel codice del proprio programma)'''
----

Programma che cambia il testo di un Label al semplice click di un Button

PUBLIC SUB Button1_click() 'Inizio della routine generata dal click del Button1

Label1.Text = "Esempio programma in Gambas" 'Al click il testo del Label1 cambia

END 'Fine della routine

''Ricordarsi di caricare sul Form un Button e un Label''
----

Passiamo ora a qualcosa di più ma pur sempre facile. Scriviamo un programma che ad ogni click del mouse allunghi un Separator.

PUBLIC SUB Button1_Click() 'Inizio della routine generata dal click del Button1
Separator1.Width = Separator1.Width + 10 'Incrementa la lunghezza del separator di 10 ed imposta il
'risultato come nuova lunghezza del separator
END 'Fine della routine

Ora però il programma ha un difetto. Ad ogni click del mouse il separator aumenta di lunghezza ma così facendo esso potrebbe diventare più lungo del form stesso che lo contiene. Dobbiamo perciò aggiungere nella routine il seguente blocco di codice

IF Separator1.Width > FMain.Width THEN 'Se la lunghezza del separator supera quella del form allora
Separator1.Width = 20 'la lunghezza del separator torna a 20
END IF 'Fine blocco IF

Il codice completo sarà per tanto:

PUBLIC SUB Button1_Click()
Separator1.Width = Separator1.Width + 10
IF Separator1.Width > FMain.Width THEN
Separator1.Width = 20
END IF
END