Control TableView

TableView

Tanto el TableView, GridView,ColumnView contiene casi las misma propiedad así que si necesitas saber alguna propiedad del TableView puedes ver los post de GridView,ColumnView.

Me dedicare a hacer ejemplos

1) Insertar datos en el TableView
Se debe crear un tableview llamado TableView1
En el evento Open del Formulario “click derecho en el formulario Eventos y le das click a Open”
Escribirás este código para agregar los datos

PUBLIC SUB Form_Open()
'Especifico cuantas columnas usare
TableView1.Columns.Count = 1
'Especifico cuantas filas o row a utilizar
'Ojo se debe especificar las filas a utilizar si no no podrás insertar los datos y mandara un error
TableView1.Rows.Count = 7
'Agrego los datos
'La sintaxis es TableView1[row as Integer,column as Integer].Text = "mensaje"
'Row es el numero de fila y column es el numero de la columna
TableView1[0, 0].Text = "Mandriva"
TableView1[1, 0].Text = "openSUSE"
TableView1[2, 0].Text = "PCLinuxOS"
TableView1[3, 0].Text = "Red Hat Enterprise Linux"
TableView1[4, 0].Text = "Slackware"
TableView1[5, 0].Text = "Slax"
TableView1[6, 0].Text = "Ubuntu"
END

Imagen del Programa

No puse el nombre de la columna ya que no voy a mostrar el nombre Si quisieras ponerle nombre a la columnas debes cambiar la propiedad del TableView1 llamada “Header” a “Horizontal” para mostrar los nombres de las columnas y agregarle el nombre mediante código debajo del “TableView1.Columns.Count = 1”
TableView1.Columns[0].Text = "Distribuciones"

2) Agregar Nombre, Ocupación y País utilizando 3 textbox, 3 label,1 button,1 TableView

Se debe crear un formulario de esta manera

Los tres TextBox deben llevar estos nombres
txt_nombre
txt_direccion
txt_ocupacion

El Button1 se debe cambiar el nombre a btn_agregar “Opcional”

En el TableView se debe cambiar la propiedad Header a Both para agregar los nombres de las columnas y numero de las filas o row

En el evento Open del formulario se debe escribir el siguiente codigo

PUBLIC SUB Form_Open()
'Cantidad de columnas a usar
TableView1.Columns.Count = 3
'Nombre de la primera columna
TableView1.Columns[0].Text = "Nombre"
'Ancho de la primera columna
TableView1.Columns[0].Width = 150
'Nombre de la Segunda columna
TableView1.Columns[1].Text = "Dirección"
'Ancho de la segunda columna columna
TableView1.Columns[1].Width = 150
'Tercera columna
TableView1.Columns[2].Text = "Ocupación"
TableView1.Columns[2].Width = 150
END

Se debe crear una subrutina para limpiar los textbox aquí esta el código
PRIVATE SUB clear_text()
txt_direccion.Clear
txt_nombre.Clear
txt_ocupacion.Clear
END

En el evento Click del Button1 o “ btn_agregar” se debe escribir el siguiente codigo
PUBLIC SUB btn_agregar_Click()
'Guardo en la variable row la cantidad de filas que existen
DIM row AS Integer = TableView1.Rows.Count
'Comparo si los 3 textbox están vacíos o no
IF txt_nombre.Text <> "" AND txt_direccion.Text <> "" AND txt_ocupacion.Text <> "" THEN
'Agrego una nueva fila si los 3 textbox contiene información
TableView1.Rows.Count += 1
'Agrego el nombre, ocupación,dirección a la fila
TableView1[row, 0].Text = txt_nombre.Text
TableView1[row, 1].Text = txt_ocupacion.Text
TableView1[row, 2].Text = txt_direccion.Text
clear_text() 'Subrutina para eliminar los datos escritos en el TextBox
ELSE 'Si los textbox están vacíos mandara el siguiente mensaje
Message.Info("Debe llenar los datos")
ENDIF
END

Imagen del Programa

3) Agregar Usuario y País a una base de datos y mostrarla en un TableView

Imagen del Programa

Este ejemplo se encuentra dentro de los Ejemplos para descargar

Descargar Ejemplos