Scrivere con la tastiera nelle celle di una GridView

Da Gambas-it.org - Wikipedia.

Per scrivere con la tastiera nelle celle di una GridView, è possibile utilizzare l'Evento "_KeyRelease()", come mostrato nel seguente codice
Per spostarsi da una cella ad un'altra, è sufficiente cliccare con il puntatore del mouse all'interno della cella prescelta.

Private GridView1 As GridView
Private s As String
Private clm As Integer
Private rw As Integer


Public Sub Form_Open()

 With GridView1 = New GridView(Me) As "GridView1"
   .X = 0
   .Y = 0
   .H = 300
   .W = Me.W
   .Header = 3
   .Rows.Count = 10
   .Columns.Count = 10
 End With

End


Public Sub GridView1_KeyRelease()

 If (GridView1.Row <> rw) Or (GridView1.Column <> clm) Then s = Null
 s &= Key.Text
 GridView1[GridView1.Row, GridView1.Column].Text = s
 rw = GridView1.Row
 clm = GridView1.Column

End

L'uso dell'Evento "_KeyRelease()" in questo caso è più comodo ed efficace dell'Evento "_KeyPress()", poiché impedisce che venga scritto più volte il medesimo carattere prescelto, qualora si tenga premuto a lungo il tasto della tastiera che lo rappresenta.