\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
definirGridviewDatos()
rellenadatosGridview()
Gridviewdatos.mode = Select.Single
definirTableviewDatos()
rellenadatosTableview()
TableViewDatos.Mode = Select.Single
Me.center
End
Public Sub definirGridviewDatos()
With Gridviewdatos
.header = 3
.rows.count = 10
.columns.count = 3
.Columns[0].title = "Primera Columna"
.Columns[1].title = "Segunda Columna"
.Columns[2].title = "Tercera Columna"
.Columns[0].width = 120
.Columns[1].width = 120
.Columns[2].width = 120
.font.name = "Sans"
.font.size = 9
.Background = 16777215
.Foreground = 0
End With
End
Public Sub rellenadatosGridview()
Dim a, b As Integer
For a = 0 To Gridviewdatos.Rows.count - 1
For b = 0 To Gridviewdatos.Columns.count - 1
Gridviewdatos[a, b].text = "Celda: " & Str$(a) & " " & Str$(b)
Next
Next
End
\'-------------------------------------------------------------
Public Sub definirTableviewDatos()
With TableViewDatos
.header = 3
.rows.count = 10
.columns.count = 3
.Columns[0].title = "Ciudad"
.Columns[1].title = "Segunda"
.Columns[2].title = "Tercera"
.Columns[0].width = 120
.Columns[1].width = 120
.Columns[2].width = 120
.font.name = "Sans"
.font.size = 9
.Background = 16777215
.Foreground = 0
End With
End
\'--------------------------------------------
\' tableview
\'--------------------------------------------
Public Sub rellenadatosTableview()
Dim a, b As Integer
For a = 0 To TableViewDatos.Rows.count - 1
For b = 0 To TableViewDatos.Columns.count - 1
If b = 0 Then
TableViewDatos[a, b].text = "Sevilla"
Else
TableViewDatos[a, b].text = "Celda: " & Str$(a) & " " & Str$(b)
Endif
Next
Next
End
\'Al hacer click, editamos la selda
Public Sub TableViewDatos_Click()
Dim TablaOpciones As New String[]
TablaOpciones.add("Sevilla")
TablaOpciones.add("Cadiz")
TablaOpciones.add("Huelva")
If TableViewDatos.column = 0 Then
TableViewDatos.edit(TablaOpciones, True) \'---> editar en un combo con opciones "Sevilla", "Cadiz" y "Huelva".El valor True indica que el combo será de solo lectura y por tanto solo se podrá elegir una opción
Else
TableViewDatos.edit \'---> editar en textbox
Endif
End Sub
\'Cuando se termine de editar y se pulse enter o se cambie el foco, salta el evento _Save
Public Sub TableViewDatos_Save(Row As Integer, Column As Integer, Value As String)
\'guardamos el valor cambiado en la celda
TableViewDatos[row, column].Text = Value
End Sub