GridviewsTableview

' 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