Bottone in una TableView

[vuott]

Mi sembra funzionare

Io e Gianluigi - in privato - ci stiamo consultando per trovare altre eventuali soluzioni (ci sarebbe pure una mia leggera variante), ma quella sua originaria resta per ora ancora la migliore.   

[Gianluigi]

..
Già che ci siamo.....BackTab 

ci avevo già pensato 
Vedremo ora penso a tab...

Nella classe GridBox di Milio i due pulsanti funzionano bene nella griglia, saltano la colonna "Check" senza variare il contenuto, ma non ho proprio capito come ha fatto

Darò un occhiata, grazie.
 

[Gianluigi]

Siccome sto per andare a dormire, vi aggiorno su un piccolo passetto in avanti, ma solo per quanto riguarda ButtonDraw:

Codice: [Seleziona]

Public Sub TableView_KeyPress()  
  ' Per impedire a questi eventi di scatenare il 
  ' click quando passano alla riga successiva.  
  
  Select Case Key.Code    
    Case Key.Right, Key.Return, Key.Enter
      If TableView1.Column = 3 Then      
        $bNoEvent = True
      Endif    
    ' Serve per spostarsi con Tab.
    Case Key.Tab      
      If Application.ActiveControl = TextBox1 Then        
        If TableView1.Row = -1 Then          
          Desktop.SendKeys("\t")
          Return
        Endif      
        If TableView1.Row = TableView1.Rows.Count - 1 And TableView1.Column = TableView1.Columns.Count - 2 Then          
          Desktop.SendKeys("\t")
        Else
          Stop Event
          Desktop.SendKeys("\n")
        Endif
      Endif     
  End Select  
  
End

con questo codice alla fine dei tab interni tabulando ancora si da il focus ai button
Buonanotte 

[vuott]

con questo codice alla fine dei tab interni tabulando ancora si da il focus ai button

Ma tu vuoi che sia così, o no ?

[Gianluigi]

con questo codice alla fine dei tab interni tabulando ancora si da il focus ai button

Ma tu vuoi che sia così, o no ?

Certo, ma questo codice funziona solo con TableView1.EditWith(TextBox1) non avevo capito che tu avevi già trovato la soluzione per l'esempio della wiki.

[Gianluigi]

Aggiorno alla terza versione, adesso non scatena l'evento click neanche a ritroso col tasto Left.
Ho inserito una combo per una lista di colonna e il tab la attraversa normalmente.
Purtroppo per quanto riguarda BackTab niente da fare almeno con questa impostazione. 
Ho provato sia in TableView_KeyPress che con TextBox1_KeyPres ma non sono riuscito a nulla.
Se provate ad aggiungere questo codice vedrete che con qualcosa scritto nelle textbox si evidenzierà il testo.
Questo sta ad indicare che lo Stop Event coinvolge solo il tab e non shift, infatti è lo stesso comportamento che avremmo usando i tasti Shift + Left.

Codice: [Seleziona]

Public Sub TextBox1_KeyPress()
  
  If Key.Code = Key.BackTab Then
    Stop Event    
    'If Key.Shift Then Stop Event
    If TableView1.Column = 0 And TableView1.Row = 0 Then
    Else
      'Print "LEFT"
      Desktop.SendKeys("[Left]")
    Endif
  Endif
  
End

 

[vuott]

 

[Golia]

Io risolverei così.. anche se è poco elegante

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

Allego esempio

[vuott]

Bravo, Golia.
Poiché il tuo esempio comunque comporta due particolarità (salto delle celle occupate dagli oggetti e BackTab) ho ritenuto utile riportare (...se non sei contrario a posteriori  ) il tuo codice nella pagina che stiamo scrivendo della WIKI.


Mostriamo, dunque, anche agli altri membri dove - per ora - siamo arrivati:

http://www.gambas-it.org/wiki/index.php?title=Utilizzare_il_tasto_Tab_della_tastiera_per_spostare_il_cursore_del_mouse_fra_le_celle_di_una_TableView

[Gianluigi]

Ciao Golia,
prima cosa complimenti per la soluzione anche se purtroppo non si adatta a mio ButtonDraw.
A proposito, perché non hai fatto un esempio con button qui, visto il titolo, e uno con check la? 
A me la tabulazione rimane confinata all'interno della tableview, non c'è il sistema di farla uscire in modo da ottenere il comportamento atteso da chi non usa il mouse?

Ti suggerisco questo cambiamento che oltre a tutto fa uscire il BackTab dalla tableview e sposta il focus sul pulsante (se non vuoi uscire dai confini della tableview basta rispostare Stop Event prima di If):

Codice: [Seleziona]

    Case Key.BackTab      
      If TableView1.row = 0 And TableView1.Column = 0 Then 
        Return  
      Endif
      Stop Event 
      Select Case TableView1.Column
        Case 0
          TableView1.MoveTo(TableView1.Row - 1, TableView1.Columns.Max)
        Case 4
          '$bNoEvent = True ' Qui non serve
          TableView1.MoveTo(TableView1.Row, TableView1.Column - 2)
        Case Else
          TableView1.MoveTo(TableView1.Row, TableView1.Column - 1)
      End Select      
      TableView1.Edit

PS Non ho risposto prima perché oggi da noi, paurosa tromba d'aria che ci ha tenuti oltre che in apprensione anche senza energia elettrica e naturalmente il portatile era quasi scarico. 
Perché non hai messo il codice fra cancelletti? Voi anziani dovete dare l'esempio 

[Golia]

A proposito, perché non hai fatto un esempio con button qui, visto il titolo, e uno con check la? 

:-\Mi viene più naturale pensare a un check dentro la griglia che un button.... 

A me la tabulazione rimane confinata all'interno della tableview, non c'è il sistema di farla uscire in modo da ottenere il comportamento atteso da chi non usa il mouse?

Si è vero anche quà al mio punto di vista va bene così, basta mettere dei controlli per uscire dal focus della griglia, premendo un tasto a scelta tipo che ne so.. F2

Perché non hai messo il codice fra cancelletti? Voi anziani dovete dare l'esempio 

siamo abbastanza giovani e quindi sbadati