Visualizza wikitesto di Utilizzare il tasto Tab della tastiera per spostare il cursore del mouse fra le celle di una TableView

Mostriamo alcuni esempi che consentono 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'' .


'''1° esempio'''   <SUP>[ [[#Note|nota 1]] ]</sup>

 Public Sub _new()
  
   Dim hObs As Observer     <FONT Color=gray>' ''Per anticipare l'evento prima che venga lanciato.''</font>
   
   hObs = New Observer(Me) As "TableView"
  
 End
 
 
 Public Sub Form_Open()
   
   TableView1.Width = 550                          <FONT Color=gray>' ''dichiara la larghezza dell'intera TableView''</font>
   TableView1.Columns.Count = 5                    <FONT Color=gray>' ''dichiara il numero di colonne''</font>
   TableView1.Rows.Count = 20                      <FONT Color=gray>' ''dichiara il numero di righe''</font>
   TableView1.Columns[0].Width = 100               <FONT Color=gray>' ''dichiara la larghezza della colonna ID''</font>
   TableView1.Columns[1].Width = 100               <FONT Color=gray>' ''dichiara la larghezza della colonna Luogo''</font>
   TableView1.Columns[2].Width = 100               <FONT Color=gray>' ''dichiara la larghezza della colonna GRP''</font>
   TableView1.Columns[3].Width = 100               <FONT Color=gray>' ''dichiara la larghezza della colonna stato''</font>
   TableView1.Columns[4].Alignment = Align.Center  <FONT Color=gray>' ''centra i pulsanti''</font>
   TableView1.Rows.Height = 30                     <FONT Color=gray>' ''dichiara l'altezza della riga''</font>
   TableView1.name = "PROVA"
   TableView1.Header = 3                           <FONT Color=gray>' ''ATTIVA L'INTESTAZIONE DELLE COLONNE''</font>
   TableView1.Font.Size = 11
   TableView1.Columns[0].Alignment = 3             <FONT Color=gray>' ''Allineamento centrato''</font>
   TableView1.Columns[1].Alignment = 3             <FONT Color=gray>' ''Allineamento centrato''</font>
   TableView1.Columns[2].Alignment = 3             <FONT Color=gray>' ''Allineamento centrato''</font>
   TableView1.Columns[3].Alignment = 3             <FONT Color=gray>' ''Allineamento centrato''</font>
      
 End
 
 
 Public Sub TableView1_Click()   <FONT Color=gray>' ''Evento non osservato''</font>
   
   TableView1.Edit
      
 End
 
 
 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
   
 End
  
   
 Public Sub TableView_KeyPress()   <FONT Color=gray>' ''Evento osservato''</font>
   
 <FONT Color=gray>' ''Serve per spostarsi con tasto Tab:''</font>
     <FONT Color=#B22222>If Key.Code = Key.Tab
       Stop Event            </font><FONT Color=gray>' ''Lo "Stop Event" consente alla successiva linea Desktop.SendKeys("\n") di funzionare.''</font>
       <FONT Color=#B22222>Desktop.SendKeys("\n")
     Endif</font>
      
 End



'''2° esempio'''   <SUP>[ [[#Note|nota 2]] ]</sup>

Questo secondo esempio è una variante del codice precedente, e suppone che oltre alla ''TableView'' sia presente sul ''Form'' almeno un altro oggetto (in questo esempio avremo due ''Button'').
 Public Sub Form_Open()
  
  TableView1.Width = 400
  TableView1.Columns.Count = 4
  TableView1.Rows.Count = 5
  TableView1.Columns[0].Width = 100
  TableView1.Columns[1].Width = 100
  TableView1.Columns[2].Width = 100
  TableView1.Columns[3].Width = 100
      
 End
 
 
 Public Sub TableView1_Click()   
  
 <FONT Color=gray>' ''Impedisce che ai due "Button" possa essere attribuito il Focus con tasto Tab:''</font>
  Button1.NoTabFocus = True
  Button2.NoTabFocus = True
 <FONT Color=gray>' ''Però, qualora non vi siano oggetti sul ''Form'', si farà riferimento al solo ''Form'' così:''
 ' '''Me.NoTabFocus = True'''</font>
  
  EditaTableView()
  
 End
 
 
 Public Sub TableView1_Save(Row As Integer, Column As Integer, Value As String)
   
  TableView1[row, column].text = value
   
 End
  
  
 Public Sub TableView1_KeyRelease()  
  
 <FONT Color=gray>' ''Serve per spostarsi con tasto Tab:''</font>
  If Key.Code = Key.Tab
    Desktop.SendKeys("\n")
    EditaTableView()
  Endif
  
 End
 
 
 Private Procedure EditaTableView()
  
 <FONT Color=gray>' ''Se si intende, dopo aver raggiunto l'ultima cella della "TableView", passare - premendo il tasto "Tab" - il Focus ai due "Button" (decommentare queste righe):''
 ' '''If (TableView1.Row = TableView1.Rows.Max) And (TableView1.Column = TableView1.Columns.Max) Then'''
 '   '''Button1.NoTabFocus = False'''
 '   '''Button2.NoTabFocus = False'''
 ' '''Endif'''</font>
  
  TableView1.Edit
  
 End



'''3° esempio'''   <SUP>[ [[#Note|Nota 3]] ]</sup>

Questo terzo esempio contempla anche la presenza in talune celle di un tipo di oggetto. Durante lo spostamento, premendo il tasto ''Tab'', da una cella all'altra della ''TableView'', saranno saltate le celle contenenti i predetti oggetti. Dunque il cursore del mouse non capiterà all'interno delle celle occupate dagli oggetti, passando così direttamente alla cella successiva.

La particolarità più importante di questo terzo codice è che premendo i tasti ''Shift''+''Tab'' (''BackTab'') il cursore tornerà dietro sino alla prima cella in alto a sinistra della ''TableView'' con le medesime modalità prima viste per le celle occupate dagli oggetti.
 Private $bNoEvent As Boolean
 Private $colCheck As Integer = 3
 
 Public Sub _new()
  
  Dim Ny As Integer
  Dim hObs As Observer
 
  hObs = New Observer(Me) As "TableView"  
  
  Me.Center
  TableView1.Header = TableView1.Horizontal
  TableView1.Columns.Count = 6       
  TableView1.Columns[0].Title = "Quantità"
  TableView1.Columns[1].Title = "Oggetto"
  TableView1.Columns[2].Title = "Materiale"
  TableView1.Columns[3].Title = "Pulsante"
  TableView1.Columns[4].Title = "Sconto"
  TableView1.Columns[5].Title = "Importo"
     
  TableView1.Columns[1].Width = 150 
  TableView1.Columns[2].Width = 150
  
  TableView1.Rows.Count = 8
  
  TableView1[0, 0].text = "Prova"
  TableView1[1, 0].text = "Hello"
  TableView1[2, 0].text = "Mela"
  TableView1[3, 0].text = "Pesca"
  
  For Ny = 0 To 7
    TableView1[Ny, $colCheck].picture = Picture["off.png"]
  Next
  
  Catch
  Message.Error(Error.Text)
  
 End
 
 
 Public Sub TableView1_Click()
  
  If TableView1.Column = 2 Then
    TableView1.Edit(["Giacca", "Pantalone", "Maglia", "Camicia"], False)
  Else If TableView1.Column = $colCheck Then
    If $bNoEvent = False Then
      If TableView1.Current.Picture = Picture["on.png"] Then 
        TableView1.Current.Picture = Picture["off.png"]
      Else
        TableView1.current.Picture = Picture["on.png"]
      Endif
    Else
      $bNoEvent = False
    Endif
  Else
    TableView1.Edit
  End If
  
 End
 
 
 Public Sub TableView1_Save(Row As Integer, Column As Integer, Value As String)
  
  TableView1[row, column].text = value
  
 End
 
 
 Public Sub TableView_KeyPress()
  
  Dim i As Integer
  
  Select Case Key.Code
    Case Key.Right, Key.Left, Key.Return, Key.Enter
      If TableView1.Column = $colCheck - 1 Or $colCheck + 1 Then
        $bNoEvent = True
      Endif
    
    Case Key.Tab
      Stop Event 
      Desktop.SendKeys("\n")
    
    Case Key.BackTab
       Stop Event 
          If TableView1.row = 0 And TableView1.Column = 0 Then 
              Return  
          Endif
       i = TableView1.Column
       If TableView1.Column = 0 Then 
         i = TableView1.Columns.Max + 1
         TableView1.Row = TableView1.Row - 1
       Endif
       If TableView1.Column = $colCheck + 1 Then
         $bNoEvent = True
         TableView1.MoveTo(TableView1.Row, i - 2)
       Else
         TableView1.MoveTo(TableView1.Row, i - 1)
       Endif
       TableView1.Edit
  End Select
  
 End




=Note=
[1] Il codice è a cura del membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi] del forum gambas-org.it

[2] Il codice è a cura del membro [http://www.gambas-it.org/smf/index.php?action=profile;u=402 vuott] del forum gambas-org.it

[3]  Il codice è a cura del membro [http://www.gambas-it.org/smf/index.php?action=profile;u=151 Golia] del forum gambas-org.it