document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub _new()
  4.  
  5. End
  6.  
  7. Public Sub Form_Open()
  8.  
  9.   definirGridviewDatos()
  10.   rellenadatosGridview()
  11.   Gridviewdatos.mode = Select.Single
  12.  
  13.   definirTableviewDatos()
  14.   rellenadatosTableview()
  15.   TableViewDatos.Mode = Select.Single
  16.   Me.center
  17.  
  18. End
  19.  
  20. Public Sub definirGridviewDatos()
  21.  
  22.   With Gridviewdatos
  23.     .header = 3
  24.     .rows.count = 10
  25.     .columns.count = 3
  26.     .Columns[0].title = "Primera Columna"
  27.     .Columns[1].title = "Segunda Columna"
  28.     .Columns[2].title = "Tercera Columna"
  29.     .Columns[0].width = 120
  30.     .Columns[1].width = 120
  31.     .Columns[2].width = 120
  32.     .font.name = "Sans"
  33.     .font.size = 9
  34.     .Background = 16777215
  35.     .Foreground = 0
  36.   End With
  37.  
  38. End
  39.  
  40. Public Sub rellenadatosGridview()
  41.  
  42.   Dim a, b As Integer
  43.  
  44.   For a = 0 To Gridviewdatos.Rows.count - 1
  45.     For b = 0 To Gridviewdatos.Columns.count - 1
  46.       Gridviewdatos[a, b].text = "Celda: " & Str$(a) & " " & Str$(b)
  47.     Next
  48.   Next
  49.  
  50. End
  51.  
  52. \'-------------------------------------------------------------
  53.  
  54. Public Sub definirTableviewDatos()
  55.  
  56.   With TableViewDatos
  57.     .header = 3
  58.     .rows.count = 10
  59.     .columns.count = 3
  60.     .Columns[0].title = "Ciudad"
  61.     .Columns[1].title = "Segunda"
  62.     .Columns[2].title = "Tercera"
  63.     .Columns[0].width = 120
  64.     .Columns[1].width = 120
  65.     .Columns[2].width = 120
  66.     .font.name = "Sans"
  67.     .font.size = 9
  68.     .Background = 16777215
  69.     .Foreground = 0
  70.   End With
  71.  
  72. End
  73.  
  74. \'--------------------------------------------
  75. \' tableview
  76. \'--------------------------------------------
  77. Public Sub rellenadatosTableview()
  78.  
  79.   Dim a, b As Integer
  80.  
  81.   For a = 0 To TableViewDatos.Rows.count - 1
  82.     For b = 0 To TableViewDatos.Columns.count - 1
  83.       If b = 0 Then
  84.         TableViewDatos[a, b].text = "Sevilla"
  85.       Else
  86.         TableViewDatos[a, b].text = "Celda: " & Str$(a) & " " & Str$(b)
  87.       Endif
  88.     Next
  89.   Next
  90.  
  91. End
  92.  
  93. \'Al hacer click, editamos la selda
  94. Public Sub TableViewDatos_Click()
  95.  
  96.   Dim TablaOpciones As New String[]
  97.  
  98.   TablaOpciones.add("Sevilla")
  99.   TablaOpciones.add("Cadiz")
  100.   TablaOpciones.add("Huelva")
  101.  
  102.   If TableViewDatos.column = 0 Then
  103.     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
  104.   Else
  105.     TableViewDatos.edit \'---> editar en textbox
  106.   Endif
  107.  
  108. End Sub
  109.  
  110. \'Cuando se termine de editar y se pulse enter o se cambie el foco, salta el evento _Save
  111. Public Sub TableViewDatos_Save(Row As Integer, Column As Integer, Value As String)
  112.   \'guardamos el valor cambiado en la celda
  113.  
  114.   TableViewDatos[row, column].Text = Value
  115.  
  116. End Sub
');