Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement