Botón Aceptar: evento .add()

Al hacer click en el botón aceptar, entonces es cuando realmente tenemos que añadir la información al array. Eso lo realizamos con el evento .add():

PUBLIC SUB ButtonAceptar_Click()

'añadimos a la matriz los datos

var.id.add("Id" & Str$(Now))

var.dni.add(TextBoxDNI.text)

var.nombre.add(TextBoxNombre.Text)

var.apellidos.add(TextBoxApellidos.Text)

var.empresa.add(TextBoxEmpresa.Text)

var.puesto.add(TextBoxPuesto.Text)

var.telf_empresa.add(TextBoxTelfEmpresa.Text)

var.telf_parti.add(TextBoxTelfParticular.text)

var.fax.add(TextBoxFax.Text)

var.movil_empresa.add(TextBoxMovilEmpresa.Text)

var.movil_parti.add(TextBoxMovilParticular.Text)

var.pag.add(TextBoxWEB.Text)

'en foto guardo la ruta donde esta la imagen

var.foto.add(var.rutaimagen)

var.direccion.add(TextBoxDireccion.Text)

var.observaciones.add(TextBoxObs.Text)

var.fecha_datos.add(TextBoxFecha.Text)

var.correo.Add(TextBoxCorreo.Text)

'ponemos en blanco la propiedad .text de los texbox

PictureBoxFoto.Picture = Picture["icon:/96/gambas"]

TextBoxDNI.text = ""

TextBoxNombre.text = ""

TextBoxApellidos.text = ""

TextBoxEmpresa.text = ""

TextBoxPuesto.text = ""

TextBoxTelfEmpresa.text = ""

TextBoxTelfParticular.text = ""

TextBoxFax.text = ""

TextBoxMovilEmpresa.text = ""

TextBoxMovilParticular.text = ""

TextBoxWEB.text = ""

PictureBoxFoto.Picture = ""

TextBoxDireccion.text = ""

TextBoxObs.text = ""

TextBoxFecha.text = ""

TextBoxCorreo.text = ""

'escribimos en el gridviews el dato introducido

titulo.rellena()

'el setfocus lo ponemos justo al inicio de los datos una vez que hemos pulsado el boton Aceptar

TextBoxDNI.SetFocus

END

Y para rellenar el dato introducido en nuestro gridviews, vamos a llamar a una subrutina que esta en el módulo titulo: rellena

PUBLIC SUB rellena()

DIM a AS Integer

FMain.GridViewDatos.Rows.COUNT = var.id.COUNT

FOR a = 0 TO var.id.COUNT - 1

WITH FMain

.GridViewDatos[a, 0].Picture = Picture[var.foto[a]]

.GridViewDatos[a, 1].text = var.nombre[a]

.GridViewDatos[a, 2].text = var.apellidos[a]

.GridViewDatos[a, 3].text = var.dni[a]

.GridViewDatos[a, 4].text = var.empresa[a]

.GridViewDatos[a, 5].text = var.puesto[a]

.GridViewDatos[a, 6].text = var.telf_empresa[a]

.GridViewDatos[a, 7].text = var.movil_empresa[a]

.GridViewDatos[a, 8].text = var.telf_parti[a]

.GridViewDatos[a, 9].text = var.movil_parti[a]

.GridViewDatos[a, 10].text = var.fax[a]

.GridViewDatos[a, 11].text = var.correo[a]

.GridViewDatos[a, 12].text = var.pag[a]

.GridViewDatos[a, 13].text = var.direccion[a]

.GridViewDatos[a, 14].text = var.observaciones[a]

.GridViewDatos[a, 15].text = var.fecha_datos[a]

END WITH

NEXT

FMain.GridViewDatos.Refresh

END

Notas sobre este codigo:

1) Tenemos que definir una variable “a” que es al responsable de ir aumentando en el For-Next

para ello utilizamos

Dim a as integer

2. El numero de filas sera igual al numero de datos Existentes.

FMain.GridViewDatos.Rows.COUNT = var.id.COUNT

3. For – Next: como empezamos de “0” el .COUNT lo reducimos en uno

FOR a = 0 TO var.id.COUNT - 1

De este modo rellena tantas filas como numero de datos haya (propiedad .COUNT)

4. WITH – END WITH: nos ahorramos de escribir varias veces fmain

5. Hay que tambien refrescar los dados del gridviewDatos, una vez definido, normalmente lo hace, pero no siembre, por lo tanto mejor forzarlo a que refresque:

Fmain.GridViewDatos.Refresh