Differenze tra le versioni di "Button"
| (13 versioni intermedie di 2 utenti non mostrate) | |||
| Riga 5: | Riga 5: | ||
---- | ---- | ||
'''Proprietà''' | '''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 | ''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 | ''Enabled'' = Se impostato su TRUE rende l'oggetto attivo se impostato su FALSE lo rende inutilizzabile da parte dell'utente | ||
| Riga 20: | Riga 26: | ||
''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto | ''Picture'' = Indica un eventuale disegno che possa fare da sfondo all'oggetto | ||
| − | ''Text'' = Restituisce il testo visualizzato sull'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 | ''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 | ||
Versione attuale delle 09:30, 15 set 2009
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
