Differenze tra le versioni di "Utilizzare il tasto Tab della tastiera per spostare il cursore del mouse fra le celle di una TableView"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Mostriamo un esempio <SUP>[ [[#Note|Nota 1]] ]</sup>, | + | Mostriamo un esempio <SUP>[ [[#Note|Nota 1]] ]</sup>, che consente di muoversi fra le celle di una ''TableView'' anche utilizzando il tasto ''Tab'' oltre al tasto invio e ai tasti freccia. |
E' necessario attivare i Componenti ''gb.desktop'' e ''gb.desktop.x11'' . | E' necessario attivare i Componenti ''gb.desktop'' e ''gb.desktop.x11'' . | ||
| − | <FONT Color=gray>' '' | + | |
| − | + | Private $hWatcher As Watcher <FONT Color=gray>' ''Per guardare il controllo.''</font> | |
'''Public''' Sub _new() | '''Public''' Sub _new() | ||
| − | Dim hObs As Observer | + | Dim hObs As Observer <FONT Color=gray>' ''Per anticipare l'evento prima che venga lanciato.''</font> |
hObs = New Observer(Me) As "TableView" | hObs = New Observer(Me) As "TableView" | ||
| Riga 38: | Riga 38: | ||
| − | '''Public''' Sub TableView1_Click() | + | '''Public''' Sub TableView1_Click() <FONT Color=gray>' ''Evento non osservato''</font> |
TableView1.Edit | TableView1.Edit | ||
| Riga 45: | Riga 45: | ||
| − | '''Public''' Sub TableView1_Save(Row As Integer, Column As Integer, Value As String) | + | '''Public''' Sub TableView1_Save(Row As Integer, Column As Integer, Value As String) <FONT Color=gray>' ''Serve per salvare il testo scritto all'interno delle celle.''</font> |
TableView1[row, column].text = value | TableView1[row, column].text = value | ||
| Riga 52: | Riga 52: | ||
| − | '''Public''' Sub TableView_KeyPress() | + | '''Public''' Sub TableView_KeyPress() <FONT Color=gray>' ''Evento non osservato''</font> |
<FONT Color=gray>' ''Serve per spostarsi con tasto Tab:''</font> | <FONT Color=gray>' ''Serve per spostarsi con tasto Tab:''</font> | ||
Versione delle 08:51, 11 ott 2016
Mostriamo un esempio [ Nota 1 ], che consente di muoversi fra le celle di una TableView anche utilizzando il tasto Tab oltre al tasto invio e ai tasti freccia.
E' necessario attivare i Componenti gb.desktop e gb.desktop.x11 .
Private $hWatcher As Watcher ' Per guardare il controllo.
Public Sub _new()
Dim hObs As Observer ' Per anticipare l'evento prima che venga lanciato.
hObs = New Observer(Me) As "TableView"
$hWatcher = New Watcher(Me) As "TableView"
End
Public Sub Form_Open()
TableView1.Width = 550 ' dichiara la larghezza dell'intera TableView
TableView1.Columns.Count = 5 ' dichiara il numero di colonne
TableView1.Rows.Count = 20 ' dichiara il numero di righe
TableView1.Columns[0].Width = 100 ' dichiara la larghezza della colonna ID
TableView1.Columns[1].Width = 100 ' dichiara la larghezza della colonna Luogo
TableView1.Columns[2].Width = 100 ' dichiara la larghezza della colonna GRP
TableView1.Columns[3].Width = 100 ' dichiara la larghezza della colonna stato
TableView1.Columns[4].Alignment = Align.Center ' centra i pulsanti
TableView1.Rows.Height = 30 ' dichiara l'altezza della riga
TableView1.name = "PROVA"
TableView1.Header = 3 ' ATTIVA L'INTESTAZIONE DELLE COLONNE
TableView1.Font.Size = 11
TableView1.Columns[0].Alignment = 3 ' Allineamento centrato
TableView1.Columns[1].Alignment = 3 ' Allineamento centrato
TableView1.Columns[2].Alignment = 3 ' Allineamento centrato
TableView1.Columns[3].Alignment = 3 ' Allineamento centrato
End
Public Sub TableView1_Click() ' Evento non osservato
TableView1.Edit
End
Public Sub TableView1_Save(Row As Integer, Column As Integer, Value As String) ' Serve per salvare il testo scritto all'interno delle celle.
TableView1[row, column].text = value
End
Public Sub TableView_KeyPress() ' Evento non osservato
' Serve per spostarsi con tasto Tab:
If Key.Code = Key.Tab
Stop Event ' Lo "Stop Event" consente alla successiva linea Desktop.SendKeys("\n") di funzionare.
Desktop.SendKeys("\n")
Endif
End
Note
[1] Pagina e codice a cura del membro Gianluigi del forum gambas-org.it
